<% |
Dim cnnSimple ' ADO connection |
Dim rstSimple ' ADO recordset |
Set cnnSimple = Server.CreateObject("ADODB.Connection") |
|
cnnSimple.Open = "DSN=[DSN Source Name];User Id=[DB login];Password=[DB password];" |
Set rstSimple = cnnSimple.Execute("SELECT * FROM Table1") |
%> |
<P> Connecting to Access DB with ODBC 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 |
%> |
Article ID: 163, Created: July 25, 2012 at 12:35 AM, Modified: July 25, 2012 at 12:35 AM