<%
' Skapa en databaskoppling
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Driver={Microsoft Access Driver
(*.mdb)}; DBQ=" & Server.MapPath("accessdatabas.mdb") & ";pwd=;"

Conn.Close
Set Conn = Nothing
%>