Large
Projects
Find Large Projects to Bid on. Whole houses and Commercial Projects
Post
Project here and find the contractors you need to get the
job done. It's FREE.
Post Individual pages to promote you project and explain
more details. Post a
page on a continuos basis so that the subcontractor you work
with will be aware of current projects.
Small
Project page
Remodels ...decks..
Post
Work Force Hotlist Schedule
opening ?
Post Ready to Work
longer term projects/positions.
The following
Projects are available to Bid on. Post
a Large Project.
Press the 
button to see more details and Contact information
You can
update or delete an existing listing by pressing the update link
next to a listing.
You must be logged in to see details, see the update links or
to make an update.
| |
Project Name |
Project
Location |
Project Value
|
Project
Description |
Status |
Close
Date |
Post
Date |
|
<%
' 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 vName, vClsDt, vCreateDt
dim vSuccess, vUpdateBut, vNoRecords, vGoBut
vLoginName = Session("login_name")
vLogin_id = Session("login_id")
' visit to page - get info from db
set vRec = conn.Execute (" select * from lrgprj where (verifyPost = 'checked') and (to_web = 'checked') and (ok_2Distrib = 'yes') and (spam_chck = 'False') order by created desc")
if( vRec.EOF ) then
vNoRecords = "Sorry but there are no records posted now. Check back again."
end if
dim vColors(2) ' the number of colors. must be even
vColors(0) = "#D7F1FF" ' color 1
vColors(1) = "" ' color 2
dim vLoopCounter, vColor
vLoopCounter = 0 ' count the loops
do while( Not vRec.Eof)
vLrgProj_id = vRec("lrgprj_id")
vProjName = left(vRec("proj_name"),30)
vStatus = left(vRec("status"),30)
vPrjVal = left(vRec("proj_value"),15)
if(vPrjVal = "")then
vPrjVal = " "
end if
vProjDescr = left(vRec("proj_descr"),30)
vProjLoc = left(vRec("location"),20)
vClsDt = left(vRec("close_dt"),20)
if(vClsDt = "")then
vClsDt = " "
end if
vCreateDt = left(vRec("created"),4)
vUpdateBut=" "
if (vLogin_id = vRec("login_id"))then
vUpdateBut = "(update)"
end if
vGoBut = ""
if(vLogin_id = 0)then
vGoBut =""
end if
vColor= vColors(vLoopCounter and 1)
%>
| <%=vGoBut%> |
<%=vProjName%> |
<%=vProjLoc%> |
<%=vPrjVal%> |
<%=vProjDescr%> |
<%=vStatus%> |
<%=vClsDt%> |
<%=vCreateDt%> |
<%=vUpdateBut%> |
<%
vLoopCounter = vLoopCounter + 1 ' keep count
vRec.movenext
loop
%>
| <%=vNoRecords%> |
|
