<%
Dim adoCon
Dim adoRst
'connessione
Set adoCon = Server.CreateObject("ADODB.Connection")
Set adoRst = Server.CreateObject("ADODB.Recordset")
adoCon.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("\mdb-database\menu.mdb")

'Eseguo la query recuperando tutti i campi dal DB e ordinandoli per indice
adoRst.Open "SELECT * FROM Menu ORDER BY Indice;", adoCon

'Finchè non siamo arrivati alla fine dei dati
While Not adoRst.EOF
  Response.Write("<A HREF='" & adoRst("Link") & "'>" & adoRst("Titolo") & "</A>") 'Stampo il menu
  'mi muovo sul record successivo
  adoRst.MoveNext
  if not adoRst.Eof Then
    'Stampo il carattere divisorio
    Response.Write " | ")
  End If
Wend

'chiudo recordset e db
adoRst.Close
adoCon.Close
'Elimino i riferimenti
Set adoCon = Nothing
Set adoRst = Nothing
%>