Employment
Oppurtunity Record Details
This is the record Detail you requested
Are
you a tradesman and have an opening in your schedule you want to fill?
Post here
Post Employment Oppurtunity
You can
update or delete an existing listing by pressing the update link next
to a listing.
You must be logged in to see the update links or to make an update. Close
this window
<%
' 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
vLogin_id = Session("login_id")
vEmplmnt_id = Request.QueryString("qRecId")
' visit to page - get expandedinfo from db that relates to Record id
vSQL = "select * from employads where emplymnt_id =" & vEmplmnt_id
set vRec = conn.Execute (vSQL)
if( Not vRec.Eof)then
'if( not vRec.EOF ) then
vEmplmnt_id = vRec("emplymnt_id")
vSkillCat = vRec("skill_Categ")
vJobdscr = vRec("wrk_descr")
vJobdscr = replace(vJobdscr,vbCRLF,"
")
vSkills = vRec("skills")
vSkills = replace(vSkills,vbCRLF,"
")
vLocatn = vRec("location")
vSalry = vRec("salary")
vName = vRec("ad_name")
vContact = vRec("contact_inf")
vContact = replace(vContact,vbCRLF,"
")
vClsDt = vRec("close_dt")
vToWeb = vRec("to_web")
vToList = vRec("to_list")
vToPriv = vRec("to_priv")
vCreateDt = left(vRec("created"),8)
vUpdateBut=" "
if (vLogin_id = vRec("login_id"))then
vUpdateBut = "(update)"
end if
end if
%>
| Employment Oppurtunity Post | <%=vUpdateBut%> |
| Work Type Category: | <%=vSkillCat%> |
| Job Description: | <%=vJobdscr%> |
| Requested Skills: | <%=vSkills%> |
| Job Location: | <%=vLocatn%> |
| Salary: | <%=vSalry%> |
| Name: | <%=vName%> |
| Contact Info: | <%=vContact%> |
| Job Close Date: | <%=vClsDt%> |
| Date Posted: | <%=vCreateDt%> |