|
<%
Dim MyFile
MyFile = Server.MapPath("/database/houseview.mdb")
Dim DataConnection, cmdDC, RecordSet, cmdDC2, RecordSet2, SQL
Set DataConnection = Server.CreateObject("ADODB.Connection")
DataConnection.ConnectionTimeout = 20
DataConnection.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & MyFile &";"
Set cmdDC = Server.CreateObject("ADODB.Command")
cmdDC.ActiveConnection = DataConnection
SQL = "SELECT * FROM Locations ORDER BY Locations.Location ASC"
cmdDC.CommandText = SQL
Set RecordSet = Server.CreateObject("ADODB.Recordset")
RecordSet.Open cmdDC, , 2, 2
Dim MyTextFile, MyFileObj, counter
counter = 0
Set MyFileObj = Server.CreateObject("Scripting.FileSystemObject")
Set MyTextFile = MyFileObj.CreateTextFile(Server.MapPath("/database/locations.txt"))
If Not RecordSet.BOF Then
RecordSet.MoveFirst
Do Until RecordSet.EOF
MyTextFile.WriteLine ("TRUE")
MyTextFile.WriteLine (Trim(Recordset.Fields("Location")))
counter = counter + 1
RecordSet.MoveNext
Loop
End If
Response.Write("Location List Done updated-" & counter & "-Records ")
MyTextFile.Close
Set MyFileObj = Nothing
RecordSet.Close
Set cmdDC = Nothing
%>
<%
Set cmdDC1 = Server.CreateObject("ADODB.Command")
cmdDC1.ActiveConnection = DataConnection
SQL = "SELECT * FROM Listings ORDER BY Listings.price ASC"
cmdDC1.CommandText = SQL
Set RecordSet1 = Server.CreateObject("ADODB.Recordset")
RecordSet1.Open cmdDC1, , 2, 2
Dim MyTextFile1, MyFileObj1, objFileItem1, MyCountFile, MyLinksFile1, Linetowrite
counter1 = 0
Set MyFileObj1 = Server.CreateObject("Scripting.FileSystemObject")
Set MyTextFile1 = MyFileObj1.CreateTextFile(Server.MapPath("/database/property.txt"))
Set MyLinksFile1 = MyFileObj1.CreateTextFile(Server.MapPath("/database/Links.txt"))
If Not RecordSet1.BOF Then
RecordSet1.MoveFirst
Do Until RecordSet1.EOF
if Recordset1.Fields("MLS") <> 999999999 then
MyTextFile1.WriteLine "TRUE"
Linetowrite = Trim(Recordset1.Fields("MLS")) & "^" & Trim(Recordset1.Fields("price")) & "^"_
& Trim(Recordset1.Fields("RealitorAbb")) & "^" & Trim(Recordset1.Fields("Location")) & "^"_
& Trim(Recordset1.Fields("pricecat")) & "^" & Trim(Recordset1.Fields("Bdrm")) & "^"_
& Trim(Recordset1.Fields("Bthrm")) & "^" & Trim(Recordset1.Fields("Pano")) & "^"_
& Trim(Recordset1.Fields("Pending")) & "^" & Trim(Recordset1.Fields("Grouping"))
If Instr(1,Trim(Recordset1.Fields("HomeDesc")),"SOLD/EXPIRED/WITHDRAWN",1) Then
Linetowrite = Linetowrite & "^yes"
Else
If Trim(Recordset1.Fields("Pending")) = "Rtd" Then
Linetowrite = Linetowrite & "^yes"
Else
Linetowrite = Linetowrite & "^no"
End if
End if
Linetowrite = Linetowrite & "^" & Trim(Recordset1.Fields("HomeDesc"))
Linetowrite = Linetowrite & "^" & Trim(Recordset1.Fields("HZ"))& "^" & Trim(Recordset1.Fields("address")) & "^" & Trim(Recordset1.Fields("city")) & "^" & Trim(Recordset1.Fields("State")) & "^" & Trim(Recordset1.Fields("Zip")) & "^" & Trim(Recordset1.Fields("externaltour"))
MyTextFile1.WriteLine(Linetowrite)
MyLinksFile1.WriteLine(" " & "MLS #" & Trim(Recordset1.Fields("MLS")) & " Located in " _
& Trim(Recordset1.Fields("Location")) & " " & Trim(Recordset1.Fields("Bdrm")) & " Bed " & Trim(Recordset1.Fields("Bthrm")) & " Bath " & FormatCurrency(Trim(Recordset1.Fields("price")),0,0) & "")
If Instr(1,Trim(Recordset1.Fields("HomeDesc")),"SOLD/EXPIRED/WITHDRAWN",1) Then
counter1 = counter1
Else
counter1 = counter1 + 1
End if
Linetowrite = ""
end if
RecordSet1.MoveNext
Loop
End If
Response.Write("Listings Done updated-" & counter1 & "-Records")
Set MyCountFile = MyFileObj1.CreateTextFile(Server.MapPath("/database/recordcount.txt"))
MyCountFile.WriteLine (counter1)
MyCountFile.Close
Set MyCountFile = Nothing
MyTextFile1.Close
MyLinksFile1.Close
Set MyFileObj1 = Nothing
RecordSet1.Close
Set cmdDC1 = Nothing
%>
<%
Set cmdDC2 = Server.CreateObject("ADODB.Command")
cmdDC2.ActiveConnection = DataConnection
SQL = "SELECT * FROM Agents ORDER BY Agents.Agentlast ASC"
cmdDC2.CommandText = SQL
Set RecordSet2 = Server.CreateObject("ADODB.Recordset")
RecordSet2.Open cmdDC2, , 2, 2
Dim MyTextFile2, MyFileObj2, counter2
counter2 = 0
Set MyFileObj2 = Server.CreateObject("Scripting.FileSystemObject")
Set MyTextFile2 = MyFileObj2.CreateTextFile(Server.MapPath("/database/agents.txt"))
If Not RecordSet2.BOF Then
RecordSet2.MoveFirst
Do Until RecordSet2.EOF
MyTextFile2.WriteLine "TRUE"
MyTextFile2.WriteLine Trim(Recordset2.Fields("AgentFirst")) & "^" & Trim(Recordset2.Fields("AgentLast")) & "^"_
& Trim(Recordset2.Fields("RealitorAbb")) & "^" & Trim(Recordset2.Fields("RealitorDesc")) & "^"_
& Trim(Recordset2.Fields("Grouping")) & "^" & Trim(Recordset2.Fields("Email")) & "^"_
& Trim(Recordset2.Fields("Bus")) & "^" & Trim(Recordset2.Fields("Res")) & "^"_
& Trim(Recordset2.Fields("Pgr")) & "^" & Trim(Recordset2.Fields("leadphone")) & "^" & Trim(Recordset2.Fields("leadphoneaddress"))
counter2 = counter2 + 1
RecordSet2.MoveNext
Loop
End If
Response.Write("Agent List Done updated-" & counter2 & "-Records ")
MyTextFile2.Close
Set MyFileObj2 = Nothing
RecordSet2.Close
Set cmdDC2 = Nothing
%>
<%
Set cmdDC5 = Server.CreateObject("ADODB.Command")
cmdDC5.ActiveConnection = DataConnection
SQL = "SELECT * FROM Listings ORDER BY Listings.price ASC"
cmdDC5.CommandText = SQL
Set RecordSet5 = Server.CreateObject("ADODB.Recordset")
RecordSet5.Open cmdDC5, , 2, 2
Dim MyTextFile5, MyFileObj5, objFileItem5
counter5 = 0
Set MyFileObj5 = Server.CreateObject("Scripting.FileSystemObject")
Set MyTextFile5 = MyFileObj5.CreateTextFile(Server.MapPath("/images/homeproperty.txt"))
If Not RecordSet5.BOF Then
RecordSet5.MoveFirst
Do Until RecordSet5.EOF
MyTextFile5.WriteLine "TRUE"
MyTextFile5.WriteLine Trim(Recordset5.Fields("MLS")) & "|" & Trim(Recordset5.Fields("price")) & "|"_
& Trim(Recordset5.Fields("RealitorAbb")) & "|" & Trim(Recordset5.Fields("Location")) & "|"_
& Trim(Recordset5.Fields("HomeDesc")) & "|" & Trim(Recordset5.Fields("Grouping")) & "|"_
& Trim(Recordset5.Fields("Bdrm")) & "|" & Trim(Recordset5.Fields("Bthrm")) & "|" & Trim(Recordset5.Fields("HZ")) & "|"_
& Trim(Recordset5.Fields("address")) & "|" & Trim(Recordset5.Fields("pricecat")) & "|" & Trim(Recordset5.Fields("Pending")) & "|"_
& Trim(Recordset5.Fields("City")) & "|" & Trim(Recordset5.Fields("State")) & "|" & Trim(Recordset5.Fields("Zip")) & "|" & Trim(Recordset5.Fields("externaltour"))
counter5 = counter5 + 1
RecordSet5.MoveNext
Loop
End If
Response.Write("Home-Listings Done updated-" & counter5 & "-Records ")
MyTextFile5.Close
Set MyFileObj5 = Nothing
RecordSet5.Close
Set cmdDC5 = Nothing
Set cmdDC6 = Server.CreateObject("ADODB.Command")
cmdDC6.ActiveConnection = DataConnection
SQL = "SELECT * FROM Listings WHERE Cint(Trim(shoottype)) < 4 AND Trim(Pending) <> '" & "Stg" & "' ORDER BY Listings.ID DESC"
cmdDC6.CommandText = SQL
Set RecordSet6 = Server.CreateObject("ADODB.Recordset")
RecordSet6.Open cmdDC6, , 2, 2
Dim MyTextFile6, MyFileObj6, objFileItem6
counter6 = 0
Set MyFileObj6 = Server.CreateObject("Scripting.FileSystemObject")
Set MyTextFile6 = MyFileObj6.CreateTextFile(Server.MapPath("/database/newlistings.txt"))
If Not RecordSet6.BOF Then
RecordSet6.MoveFirst
Do Until RecordSet6.EOF
MyTextFile6.WriteLine Trim(Recordset6.Fields("MLS")) & "|" & Trim(Recordset6.Fields("price")) & "|"_
& Trim(Recordset6.Fields("RealitorAbb")) & "|" & Trim(Recordset6.Fields("Location")) & "|"_
& Trim(Recordset6.Fields("pricecat")) & "|" & Trim(Recordset6.Fields("Bdrm")) & "|"_
& Trim(Recordset6.Fields("Bthrm")) & "|" & Trim(Recordset6.Fields("Pano")) & "|"_
& Trim(Recordset6.Fields("Pending")) & "|" & Trim(Recordset6.Fields("Grouping")) & "|" & Trim(Recordset6.Fields("HZ")) & "|"_
& Trim(Recordset6.Fields("address")) & "|" & Trim(Recordset6.Fields("city")) & "|"_
& Trim(Recordset6.Fields("State")) & "|" & Trim(Recordset6.Fields("Zip")) & "|" & Trim(Recordset6.Fields("externaltour")) & "|" & Trim(Recordset6.Fields("HomeDesc"))
counter6 = counter6 + 1
if counter6 = 10 then Exit Do
RecordSet6.MoveNext
Loop
End If
Response.Write("10 New Listings updated-" & counter6 & "-Records ")
MyTextFile6.Close
Set MyFileObj6 = Nothing
RecordSet6.Close
Set cmdDC6 = Nothing
%>
<%
Set cmdDC7 = Server.CreateObject("ADODB.Command")
cmdDC7.ActiveConnection = DataConnection
SQL = "SELECT * FROM Agents ORDER BY Agents.RealitorDesc ASC, Agents.AgentLast ASC"
cmdDC7.CommandText = SQL
Set RecordSet7 = Server.CreateObject("ADODB.Recordset")
RecordSet7.Open cmdDC7, , 2, 2
Dim MyTextFile7, MyFileObj7, counter7
counter7 = 0
Set MyFileObj7 = Server.CreateObject("Scripting.FileSystemObject")
Set MyTextFile7 = MyFileObj7.CreateTextFile(Server.MapPath("/database/agents_office.txt"))
If Not RecordSet7.BOF Then
RecordSet7.MoveFirst
Do Until RecordSet7.EOF
MyTextFile7.WriteLine "TRUE"
MyTextFile7.WriteLine Trim(Recordset7.Fields("AgentFirst")) & "^" & Trim(Recordset7.Fields("AgentLast")) & "^"_
& Trim(Recordset7.Fields("RealitorAbb")) & "^" & Trim(Recordset7.Fields("RealitorDesc")) & "^"_
& Trim(Recordset7.Fields("Grouping")) & "^" & Trim(Recordset7.Fields("Email")) & "^"_
& Trim(Recordset7.Fields("Bus")) & "^" & Trim(Recordset7.Fields("Res")) & "^"_
& Trim(Recordset7.Fields("Pgr")) & "^" & Trim(Recordset7.Fields("leadphone")) & "^" & Trim(Recordset7.Fields("leadphoneaddress"))
counter7 = counter7 + 1
RecordSet7.MoveNext
Loop
End If
Response.Write("Agent List by office Done updated-" & counter7 & "-Records ")
Response.Write("Completed Update on" & Now())
MyTextFile7.Close
Set MyFileObj7 = Nothing
RecordSet7.Close
Set cmdDC7 = Nothing
%>
<%
DataConnection.Close
Set DataConnection = Nothing
%>
|
