Here is the Code that you required CampKev

<%
Dim Conn
Dim sSQL
Dim rsPeople

Set Conn = CreateObject("ADODB.Connection")
Set rsPeople = CreateObject("ADODB.Recordset")
Conn.Open "addresses"
sSQL = "select Person_Id, First_Name, Last_Name, Phone_Number from Persons "
rsPeople.Open sSQL, Conn

%>
<html>
<head>
<title>Connecting TO The Database</title>
</head>
<body bgcolor = "#FFFFFF">
<center>
<h1>Address Book</h1>
<br>
<table border = 1>
<tr>
<th>Name</th>
<th>Number</th>
</tr>
<% Do Until rsPeople.EOF%>
<tr>
<td><%=rsPeople("Last_Name")%>,
<%=rsPeople("First_Name")%></td>
<td><%=rsPeople("Phone_Number")%></td>
</tr
><% rsPeople.MoveNext
Loop
rsPeople.Close
Set rsPeople = Nothing
Conn.Close
Set Conn = Nothing%>
</table>
</body>
</html>

I hope you can find the problem.

Thanks in advance.

what's the error? is this from another thread? why didn't you post as followup in that thread instead of starting new thread?

ok, found your original post. Your problem is you have no connection string telling it what type of db this is("access") or what the file name of your access database is

you need to pass it something like this
"Driver={Microsoft Access Driver (*.mdb)};DBQ=C:\Work\cvs_root\log4net-1.2\access.mdb;UID=;PWD=;"

This question has already been answered. Start a new discussion instead.