<%
' first create a recordset object
set rs=Server.CreateObject("adodb.Recordset")
' next set up a connection string
Set conn = Server.CreateObject ("ADODB.Connection")
connStr = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mappath("/db/repeat.mdb")
' open the connection
Conn.Open connStr,"",""
' now set up a query for the database
sqlstmt = "SELECT * from Area ORDER BY AreaID"
' execute query
set rs=conn.execute(sqlstmt)
%>