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

Project Hot List Record Details
This is the record Detail you requested

These are projects with current or upcoming needs.
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 Hotlist 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 vHotProj_id, vProjName, vProjLoc, vWrkType, vProjDescr, vStatus, vContact dim vRemovePost, vRemovePostW, vRPostBox, vSpclReqs dim vPostTm, vToWeb, vToList,vToPriv, vClsDt, vName, vCreateDt, qRecId, vOrigin dim vSuccess, vOk_todistr, vNoFeat, vUpdateBut vLogin_id = Session("login_id") vHotProj_id = Request.QueryString("qRecId") ' visit to page - get expandedinfo from db that relates to Record id vSQL = "select * from hotlistprj where hotprj_id =" & vHotProj_id set vRec = conn.Execute (vSQL) if( Not vRec.Eof)then 'if( not vRec.EOF ) then vHotProj_id = vRec("hotprj_id") vStatus = vRec("status") vWrkType = vRec("wrk_type") vSpclReqs =vRec("spcl_req") vSpclReqs = replace(vSpclReqs,vbCRLF,"
") 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 %>
Hot List Projects <%=vUpdateBut%>
Project Name:  <%=vProjName%>
Project Location:  <%=vProjLoc%>
Type of Work:  <%=vWrkType%>
Project Description:  <%=vProjDescr%>
Project Status:  <%=vStatus%>
Special Requirements:  <%=vSpclReqs%>
Contact Name:  <%=vName%>
Contact Info:  <%=vContact%>
Schedule:  <%=vClsDt%>
Date Posted:  <%=vCreateDt%>
   

Close this window