Sample Code : Query an Access database with ASP using a DSN-less connection
<%
Dim cnnSimple ' ADO connection
Dim rstSimple ' ADO recordset
Set cnnSimple = Server.CreateObject("ADODB.Connection")' DSNLess
cnnSimple.Open ("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\domains\yourdomain.com\db\yourdb.mdb")Set rstSimple = cnnSimple.Execute("SELECT * FROM tbltest")
%>
<P> Connecting to Access with Ole connection </P><table border="1">
<%
Do While Not rstSimple.EOF
%>
<tr>
<td><%= rstSimple.Fields(0).Value %></td>
<td><%= rstSimple.Fields(1).Value %></td>
</tr>
<%
rstSimple.MoveNext
Loop
%>
</table>
<%rstSimple.Close
Set rstSimple = Nothing
cnnSimple.Close
Set cnnSimple = Nothing
%>
