include database.asp

Du kan ligge dette koden ind i en fil som du kan kalde database.asp (du kan også kalde den noget andet hvis du vil):

<%
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("/lager.mdb")
Conn.Open DSN
%>

Så kan du lave koden sådan her:

<!--#include file="database.asp"-->
<%
strSQL = "Select * from users"
Set rs = Conn.Execute(strSQL)

Do
%>
<%
  rs.MoveNext

Loop While Not rs.EOF

Conn.Close
Set Conn = Nothing
%>