<% If Request.Cookies("Webmaster") <> "Validated" Then Response.Redirect("/ctrfiles/stats/login.asp") End if connectme="Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("/database/houseview.mdb") &";" 'connectme="Driver={SQL Server};Server=208.18.48.246;Database=houseviewonline;Uid=houseviewonline;Pwd=supernova04;" sqltemp="SELECT * FROM Listings ORDER BY Listings.MLS ASC" mypage=request("whichpage") If mypage="" then mypage=1 end if mypagesize=request.form("pagesize") If mypagesize="" then mypagesize=30 end if mySQL=request("SQLquery") IF mySQL="" THEN mySQL=SQLtemp END IF set RecordSet=Server.CreateObject("ADODB.Recordset") RecordSet.cursorlocation=aduseclient RecordSet.cachesize=5 RecordSet.open mySQL,connectme If NOT RecordSet.BOF AND NOT RecordSet.EOF then RecordSet.movefirst RecordSet.pagesize=mypagesize maxpages=cint(RecordSet.pagecount) maxrecs=cint(RecordSet.pagesize) RecordSet.absolutepage=mypage howmanyrecs=0 howmanyfields=RecordSet.fields.count -1 End if %> housevew
<% If RecordSet.BOF AND RecordSet.EOF then %>


No Current Records to Display....
<% RecordSet.close set RecordSet=nothing Response.End End if %>

<% Call PageNavBar %> <% Dim bgcolor DO UNTIL RecordSet.eof OR howmanyrecs>=maxrecs if bgcolor = "#ffffff" then bgcolor = "#f5f5eb" else bgcolor = "#ffffff" end if Response.Write("" & Chr(13)) Response.Write(" " & Chr(13)) Response.Write(" " & Chr(13)) Response.Write(" " & Chr(13)) Response.Write(" " & Chr(13)) Response.Write(" " & Chr(13)) Response.Write(" " & Chr(13)) Response.Write(" " & Chr(13)) Response.Write(" " & Chr(13)) Response.Write(" " & Chr(13)) Response.Write("" & Chr(13)) RecordSet.movenext howmanyrecs=howmanyrecs+1 LOOP %>
Edit Listing...Sorted by MLS # Page <%=mypage%> of <%=maxpages%>
MLS# Price Cat Bd Bt Location Agent A-Grp I/O
" & RecordSet.Fields("MLS") & "" & FormatCurrency(RecordSet.Fields("price"),0,0) & "" & RecordSet.Fields("PriceCat") & "" & RecordSet.Fields("Bdrm") & "" & RecordSet.Fields("Bthrm") & "" & RecordSet.Fields("Location") & "" & RecordSet.Fields("RealitorAbb") & "" & RecordSet.Fields("Grouping") & "" & RecordSet.Fields("Pano") & "

Listing Count

<% RecordSet.close set RecordSet=nothing Call PageNavBar sub PageNavBar() pad="" scriptname=request.servervariables("script_name") response.write "" response.write "" response.write "
" response.write "" if (mypage mod 10) = 0 then counterstart = mypage - 9 else counterstart = mypage - (mypage mod 10) + 1 end if counterend = counterstart + 9 if counterend > maxpages then counterend = maxpages if counterstart <> 1 then ref="First : " Response.Write ref ref="Previous " Response.Write ref end if Response.Write "Jump to page[" for counter=counterstart to counterend If counter>=10 then pad="" end if if cstr(counter) <> mypage then ref="" & pad & counter & "" else ref="" & pad & counter & "" end if response.write ref if counter <> counterend then response.write " " next Response.Write "]" if counterend <> maxpages then ref=" Next" Response.Write ref ref=" : Last" Response.Write ref end if response.write "
" response.write "
" end sub %>