Real Estate Record Details
This is the record Detail you requested
Want
Ads.Click
Here
Post
a Real Estate Ad Click
here.
You can update
or delete an existing listing by pressing the update link next to a listing.
You must be logged in to see the update links or to make an update. Close
this window <%
' 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, vUpdateBut
vLogin_id = Session("login_id")
vQryRec_id = Request.QueryString("qRecId")
' visit to page - get expandedinfo from db that relates to Record id
vSQL = "select * from realestate where realst_id =" & vQryRec_id
set vRec = conn.Execute (vSQL)
if( Not vRec.Eof)then
'if( not vRec.EOF ) then
vQryRec_id = vRec("realst_id")
vCategSel = vRec("categ")
vHeadline = vRec("headline")
vDescrip = vRec("descrip")
vDescrip = replace(vDescrip,vbCRLF,"
")
vPrice = vRec("price")
vPropCnty = vRec("county")
vName = vRec("ad_name")
vContact = vRec("contact_inf")
vContact = replace(vContact,vbCRLF,"
")
vLocat = vRec("location")
vPostTm = vRec("post_time")
vToWeb = vRec("to_web")
vToList = vRec("to_list")
vToPriv = vRec("to_priv")
vCreateDt = left(vRec("created"),8)
vUpdateBut=" "
if (vLogin_id = vRec("login_id"))then
vUpdateBut = "(update)"
end if
end if
%>
| Real Estate Properties | <%=vUpdateBut%> |
| Property Type: | <%=vCategSel%> |
| Headline: | <%=vHeadline%> |
| Description: | <%=vDescrip%> |
| Price: | <%=vPrice%> |
| Property Location: | <%=vLocat%> |
| Property County: | <%=vPropCnty%> |
| Contact Name: | <%=vName%> |
| Contact Info: | <%=vContact%> |
| Date Posted: | <%=vCreateDt%> |