Variablen dimensionieren

<%
Dim oConn
Dim oRs
Dim strSQL
Dim selectSQL
Dim ... (alle Variablen)
%>

Datenquelle öffnen und SQL Daten abfragen

<%
Set oConn = Server.CreateObject("ADODB.Connection")
oConn.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA SOURCE=" & server.mappath("datenbank.mdb") & ";"
strSQL = "SELECT Feld1, Feld2 FROM Tabellenname ORDER BY Feld1"
Set oRs = Server.CreateObject("ADODB.Recordset")
oRs.open strSQL, oConn, adOpenStatic, adLockReadOnly, adCMDText
%>

Abfrage ausgeben

<table><tr><th>Feld1</th><th>Feld2</th></tr>
<%
Do while (Not oRs.eof)
Response.Write "<tr>"
Response.Write "<td>" & ORS("Feld1") & "</td>"
Response.Write "<td>" & ORS("Feld2") & "</td>"
Response.Write "</tr>"
oRs.MoveNext
Loop
%>
</table>

Connection schließen

<%
oRs.close
oConn.close
%>