<%@ Language="VBScript" %> <% ' session("dr")="myopenlisting.com" ' session("dr") = "Preferealty.com" Response.Expires = 0 Session.Timeout = 120 Server.ScriptTimeout = 3600 dbURL = session("dbURLv") whatpage = request("w") db = request("db") status = request("s") priority = request("p") if priority="" then priority=1 end if fstatus = "1" f1 = "" f2 = "" if db="SellAHome" then dbdescr = "Help in Selling your Home" elseif db="BuyAHome" then dbdescr = "Help in Home Buying" end if %> Preferealty.Com!
Preferealty.Com! <%=whatpage%> Page - "><%=session("dr")%>!
At Preferealty, our service is #1 and so is the savings we bring to our clients!
<% Set mcon = Server.CreateObject("ADODB.Connection") mcon.Open dbURL mq = "select * from clientsmarquee where priority=0 or priority=" & priority Set mrs = Server.CreateObject("ADODB.Recordset") mrs.Open mq, mcon %> <% while not mrs.EOF if fstatus="1" then response.write f1 response.write mrs("hotnotes") & "" fstatus="2" else response.write f2 response.write mrs("hotnotes") & "" fstatus="1" end if mrs.movenext wend mrs.close mcon.close %>

 
<%=dbdescr%>
<% Set con = Server.CreateObject("ADODB.Connection") con.Open dbURL q = "select * from "&db Set rs = Server.CreateObject("ADODB.Recordset") rs.Open q, con while not rs.EOF %>

" target="_parent"> <%=rs("description")%>

<% rs.movenext wend rs.close con.close %>