|
Take
the Test! ONLY one person has ever gotten 100%!
This Employee Test was created by small contractor and is just the ticket
to find employees that have the specific skills you need. Builder's Planet
can offer a link to the Employee Test from our homepage and offers you
a way to have online screening of employee candidates.
The following
are Employment Oppurtunities. 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.
| |
JobType |
Job
Description |
Required Skills |
Job
Location |
Salary |
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 vEmplmnt_id, vSkillCat, vJobdscr, vSkills, vLocatn, vSalry, vContact
dim vToWeb, vToList, vToPriv, 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 employads 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)
vEmplmnt_id = vRec("emplymnt_id")
vSkillCat = vRec("skill_Categ")
vJobdscr = left(vRec("wrk_descr"),30)
if(vJobdscr = "")then
vJobdscr = " "
end if
vSkills = left(vRec("skills"),30)
if(vSkills = "")then
vSkills = " "
end if
vLocatn = left(vRec("location"),20)
vSalry = left(vRec("salary"),15)
if(vSalry = "")then
vSalry = " "
end if
vName = vRec("ad_name")
vContact = vRec("contact_inf")
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%> |
<%=vSkillCat%> |
<%=vJobdscr%> |
<%=vSkills%> |
<%=vLocatn%> |
<%=vSalry%> |
<%=vClsDt%> |
<%=vCreateDt%> |
<%=vUpdateBut%> |
<%
vLoopCounter = vLoopCounter + 1 ' keep count
vRec.movenext
loop
%>
| <%=vNoRecords%> |
|