<%
dim jobRS
dim jobQ
set jobRS = Server.CreateObject("ADODB.Recordset")
jobQ = "SELECT * FROM jobs WHERE jobViewable = 1 ORDER BY jobDate DESC"
jobRS.open jobQ, dbconn, adOpenStatic, adLockReadOnly, adCmdText
if NOT jobRS.EOF Then
%>
<%
Do While NOT jobRS.EOF
%>
| Date Posted: |
<%=jobRS.fields("jobDate")%> |
| Job Title: |
<%=jobRS.fields("jobTitle")%> |
| Pay Rate: |
<%=jobRS.fields("jobRate") & " per " %> <%if jobRS.fields("jobRatePer") = 0 then Response.write("HR") else Response.Write("YR")%> |
| Job Description: |
<%=jobRS.fields("jobDesc")%> |
| Job Requirements: |
<%=jobRS.fields("jobReq")%> |
| Additional Information: |
<%=jobRS.fields("jobAddition")%> |
| |
|
Submit Resume For This Job |
|
<%
jobRS.MoveNext
Loop
%>
<%
Else
Response.Write " There are no Jobs at this time. Please check back soon. "
End If
Set FSO = nothing
%> |
