<%@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 %> RosenBerg

FORECLOSURE SALES
Sort By: State | Sale Date | Jurisdiction


NOTE:


Under Construction


Please check back soon.



<% dim strStyle, strFontcolor, strStatus, strStyleend %> <% While ((Repeat1__numRows <> 0) AND (NOT Recordset1.EOF)) %> <% strStatus = Recordset1.Fields.Item("Status").Value 'DEFINES FONT COLOR if strStatus = "" then strFontcolor = "" if strStatus = "Sold" then strFontcolor = "" if strStatus = "Cancelled" then strFontcolor = "" 'DEFINES WHETHER THE TEXT HAS STRIKETHROUGH STYLE if strStatus = "Cancelled" then strStyle = "" if strStatus = "Cancelled" then strStyleend = "" if strStatus = "Sold" then strStyle = "" if strStatus = "Sold" then strStyleend = "" if strStatus = "" then strStyle = "" if strStatus = "" then strStyleend = "" %> <% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 Recordset1.MoveNext() Wend %>
File Sale Date Sale Time Property Address City Jurisdiction
State
Zip
Deposit

Back To Top

Click Here for a Printer Friendly Version