<% Param = Request.QueryString("Param") Data = Request.QueryString("Data") %> <%If IsObject(Session("Davidson_conn")) Then Set conn = Session("Davidson_conn") Else Set conn = Server.CreateObject("ADODB.Connection") conn.open "Davidson","","" Set Session("Davidson_conn") = conn End If %> <% sql = "SELECT Listing.[Listing Number], Listing.[Listed Price], Listing.[Town], Residence.[House Style], Residence.[Bedrooms], Residence.[Baths], Residence.[Basement], Listing.[NAcres]FROM Listing INNER JOIN Residence ON Listing.[Listing Number] = Residence.[Listing Number] WHERE ((([Listing]![HOUSE])=True) AND (([Listing]![Status]) Is Null) AND (([LISTING]![COMMERCIAL])=FALSE))" If cstr(Param) <> "" And cstr(Data) <> "" Then sql = sql & " And [" & cstr(Param) & "] = " & cstr(Data) End If sql = sql & " ORDER BY Listing.[Listed Price] " Set rs = Server.CreateObject("ADODB.Recordset") rs.Open sql, conn, 3, 3 %>

To sell your property at Auction contact

Neal Davidson at 816-632-4400

or

Charlie Golden at 816-390-2557