Ready
To work
Skilled
tradesman for short and long term needs.
Looking
for new employees ?
Need a specialist for couple weeks?
You've come to a great resource .
If you need contractors
Now! you can also
Post a Hotlist
Project
Check the Work Force Hotlist area .
Post
Ready to Work
Fill openings in your schedule?
Create a Web page
to stand out from the crowd.
The following
are trades people Ready to Work. Post
a listing.
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.
| |
WorkType |
Work
Requested |
Skills |
Available
Locations |
Wages |
Schedule |
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 vRdy2wrk_id, vSkillCat, vWrkType, vSkills, vAvailL, vWages, vContact
dim vPostTm, vToWeb, vToList, vToPriv, vName, vSched, 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 ready2work 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)
vRdy2wrk_id = vRec("rdywrk_id")
vSkillCat = vRec("skill_Categ")
vWrkType = left(vRec("wrk_type"),30)
if(vWrkType = "")then
vWrkType = " "
end if
vSkills = left(vRec("skills"),30)
if(vSkills = "")then
vSkills = " "
end if
vAvailL = left(vRec("avail_loc"),20)
vWages = left(vRec("wages"),15)
if(vWages = "")then
vWages = " "
end if
vName = vRec("ad_name")
vContact = vRec("contact_inf")
vSched = left(vRec("schedule"),20)
if(vSched = "")then
vSched = " "
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%> |
<%=vSkillCat%> |
<%=vWrkType%> |
<%=vSkills%> |
<%=vAvailL%> |
<%=vWages%> |
<%=vSched%> |
<%=vCreateDt%> |
<%=vUpdateBut%> |
<%
vLoopCounter = vLoopCounter + 1 ' keep count
vRec.movenext
loop
%>
| <%=vNoRecords%> |
|
