book3.gif (15850 bytes) homedrop.gif (10459 bytes)
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 %>

Copyright © 1998-2008  Homes Magazine, All Rights Reserved.