Member Avatar for Goitse

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.

  • 2 Contributors
  • 2 Replies
  • 119 Views
  • 18 Hours Discussion Span
  • Latest Post Latest Post by campkev
Member Avatar for campkev

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

Member Avatar for campkev

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=;"

Be a part of the DaniWeb community

We're a friendly, industry-focused community of developers, IT pros, digital marketers, and technology enthusiasts meeting, networking, learning, and sharing knowledge.