Large Project Record Details
This is the record Detail you requested
These
are 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
Large 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 vLrgProj_id, vProjName, vProjLoc, vPrjVal, vProjDescr, vStatus, vContact
dim vRemovePost, vRemovePostW, vRPostBox, vScope, vContrType, vArchName, vArchContact
dim vPostTm, vToWeb, vToList,vToPriv, vClsDt, vName, vCreateDt, qRecId, vOrigin
dim vSuccess, vOk_todistr, vNoFeat, vUpdateBut
vLogin_id = Session("login_id")
vLrgProj_id = Request.QueryString("qRecId")
' visit to page - get expandedinfo from db that relates to Record id
vSQL = "select * from lrgprj where lrgprj_id =" & vLrgProj_id
set vRec = conn.Execute (vSQL)
if( Not vRec.Eof)then
'if( not vRec.EOF ) then
vLrgProj_id = vRec("lrgprj_id")
vStatus = vRec("status")
vStatus = replace(vStatus,vbCRLF,"
")
vPrjVal = vRec("proj_value")
vContrType = vRec("contr_type")
vScope =vRec("scope")
vScope = replace(vScope,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,"
")
vArchName = vRec("arch_name")
vArchContact = vRec("arch_inf")
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
%>
| Large Projects out to Bid | <%=vUpdateBut%> |
| Project Name: | <%=vProjName%> |
| Project Location: | <%=vProjLoc%> |
| Project Value: | <%=vPrjVal%> |
| Project Description: | <%=vProjDescr%> |
| Project Status: | <%=vStatus%> |
| Project Scope: | <%=vScope%> |
| Contact Name: | <%=vName%> |
| Contact Info: | <%=vContact%> |
| Architect Name: | <%=vArchName%> |
| Architect Contact Info: | <%=vArchContact%> |
| Close Date: | <%=vClsDt%> |
| Date Posted: | <%=vCreateDt%> |