<%
Map your database
path = server.MapPath("yourdb.mdb")

'Creating Adodb Connection
set con = server.CreateObject("Adodb.Connection")

'Provider
con.Provider ="Microsoft.Jet.OLEDB.4.0"

Open Connection
con.Open path

'Creating Adodb Recordset
set rs = server.create("Adodb.Recordset")

'Sql Statment
rs.open "select * from yourtable",con

do until rs.eof
response.write rs(1)
s.movenext
loop
%>