<%@ Language="VBScript" %> <% Response.Expires = 0 Session.Timeout = 120 Server.ScriptTimeout = 3600 dbURL = session("dbURLv") whatpage = request("w") db = request("db") sector = request("sector") status = request("s") priority = request("p") if priority="" then priority=1 end if fstatus = "1" f1 = "" f2 = "" %> Preferealty.Com!
Preferealty.Com! <%=whatpage%> Page - "><%=session("dr")%>!
We strive to be efficient so we can pass the savings 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 %>

 

 

<% Set con = Server.CreateObject("ADODB.Connection") con.Open dbURL q = "select * from notepad where db='"&db&"' and sector='"§or&"'" Set rs = Server.CreateObject("ADODB.Recordset") rs.Open q, con while not rs.EOF %>

<%=rs("note")%>

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

 

<% Set con2 = Server.CreateObject("ADODB.Connection") con2.Open dbURL q2 = "select * from attachments where db='"&db&"' and sector='"§or&"'" Set rs2 = Server.CreateObject("ADODB.Recordset") rs2.Open q2, con2 while not rs2.EOF %>

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

<% rs2.movenext wend rs2.close con2.close %>