| <% |
| 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