<%@ Language=VBScript %> <%Option Explicit%> <% Response.Buffer = true %> BuildersPlanet.com Project Hotlist! ">
BuildersPlanet.comBuildersPlanet Home Page
Marketplace Job Bank Buy/Sell Community News Services
 HOME  >  Job Bank > HotList Projects ','instantmessage','width=375,height=400')>Instant Feedback

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.

<% ' 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) %> <% vLoopCounter = vLoopCounter + 1 ' keep count vRec.movenext loop %>
  Project Name Project
Location
Work Type Project
Discription
Status Close
Date
Post
Date
 
<%=vGoBut%> <%=vProjName%> <%=vProjLoc%> <%=vWrkType%> <%=vProjDescr%> <%=vStatus%> <%=vClsDt%> <%=vCreateDt%> <%=vUpdateBut%>
<%=vNoRecords%>

Legal notice: BuildersPlanet.com reserves the right to not allow any posting for any reason. BuildersPlanet.com is NOT responsible for the content submitted or any errors in any posting. A posting does not constitute an endorsement or assurance of accuracy for any posting by BuildersPlanet.com.You agree to terms above and you agree to indemnify and hold BuildersPlanet.com harmless for any claim or damages arising from the use of this form and/or content of materials submitted to BuildersPlanet.com Website. By using this site you accept our terms and privacy policy. For comments or problems email Webmaster@buildersplanet.com