Work Force Hot List

Find contractors to jump in when your project gets ahead or behind
or problems arise with your current workforce. Find the contractors you need to get the job done.

Companies with current openings in their schedules. Subcontractors! need  to fill a time slot? Job fall through?
Post here because someone probably needs your services now. It's FREE !
Post individual pages to promote you specialty and explain more details. Post a page with your schedule openings on a regular basis so that Developers, Owners and General Contractors can contact you if your opening matches their needs.

Post Employment Ad Here   Its' FREE
Need contractors Now?
Post a Hotlist Project
Check the Ready to Work .

The following are Contractors with current openings. Post a Work Force HotList .
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.
<% ' 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 vHotLbr_id, vCompName, vAvailLoc, vWrkType, vSpclty, vStatus, vContact dim vName, 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 hotlbrprj 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) vHotLbr_id = vRec("hotlbr_id") vCompName = left(vRec("comp_name"),30) if(vCompName = "")then vCompName = " " end if vStatus = left(vRec("status"),30) vWrkType = left(vRec("wrk_type"),20) vSpclty = left(vRec("spclty"),30) if(vSpclty = "")then vSpclty = " " end if vAvailLoc = left(vRec("location"),20) vCompName = left(vRec("comp_name"),15) if(vCompName = "")then vCompName = " " 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) %> <% vLoopCounter = vLoopCounter + 1 ' keep count vRec.movenext loop %>

	Company Name	Locations Location	Work Type	Specialties	Availability	Post Date
<%=vGoBut%>	<%=vCompName%>	<%=vAvailLoc%>	<%=vWrkType%>	<%=vSpclty%>	<%=vStatus%>	<%=vCreateDt%>	<%=vUpdateBut%>
<%=vNoRecords%>