<%
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="&Server.MapPath("cgi-bin/db/job.mdb")
Set rs = Server.CreateObject ("ADODB.Recordset")
sql = "Select * From job1 "
Set rs = conn.Execute(sql)
count = 1
On error resume next
RS.MoveFirst
Do while not RS.EOF
%>