%
' dichiaro la variabile che conterrà l'oggetto Connection
Dim conn
'creo l'oggetto Connection
Set conn = Server.CreateObject("ADODB.Connection")
'apro la connessione con la fonte di dati
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("database/fratta.mdb")
%>
<%
' dichiaro la variabile che conterrà l'oggetto Recordset toponomastica
Dim rs
'creo l'oggetto Recordset
Set rs = Server.CreateObject("ADODB.Recordset")
'Eseguo la query SQL SELECT
rs.Open "SELECT * FROM astevia ORDER BY NOME", conn
%>