Property
Search
Land & Acreage Search
Real Estate Offices
Real Estate Agents
Burke County Links
Back to Home Page |
Burke County Links
<%
Response.write " "
dim conn
set conn = server.createobject("adodb.connection")
Conn.Open "DBQ=D:\Inetpub\wwwroot\111116\p6v4fx3k\databases\homes.mdb;DefaultDir=D:\Inetpub\wwwroot\111116\p6v4fx3k\databases\;Driver={Microsoft Access Driver (*.mdb)};Exclusive=False;DriverId=25;FIL=MS Access;ImplicitCommitSync=Yes;MaxBufferSize=512;MaxScanRows=8;PageTimeout=5;SafeTransactions=0;Threads=3;UID=admin;UserCommitSync=Yes;"
REOSql = "Select * from REALESTATEOFFICE ORDER BY NAME"
Set REORS = Conn.Execute(REOSql)
do while not REORS.EOF
Response.write REORS("name") & "
"
if REORS("add1") <> "" then
Response.write REORS("add1") & "
"
end if
if REORS("city") <> "" then
Response.write REORS("city") & " "
end if
if REORS("state") <> "" then
Response.write REORS("state") & " "
end if
if REORS("zip") <> "" then
Response.write REORS("zip") & " "
end if
Response.write "
"
if REORS("phone") <> "" then
Response.write "Phone: " & REORS("phone") & "
"
end if
if REORS("email") <> "" then
Response.write "Email: " & REORS("email") & "
"
end if
if REORS("website") <> "" then
Response.write "Web Site: " & REORS("website") & "
"
end if
Response.write "
"
REORS.movenext
Loop
Response.write " |
"
reors.close
conn.close
%>
|
