<%
Set conn = Server.CreateObject("ADODB.Connection")
dsn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("veritabani.mdb")
conn.open dsn
Set RS=Server.CreateObject("ADODB.RecordSet")
Sql = "SELECT * FROM records ORDER BY recordListingID ASC"
RS.Open Sql, conn, 1, 3
Do While Not RS.EOF
%>