Want Ad Record Details
This is the record Detail you requested
Real
Estate Ads.Click
Here
Post Want 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
dim vSuccess, 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 wantads where wantad_id =" & vQryRec_id
set vRec = conn.Execute (vSQL)
if( Not vRec.Eof)then
'if( not vRec.EOF ) then
vQryRec_id = vRec("wantad_id")
vCategSel = vRec("categ")
vHeadline = vRec("headline")
vDescrip = vRec("descrip")
vDescrip = replace(vDescrip,vbCRLF,"
")
vPrice = vRec("price")
vName = vRec("ad_name")
vContact = vRec("contact_inf")
vContact = replace(vContact,vbCRLF,"
")
vLocat = vRec("item_locatn")
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
%>
| Want Ads | <%=vUpdateBut%> |
| Item Type: | <%=vCategSel%> |
| Brief Description: | <%=vHeadline%> |
| Description: | <%=vDescrip%> |
| Price: | <%=vPrice%> |
| Item Location: | <%=vLocat%> |
| Contact Name: | <%=vName%> |
| Contact Info: | <%=vContact%> |
| Date Posted: | <%=vCreateDt%> |