<%
'Skapar object
Set DC = Server.CreateObject("ADODB.Connection")
Set RS = Server.CreateObject("ADODB.Recordset")

'DSN
' DC.Open "DSN=Din_DSN"
'DNS-LESS
DC.Open "DBQ=" & Server.Mappath("mappen/din_databas.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};"

MYSQL = "SELECT * FROM din_table"

RS.Open MYSQL, DC

'Loppar tills alla poster är skrivna
do While Not RS.EOF
%>

<%= rs("field1") %>

<%= rs("field2") %>

---

<%
' flyttar till nästa post
CmdSimpleSelect.MoveNext
Wend

rs.Close
Set rs = Nothing
DC.Close
Set DC = Nothing

%>