<% Set BAG = Server.CreateObject("ADODB.Connection")
BAG.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("db/vt_adi.mdb"))
Set RS = BAG.Execute("SELECT * FROM tablo_adi")
Do While Not Rs.Eof
Response.Write RS("field_adi") & "<br>"
RS.Movenext
Loop
%>