<%
Set baglanti=Server.CreateObject("ADODB.connection" )
baglanti.Open "driver={microsoft access driver (*.mdb)}; DBQ=" &Server.MapPath("veritabani_yolu" )
SQL="select * from tablo_ismi"
Set kayitseti = baglanti.Execute(SQL)
Do While not kayitseti.Eof
%>
<table>Alinacak Bilgiler</table>
<% kayitseti.Movenext %> ' Bu kodu nereye koyarsaniz orada kayit listeleme biter ve diger kayda gelir...
<% Loop %>
<%kayitseti.Close %>
<%baglanti.Close %>