Conexão com base de dados Access
<%@ LANGUAGE="VBSCRIPT" %>
<%
strConnection = "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("seu_banco_de_dados.mdb") & ";"
Set adoDataConn = Server.CreateObject("ADODB.Connection")
adoDataConn.Open strConnection
Response.Write "strConnection: [" & strConnection & "]<br>"
strQuery = "SELECT * FROM nome_da_sua_tabela"
Set RS = adoDataConn.Execute(strQuery)
%>
<HTML>
<HEAD><TITLE>Teste Access-ASP</TITLE></HEAD>
<BASEFONT FACE="arial">
<BODY>
<p><b><% Response.Write strQuery %></b></p>
<%while not RS.eof%>
<%Response.Write RS("campo1") & " - " & RS("campo2") & " - " & RS("campo3")& " - " & RS("campo4")%> <br>
<%RS.MoveNext%>
<%wend%>
<%
RS.Close
adoDataConn.Close
%>