|
<%
On Error Resume Next
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & server.MapPath("public/ricette/database.mdb")
set sqltext = conn.execute("select * from NOVITA order by id")
while not sqltext.EOF
%>

|