<%
Server.ScriptTimeOut = 320
If Request.Cookies("Webmaster") <> "Validated" Then
Response.Redirect("/ctrfiles/stats/login.asp")
End if
IF Request.Form("Continue") = "Continue" Then
Dim Connect,sqlnew,Connect2,Connect3,sqlnew2,strofficeHV,strofficeHZ,RS,RS2,RS3
' Change these in the SQL Strings As Well!!!
strofficeHV="3,7,2,10"
strofficeHZ="2,20,59,64"
' Change these in the SQL Strings As Well!!!
'Open the Houseview Database+++++++++++++++++++++++++++++++++
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=D:\webroot\localuser\houseview\database\houseview.mdb;"
sqlnew="Select Listings.ID, Listings.MLS, Listings.Grouping, Listings.HZ, Listings.Pending From Listings WHERE Listings.Grouping = 3 OR Listings.Grouping = 7 OR Listings.Grouping = 2 OR Listings.Grouping = 10 ORDER BY Listings.MLS ASC"
Connect.execute("UPDATE Listings Set HZ='"& "no" & "'")
Set RS = Connect.execute(sqlnew)
'Open the Houseview Database+++++++++++++++++++++++++++++++++
'Open the Homezone Database----------------------------------
Set Connect2 = Server.CreateObject("ADODB.Connection")
Connect2.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=D:\webroot\localuser\homezonetv\database\homezonetv.mdb;"
sqlnew2="Select Property.MLS,Property.AUX3,Property.GROUPING From Property WHERE (Trim(Property.AUX3) = '" & "yes" & "') AND (Trim(Property.Grouping) = '" & "2" & "' OR Trim(Property.Grouping) = '" & "20" & "' OR Trim(Property.Grouping) = '" & "59" & "' OR Trim(Property.Grouping) = '" & "64" & "') ORDER BY Property.MLS ASC"
Set RS2 = Connect2.execute(sqlnew2)
'Open the Homezone Database----------------------------------
'Open the Homezone Database but with all listings----------------------------------
Set Connect3 = Server.CreateObject("ADODB.Connection")
Connect3.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=D:\webroot\localuser\homezonetv\database\homezonetv.mdb;"
sqlnew3="Select Property.ID,Property.MLS,Property.GROUPING,Property.AUX3 From Property WHERE (Trim(Property.Grouping) = '" & "1" & "' OR Trim(Property.Grouping) = '" & "2" & "' OR Trim(Property.Grouping) = '" & "20" & "' OR Trim(Property.Grouping) = '" & "59" & "') ORDER BY Property.MLS ASC"
Set RS3 = Connect3.execute(sqlnew3)
'Open the Homezone Database but with all listings----------------------------------
If Not RS.BOF Then
RS.MoveFirst
Do Until RS.EOF
If Not RS2.BOF Then
RS2.MoveFirst
Do Until RS2.EOF
IF Trim(RS2.Fields("MLS")) = Trim(RS.Fields("MLS")) Then
Response.Write("" & RS.Fields("MLS") & " ")
Connect.execute("UPDATE Listings Set Listings.HZ = '" & "yes" & "' WHERE Listings.ID = " & RS.Fields("ID"))
End if
RS2.MoveNext
Loop
End if
RS.MoveNext
Loop
End if
'Remove invalid Listings from The HomeZone Database++++++++++++++++++++++++
'++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Dim objFSO
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Function Deleteit(deletename,GROUPINGID)
Deleteit = False
'Delete uploaded images------------------------------------------------------------------
If objFSO.FileExists("D:\webroot\localuser\homezonetv\photos\" & GROUPINGID & "\" & deletename & "_A.jpg") Then
objFSO.deletefile("D:\webroot\localuser\homezonetv\photos\" & GROUPINGID & "\" & deletename & "_A.jpg")
end if
If objFSO.FileExists("D:\webroot\localuser\homezonetv\photos\" & GROUPINGID & "\" & deletename & "_B.jpg") Then
objFSO.deletefile("D:\webroot\localuser\homezonetv\photos\" & GROUPINGID & "\" & deletename & "_B.jpg")
end if
If objFSO.FileExists("D:\webroot\localuser\homezonetv\photos\" & GROUPINGID & "\" & deletename & "_C.jpg") Then
objFSO.deletefile("D:\webroot\localuser\homezonetv\photos\" & GROUPINGID & "\" & deletename & "_C.jpg")
end if
If objFSO.FileExists("D:\webroot\localuser\homezonetv\photos\" & GROUPINGID & "\" & deletename & "_D.jpg") Then
objFSO.deletefile("D:\webroot\localuser\homezonetv\photos\" & GROUPINGID & "\" & deletename & "_D.jpg")
end if
If objFSO.FileExists("D:\webroot\localuser\homezonetv\photos\" & GROUPINGID & "\" & deletename & "_E.jpg") Then
objFSO.deletefile("D:\webroot\localuser\homezonetv\photos\" & GROUPINGID & "\" & deletename & "_E.jpg")
end if
If objFSO.FileExists("D:\webroot\localuser\homezonetv\photos\" & GROUPINGID & "\" & deletename & "_F.jpg") Then
objFSO.deletefile("D:\webroot\localuser\homezonetv\photos\" & GROUPINGID & "\" & deletename & "_F.jpg")
end if
If objFSO.FileExists("D:\webroot\localuser\homezonetv\photos\" & GROUPINGID & "\" & deletename & "_G.jpg") Then
objFSO.deletefile("D:\webroot\localuser\homezonetv\photos\" & GROUPINGID & "\" & deletename & "_G.jpg")
end if
If objFSO.FileExists("D:\webroot\localuser\homezonetv\photos\" & GROUPINGID & "\" & deletename & "_H.jpg") Then
objFSO.deletefile("D:\webroot\localuser\homezonetv\photos\" & GROUPINGID & "\" & deletename & "_H.jpg")
end if
If objFSO.FileExists("D:\webroot\localuser\homezonetv\photos\" & GROUPINGID & "\" & deletename & "_I.jpg") Then
objFSO.deletefile("D:\webroot\localuser\homezonetv\photos\" & GROUPINGID & "\" & deletename & "_I.jpg")
end if
'-----------------------------------------------------------------------------------------
'Delete templates------------------------------------------------------------------
If objFSO.FileExists("D:\webroot\localuser\homezonetv\photos\" & GROUPINGID & "\finalimage\" & deletename & "_A.jpg") Then
objFSO.deletefile("D:\webroot\localuser\homezonetv\photos\" & GROUPINGID & "\finalimage\" & deletename & "_A.jpg")
end if
If objFSO.FileExists("D:\webroot\localuser\homezonetv\photos\" & GROUPINGID & "\finalimage\" & deletename & "_B.jpg") Then
objFSO.deletefile("D:\webroot\localuser\homezonetv\photos\" & GROUPINGID & "\finalimage\" & deletename & "_B.jpg")
end if
If objFSO.FileExists("D:\webroot\localuser\homezonetv\photos\" & GROUPINGID & "\finalimage\" & deletename & "_C.jpg") Then
objFSO.deletefile("D:\webroot\localuser\homezonetv\photos\" & GROUPINGID & "\finalimage\" & deletename & "_C.jpg")
end if
If objFSO.FileExists("D:\webroot\localuser\homezonetv\photos\" & GROUPINGID & "\finalimage\" & deletename & "_D.jpg") Then
objFSO.deletefile("D:\webroot\localuser\homezonetv\photos\" & GROUPINGID & "\finalimage\" & deletename & "_D.jpg")
end if
If objFSO.FileExists("D:\webroot\localuser\homezonetv\photos\" & GROUPINGID & "\finalimage\" & deletename & "_E.jpg") Then
objFSO.deletefile("D:\webroot\localuser\homezonetv\photos\" & GROUPINGID & "\finalimage\" & deletename & "_E.jpg")
end if
If objFSO.FileExists("D:\webroot\localuser\homezonetv\photos\" & GROUPINGID & "\finalimage\" & deletename & "_F.jpg") Then
objFSO.deletefile("D:\webroot\localuser\homezonetv\photos\" & GROUPINGID & "\finalimage\" & deletename & "_F.jpg")
end if
If objFSO.FileExists("D:\webroot\localuser\homezonetv\photos\" & GROUPINGID & "\finalimage\" & deletename & "_G.jpg") Then
objFSO.deletefile("D:\webroot\localuser\homezonetv\photos\" & GROUPINGID & "\finalimage\" & deletename & "_G.jpg")
end if
If objFSO.FileExists("D:\webroot\localuser\homezonetv\photos\" & GROUPINGID & "\finalimage\" & deletename & "_H.jpg") Then
objFSO.deletefile("D:\webroot\localuser\homezonetv\photos\" & GROUPINGID & "\finalimage\" & deletename & "_H.jpg")
end if
If objFSO.FileExists("D:\webroot\localuser\homezonetv\photos\" & GROUPINGID & "\finalimage\" & deletename & "_I.jpg") Then
objFSO.deletefile("D:\webroot\localuser\homezonetv\photos\" & GROUPINGID & "\finalimage\" & deletename & "_I.jpg")
end if
'-----------------------------------------------------------------------------------------
'Delete zip file------------------------------------------------------------------
If objFSO.FileExists("D:\webroot\localuser\homezonetv\photos\" & GROUPINGID & "\finalimage\" & deletename & ".zip") Then
objFSO.deletefile("D:\webroot\localuser\homezonetv\photos\" & GROUPINGID & "\finalimage\" & deletename & ".zip")
end if
'-----------------------------------------------------------------------------------------
'Delete fullscreen file------------------------------------------------------------------
If objFSO.FileExists("D:\webroot\localuser\homezonetv\photos\" & GROUPINGID & "\finalimage\" & deletename & ".jpg") Then
objFSO.deletefile("D:\webroot\localuser\homezonetv\photos\" & GROUPINGID & "\finalimage\" & deletename & ".jpg")
end if
If objFSO.FileExists("D:\webroot\localuser\homezonetv\photos\" & GROUPINGID & "\" & deletename & ".jpg") Then
objFSO.deletefile("D:\webroot\localuser\homezonetv\photos\" & GROUPINGID & "\" & deletename & ".jpg")
end if
'-----------------------------------------------------------------------------------------
'Delete Thumbnail------------------------------------------------------------------
If objFSO.FileExists("D:\webroot\localuser\homezonetv\photos\" & GROUPINGID & "\thumbs\" & deletename & ".jpg") Then
objFSO.deletefile("D:\webroot\localuser\homezonetv\photos\" & GROUPINGID & "\thumbs\" & deletename & ".jpg")
end if
'-----------------------------------------------------------------------------------------
'Delete Notes if There------------------------------------------------------------------
If objFSO.FileExists("D:\webroot\localuser\homezonetv\photos\" & deletename & ".txt") Then
objFSO.deletefile("D:\webroot\localuser\homezonetv\photos\" & deletename & ".txt")
end if
'-----------------------------------------------------------------------------------------
'Delete Audio file if There---------------------------------------------------------------
If objFSO.FileExists("D:\webroot\localuser\homezonetv\photos\" & deletename & ".asf") Then
objFSO.deletefile("D:\webroot\localuser\homezonetv\photos\" & deletename & ".asf")
end if
'-----------------------------------------------------------------------------------------
Deleteit = True
End Function
'-----------------------------------------------------------------------------------------
'---------Property Category Specific-------------------------------------------------------
sub BuildCATPropertyTextFile()
For i = 1 to 8 step 1
Set TXTProperty = Connect3.Execute("SELECT * FROM Property WHERE CAT = '" & i & "' ORDER BY PRICE ASC")
Set MyTextFile = objFSO.CreateTextFile("D:\webroot\localuser\homezonetv\database\" & i & ".dat")
If Not TXTProperty.BOF Then
TXTProperty.MoveFirst
Do Until TXTProperty.EOF
MyTextFile.WriteLine ("NEW")
MyTextFile.WriteLine TXTProperty.Fields("PRICE") & "^" & TXTProperty.Fields("MLS") &_
"^" & TXTProperty.Fields("BED") & "^" & TXTProperty.Fields("BATH") & "^" & TXTProperty.Fields("CITY") &_
"^" & TXTProperty.Fields("STATE") & "^" & TXTProperty.Fields("AGENTF") & "^" & TXTProperty.Fields("AGENTL") &_
"^" & TXTProperty.Fields("GROUPING") & "^" & TXTProperty.Fields("CREATED") & "^" & TXTProperty.Fields("AGENCY") &_
"^" & TXTProperty.Fields("EMAIL") & "^" & TXTProperty.Fields("BUS") & "^" & TXTProperty.Fields("RES") & "^" & TXTProperty.Fields("PGR") &_
"^" & TXTProperty.Fields("CAT") & "^" & TXTProperty.Fields("DESC1") & "^" & TXTProperty.Fields("DESC2") &_
"^" & TXTProperty.Fields("DESC3") & "^" & TXTProperty.Fields("DESC4") & "^" & TXTProperty.Fields("DESC5") &_
"^" & TXTProperty.Fields("LOGO") & "^" & TXTProperty.Fields("URL") & "^" & TXTProperty.Fields("OH") & "^" & TXTProperty.Fields("OHADDRESS") &_
"^" & TXTProperty.Fields("OHDATE") & "^" & TXTProperty.Fields("ZIP") & "^" & TXTProperty.Fields("OHUSENUM") & "^" & TXTProperty.Fields("AUX1") &_
"^" & TXTProperty.Fields("AUX2") & "^" & TXTProperty.Fields("AUX3") & "^" & TXTProperty.Fields("OH2") & "^" & TXTProperty.Fields("OH3")
TXTProperty.MoveNext
Loop
MyTextFile.Close
End if
Set TXTProperty = Nothing
Next
End Sub
'---------End Property Category Specific---------------------------------------------------------------------
'---------Property---------------------------------------------------------------------
sub BuildPropertyTextFile()
Set TXTProperty = Connect3.Execute("SELECT * FROM Property ORDER BY PRICE ASC")
Set MyTextFile = objFSO.CreateTextFile("D:\webroot\localuser\homezonetv\database\Property.txt")
If Not TXTProperty.BOF Then
TXTProperty.MoveFirst
Do Until TXTProperty.EOF
MyTextFile.WriteLine ("NEW")
MyTextFile.WriteLine TXTProperty.Fields("PRICE") & "^" & TXTProperty.Fields("MLS") &_
"^" & TXTProperty.Fields("BED") & "^" & TXTProperty.Fields("BATH") & "^" & TXTProperty.Fields("CITY") &_
"^" & TXTProperty.Fields("STATE") & "^" & TXTProperty.Fields("AGENTF") & "^" & TXTProperty.Fields("AGENTL") &_
"^" & TXTProperty.Fields("GROUPING") & "^" & TXTProperty.Fields("CREATED") & "^" & TXTProperty.Fields("AGENCY") &_
"^" & TXTProperty.Fields("EMAIL") & "^" & TXTProperty.Fields("BUS") & "^" & TXTProperty.Fields("RES") & "^" & TXTProperty.Fields("PGR") &_
"^" & TXTProperty.Fields("CAT") & "^" & TXTProperty.Fields("DESC1") & "^" & TXTProperty.Fields("DESC2") &_
"^" & TXTProperty.Fields("DESC3") & "^" & TXTProperty.Fields("DESC4") & "^" & TXTProperty.Fields("DESC5") &_
"^" & TXTProperty.Fields("LOGO") & "^" & TXTProperty.Fields("URL") & "^" & TXTProperty.Fields("OH") & "^" & TXTProperty.Fields("OHADDRESS") &_
"^" & TXTProperty.Fields("OHDATE") & "^" & TXTProperty.Fields("ZIP") & "^" & TXTProperty.Fields("OHUSENUM") & "^" & TXTProperty.Fields("AUX1") &_
"^" & TXTProperty.Fields("AUX2") & "^" & TXTProperty.Fields("AUX3") & "^" & TXTProperty.Fields("OH2") & "^" & TXTProperty.Fields("OH3")
TXTProperty.MoveNext
Loop
MyTextFile.Close
End if
Set TXTProperty = Nothing
BuildCATPropertyTextFile
End Sub
'---------End Property---------------------------------------------------------------------
Response.Write("
")
Dim rebuildhz
rebuildhz = False
If Not RS3.BOF Then
RS3.MoveFirst
Do Until RS3.EOF
IF NOT objFSO.FileExists(Server.MapPath("/images/" & RS3.Fields("MLS") & "/" & RS3.Fields("MLS") & ".asp")) Then
IF Trim(LCase(RS3.Fields("AUX3"))) = "yes" Then
Response.Write("" & RS3.Fields("MLS") & "-(HZ Group " & RS3.Fields("GROUPING") & ")" & "- Folder Not Present On Houseview and is Airing On The Hone Zone! ")
ElseIF Trim(LCase(RS3.Fields("AUX3"))) <> "yes" Then
Response.Write("" & RS3.Fields("MLS") & "-(HZ Group " & RS3.Fields("GROUPING") & ")" & "- Folder Not Present On Houseview and is on The Hone Zone! ")
End if
Else
If Not RS.BOF Then
RS.MoveFirst
Do Until RS.EOF
IF Trim(RS3.Fields("MLS")) = Trim(RS.Fields("MLS")) AND Trim(RS.Fields("Pending")) <> "No" Then
Response.Write("" & RS3.Fields("MLS") & "-(HZ Group " & RS3.Fields("GROUPING") & ")- Sld/Wth/Exp Deleted! ")
If Deleteit(RS3.Fields("MLS"),RS3.Fields("GROUPING")) Then
Connect3.Execute("Delete From property WHERE ID =" & RS3.Fields("ID"))
rebuildhz = True
End if
End if
RS.MoveNext
Loop
End if
End if
RS3.MoveNext
Loop
End if
If rebuildhz Then
BuildPropertyTextFile
End if
'Remove invalid Listings from The HomeZone Database++++++++++++++++++++++++
'++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
'******Close All Connections*************
Set objFSO = Nothing
Connect.Close
Set Connect = Nothing
Set RS = Nothing
Connect2.Close
Set Connect2 = Nothing
Set RS2 = Nothing
Connect3.Close
Set Connect3 = Nothing
Set RS3 = Nothing
'******Close All Connections*************
Response.Write(" Update Successful! Remember to Update Text Files! ")
End if
%>
This will Syncronize www.homezonetv.com Aired listings to
www.houseviewonline.com listings. to place a HZ bug on the Listing