<%
set rstRealty = CreateObject("ADODB.Recordset")
rstRealty.Open "SELECT * FROM Realty WHERE Country = 1 and St = 'FL' ORDER BY Realty", "DSN=OldProperty"
while not rstRealty.EOF
if rstRealty("Realty") <> "Owner" then
'Check if this entry should be skipped
if instr(rstRealty("Realty"), "*") = 0 then
'This is a local site
StrBuf = rstRealty("Url")
AltBuf = "(WebSite)"
if isnull(rstRealty("Url")) then
StrBuf = "/fc/" & rstRealty("Unq") & "_index.htm"
AltBuf = ""
end if
Response.Write("")
end if
end if
rstRealty.MoveNext
wend
rstRealty.Close
set rstRealty = nothing
%>
The Rest of the World - USA and The World
<%
set rstRealty = CreateObject("ADODB.Recordset")
rstRealty.Open "SELECT * FROM Realty WHERE (Country = 1 and St <> 'FL') or Country > 1 ORDER BY Realty", "DSN=OldProperty"
while not rstRealty.EOF
if rstRealty("Realty") <> "Owner" then
'Check if this entry should be skipped
if instr(rstRealty("Realty"), "*") = 0 then
'This is a local site
StrBuf = rstRealty("Url")
AltBuf = "(WebSite)"
if isnull(rstRealty("Url")) then
StrBuf = "http://www.florida-properties.com/fc/" & rstRealty("Unq") & "_index.htm"
AltBuf = ""
end if
'Get the country it's in
set rstCountry = CreateObject("ADODB.Recordset")
rstCountry.Open "Select * from Country WHERE Unq = " & rstRealty("Country"), "DSN=OldProperty"
CtyBuf = rstCountry("Country")
if rstRealty("Country") = 1 then
CtyBuf = rstRealty("St")
end if
Response.Write("" & vbCrLf)
rstCountry.Close
end if
end if
rstRealty.MoveNext
wend
rstRealty.Close
set rstRealty = nothing
%>
|
