%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <% Dim Recordset1__Sort Recordset1__Sort = "Jurisdiction" If (request.querystring("sort") <> "") Then Recordset1__Sort = request.querystring("sort") End If %> <% Dim Recordset1 Dim Recordset1_numRows Const ForReading = 1 Set Recordset1 = Server.CreateObject("ADODB.Recordset") Recordset1.CursorType = 0 Recordset1.CursorLocation = 3 Recordset1.LockType = 3 Recordset1.ActiveConnection = Nothing Set objFSO = Server.CreateObject("Scripting.FileSystemObject") Set objFile = objFSO.OpenTextFile(Server.MapPath("./Sales.txt"), ForReading) Recordset1.Fields.Append "FileNumber",200,255 Recordset1.Fields.Append "Jurisdiction",200,255 Recordset1.Fields.Append "State",200,255 Recordset1.Fields.Append "Sale",7 Recordset1.Fields.Append "SaleTime",200,255 Recordset1.Fields.Append "PropertyAddress",200,255 Recordset1.Fields.Append "City",200,255 Recordset1.Fields.Append "Zip",200,255 Recordset1.Fields.Append "Deposit",200,255 Recordset1.Fields.Append "Status",200,255 Recordset1.Open On Error Resume Next Do Until objFile.AtEndOfStream strLine = objFile.ReadLine arrFields = Split(strLine, ";") Recordset1.addNew Recordset1.Fields("FileNumber") = CleanString(arrFields(0)) Recordset1.Fields("Sale") = Trim(CleanString(arrFields(1))) Recordset1.Fields("SaleTime") = CleanString(Right(arrFields(2),8)) Recordset1.Fields("PropertyAddress") = CleanString(arrFields(3)) Recordset1.Fields("City") = CleanString(arrFields(4)) Recordset1.Fields("Jurisdiction") = CleanString(arrFields(5)) Recordset1.Fields("State") = CleanString(arrFields(6)) Recordset1.Fields("Zip") = CleanString(arrFields(7)) Recordset1.Fields("Deposit") = CleanString(arrFields(8)) Recordset1.Fields("Status") = CleanString(arrFields(9)) Loop objFile.Close Recordset1.Sort = Replace(Recordset1__Sort, """", "") & " ASC" Recordset1.MoveFirst 'Set c = Server.CreateObject("ADODB.Connection") 'Datapath = Server.MapPath("./") 'Recordset1.ActiveConnection = c 'Recordset1.Source = "SELECT * FROM Sales.txt ORDER BY " + Replace(Recordset1__Sort, "'", "''") + " ASC" 'Recordset1.ActiveConnection = MM_rb_STRING 'Recordset1.Source = "SELECT * FROM Sales ORDER BY " + Replace(Recordset1__Sort, "'", "''") + " ASC" 'Recordset1.Open() Recordset1_numRows = 0 Function CleanString(strString) strString = Replace(strString,"""","") CleanString = strString End Function %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = -1 Repeat1__index = 0 Recordset1_numRows = Recordset1_numRows + Repeat1__numRows %>
FORECLOSURE
SALES NOTE:
Please check back soon.
|