<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>

Home	Faq	Perchè ranklink?	Contattaci

<% Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("db.mdb") Set Rs = Conn.execute ("SELECT id, categoria, url, mail FROM tabella ORDER BY id DESC") Do Until Rs.EOF %>

<% Response.write (Rs("id")) %>

<% Response.write (Rs("categoria")) %>

<% Response.write (Rs("url")) %>

<% Response.write (Rs("mail")) %>

<% Response.write ("Cancella") %>

<% Response.write ("Modifica") %>

<% Rs.movenext Loop Rs.Close Set Rs = Nothing Conn.Close Set Conn = Nothing %>