<% If Request.Cookies("Webmaster") <> "Validated" Then Response.Redirect("/ctrfiles/stats/login.asp") End if Dim MyFile MyFile = Server.MapPath("/database/houseview.mdb") Dim DataConnection, cmdDC, RecordSet Dim RecordToEdit, Updated Set DataConnection = Server.CreateObject("ADODB.Connection") DataConnection.ConnectionTimeout = 20 DataConnection.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & MyFile & ";" Set cmdDC = Server.CreateObject("ADODB.Command") cmdDC.ActiveConnection = DataConnection SQL = "SELECT * FROM Listings ORDER BY Listings.MLS ASC" cmdDC.CommandText = SQL Set RecordSet = Server.CreateObject("ADODB.Recordset") RecordSet.Open cmdDC, , 0, 2 %> AllListings...Sorted by MLS#

<% If Not RecordSet.BOF Then RecordSet.MoveFirst Do Until RecordSet.EOF Response.Write(" " & RecordSet.Fields("MLS") & " - ") Response.Write(FormatCurrency(RecordSet.Fields("price"),0,0) & " - ") Response.Write(RecordSet.Fields("RealitorAbb") & " " & Chr(13)) RecordSet.MoveNext Loop End If %>

<% RecordSet.Close Set RecordSet = Nothing Set cmdDC = Nothing DataConnection.Close Set DataConnection = Nothing %>