Hot
List Projects
Find projects to fill the gaps in your schedule
These
are current projects that services are needed for . Are you a subcontractor
who needs to fill a time slot, or have had a job fall through ?
Look here to see if someone may need your services now.
Post
your Current 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.
For ongoing projects , post a page on a continuos basis so that
the subcontractor you work with will be aware of current projects.
The following
are Projects with immediate needs. Post
a HotList 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 |
Work Type
|
Project
Discription |
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 vHotProj_id, vProjName, vProjLoc, vWrkType, vProjDescr, vStatus, vContact
dim vName, vClsDt, vCreateDt, vSpclReqs
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 hotlistprj 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)
vHotProj_id = vRec("hotprj_id")
vProjName = left(vRec("proj_name"),30)
if(vProjName = "")then
vProjName = " "
end if
vStatus = left(vRec("status"),30)
vWrkType = left(vRec("wrk_type"),20)
vProjDescr = left(vRec("proj_descr"),30)
if(vProjDescr = "")then
vProjDescr = " "
end if
vProjLoc = left(vRec("location"),20)
vProjName = left(vRec("proj_name"),15)
if(vProjName = "")then
vProjName = " "
end if
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%> |
<%=vWrkType%> |
<%=vProjDescr%> |
<%=vStatus%> |
<%=vClsDt%> |
<%=vCreateDt%> |
<%=vUpdateBut%> |
<%
vLoopCounter = vLoopCounter + 1 ' keep count
vRec.movenext
loop
%>
<%=vNoRecords%> |
|