Real
Estate
Developers
and Contractors find or sell your next project.
Browse through
list of Real Estate opportunities in your area. Whether its residential,
Commercial, Renovations, developable land, Historic Renovations
and more. BuildersPlanet will help you find and build relationships
with professionals in the Real Estate Arena.
Real
Estate Links
Post
a listing now its FREE!
Stand out from
the crowd.
The following
are Properties of Interest. Post
a listing. Its FREE!
Press the 
button to see more details and Contact information
You can update or
delete an existing listing by pressing the update link next to a listing.
You must be logged in to see details, see the update links or to make
an update.
| |
Property Type |
Headline |
Description |
Price |
County |
Location |
Post
Date |
|
<%
' connect to the database
dim conn ' hold the connect to the database
'dim vSQL ' holds the sql statement to execute
dim vRec ' holds the record from query.
set conn = server.CreateObject("adodb.connection")
conn.Open Application("DBName"),Application("DBUser"),Application("DBPswd")
' set field vars
dim vQryRec_id, vCategSel, vHeadline, vDescrip, vPrice, vPropCnty, vContact
dim vPostTm, vToWeb, vToList, vToPriv, vName, vLocat, vCreateDt
dim vSuccess, vUpdateBut, vNoRecords, vGoBut
vLoginName = Session("login_name")
vLogin_id = Session("login_id")
' visit to page - get info from db
set vRec = conn.Execute (" select * from realestate where (verifyPost = 'checked') and (to_web = 'checked') and (ok_2Distrib = 'yes') and (spam_chck = 'False') order by created desc")
if( vRec.EOF ) then
vNoRecords = "Sorry but there are no records posted now. Check back again."
end if
dim vColors(2) ' the number of colors. must be even
vColors(0) = "#D7F1FF" ' color 1
vColors(1) = "" ' color 2
dim vLoopCounter, vColor
vLoopCounter = 0 ' count the loops
do while( Not vRec.Eof)
vQryRec_id = vRec("realst_id")
vCategSel = vRec("categ")
vHeadline = left(vRec("headline"),30)
if(vHeadline = "")then
vHeadline = " "
end if
vDescrip = left(vRec("descrip"),30)
if(vDescrip = "")then
vDescrip = " "
end if
vPrice = left(vRec("price"),20)
if(vPrice = "")then
vPrice = " "
end if
vPropCnty = left(vRec("county"),15)
if(vPropCnty = "")then
vPropCnty = " "
end if
vName = vRec("ad_name")
if(vName = "")then
vName = " "
end if
vContact = vRec("contact_inf")
vLocat = left(vRec("location"),20)
if(vLocat = "")then
vLocat = " "
end if
vCreateDt = left(vRec("created"),4)
vUpdateBut=" "
if (vLogin_id = vRec("login_id"))then
vUpdateBut = "(update)"
end if
vGoBut = ""
if(vLogin_id = 0)then
vGoBut =""
end if
vColor= vColors(vLoopCounter and 1)
%>
| <%=vGoBut%> |
<%=vCategSel%> |
<%=vHeadline%> |
<%=vDescrip%> |
<%=vPrice%> |
<%=vPropCnty%> |
<%=vLocat%> |
<%=vCreateDt%> |
<%=vUpdateBut%> |
<%
vLoopCounter = vLoopCounter + 1 ' keep count
vRec.movenext
loop
%>
| <%=vNoRecords%> |
|
