<%
''This section draws the names and other information regarding jobs from the database and displays it for the user in an easy to read format.
''Robert Andrews 11/22/2005
''Sidney Wiredu 1/9/2006
dim Connection
Set Connection=opendatabase()
Dim RecordSet
Set RecordSet=Server.CreateObject("ADODB.RecordSet")
Dim SQLString
SQLString="select JobName, JobID, JobPostDate, JobWorkSite, Security, JobExperienceRequirements from Job ORDER BY JobPostDate DESC"
RecordSet.open SQLString,Connection
response.write("")
response.write("")
response.write("| Position Name | ")
response.write("Date Listed | ")
response.write("Security Clearance | ")
response.write("Work Location | ")
response.write(" | ")
response.write(" ")
response.write("")
response.write(" | ")
response.write(" | ")
response.write(" | ")
response.write(" | ")
response.write(" | ")
response.write(" ")
while not recordset.eof
%>
|
<% = RecordSet("JobName")%>
|
<%=RecordSet("JobPostDate")%> |
<%=RecordSet("Security")%> |
<%=RecordSet("JobWorkSite")%> |
">
More Details
|
<%
recordset.movenext
%>
|
| |
|
|
<%
wend
response.write(" ")
%>
<% if false then %>
<% end if %>
|
