<%@ Language=VBScript %> <%Option Explicit%> <% Response.Buffer = true %> <% dim vLogin_id %> BuildersPlanet.com Small Project Record Details <% 'put this on pages that require log in vLogin_id = ForceLogin( Request.Cookies("BPLN")("Scrbl") ) %>
 HOME  >  Job Bank >  Small Projects  >  Small Project Details ','instantmessage','width=375,height=400')>Instant Feedback

Small Project Record Details
This is the record Detail you requested

These are Small Projects open to bid or in planning.
Are you a construction professional with a schedule opening ?Post Work Force Hotlist
Go to Ready to Work if your looking for a position or longer term projects.
Post Small Project

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 vSmlProj_id, vProjName, vProjLoc, vProjBudg, vProjDescr, vStatus, vContact dim vRemovePost, vRemovePostW, vRPostBox dim vPostTm, vToWeb, vToList,vToPriv, vClsDt, vName, vCreateDt, qRecId, vOrigin dim vSuccess, vOk_todistr, vNoFeat, vUpdateBut vLogin_id = Session("login_id") vSmlProj_id = Request.QueryString("qRecId") ' visit to page - get expandedinfo from db that relates to Record id vSQL = "select * from smlprj where smlproj_id =" & vSmlProj_id set vRec = conn.Execute (vSQL) if( Not vRec.Eof)then 'if( not vRec.EOF ) then vSmlProj_id = vRec("smlproj_id") vStatus = vRec("status") vProjBudg = vRec("proj_budget") vProjLoc = vRec("location") vProjName = vRec("proj_name") vProjDescr = vRec("proj_descr") vProjDescr = replace(vProjDescr,vbCRLF,"
") vName = vRec("ad_name") vContact = vRec("contact_inf") vContact = replace(vContact,vbCRLF,"
") vClsDt = vRec("close_dt") 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 %>
Small Projects <%=vUpdateBut%>
Project Name:  <%=vProjName%>
Project Location:  <%=vProjLoc%>
Project Budget:  <%=vProjBudg%>
Project Description:  <%=vProjDescr%>
Project Status:  <%=vStatus%>
Contact Name:  <%=vName%>
Contact Info:  <%=vContact%>
Close Date:  <%=vClsDt%>
Date Posted:  <%=vCreateDt%>
   

Close this window