Current Openings

<% 'Set Con = Server.CreateObject("Adodb.Connection") 'Con.Open "DSN=location" 'Con.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("db\location.mdb") & ";" Set rsJob = Server.CreateObject("Adodb.Recordset") rsJob.Open "Select * from ze_jobs where job_opening <= getdate() and job_closing >= getdate() order by job_closing", DBConnection,1,3 If rsJob.Eof = True Then %> Currently we do not have any open vacancy.

<% Else %> Click "Apply Now" link in front of job titles.

<% While Not rsJob.EOF %> <%=rsJob("job_title")%>, (Job # 1109<%=rsJob("job_id")%>) - [ ">Apply Now ]

Closing Date: <%=rsJob("job_closing")%>

<%=rsJob("job_description")%>