<%
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
%>
<%
count = count+1
On error resume next
rs.MoveNext
loop
rs.CLOSE
conn.close
%>