Sell Spokane Homes

<% If Session("blnLogin")= True then %> <% strSQL1 = "Select * From homes where status = '1' order by ID asc" Set objConn = Server.CreateObject("ADODB.Connection") Set objRS = Server.CreateObject ("ADODB.Recordset") objConn.Open strConnect objRS.Open strSQL1, objConn, adoCon While not objRS.EOF Response.write("

") Response.write("") Response.write("

") Response.write("") Response.write("") Response.write("") Response.write("") Response.write("") Response.write("") Response.write("

" & objRS("title") & " - " & objRS("listprice") & "

Description: " & objRS("shortnote") & "

MLS: " & objRS("mls") & " Location: " & objRS("location") & " Built: " & objRS("yearbuilt") & "

Address: " & objRS("addy1") & " - " & objRS("city") & ", " & objRS("state") & " " & objRS("zip") & "

Square Feet: " & objRS("squarefeet") & " Bed/Bath: " & objRS("beds") & "/" & objRS("bath") & " Lot Size: " & objRS("lotsize") & "

Last Updated: By " & objRS("addfirstname") & " on " & objRS("adddate") & " at " & objRS("addtime") & "

") Response.write("

") objRS.MoveNext Wend objRS.Close Else strSQL1 = "Select * From homes where status = '1' order by ID asc" Set objConn = Server.CreateObject("ADODB.Connection") Set objRS = Server.CreateObject ("ADODB.Recordset") objConn.Open strConnect objRS.Open strSQL1, objConn, adoCon While not objRS.EOF Response.write("