vip23
10-23-2003, 02:27 PM
Error message:
Microsoft OLE DB Provider for ODBC Drivers error '80040e4d'
[Microsoft][ODBC Microsoft Access Driver] Too many client tasks.
/newkid/name/view_records.asp, line 11
This page is supposed to display records from an Access database. It worked last night and this morning just fine. I showed some co-workers and it suddenly stopped. I read the msjet can only handle 5 connections at a time and that I needed to close my connections. I'm a novice so bear with me... I added the following to the end of my files but it have no impact, good or bad:
<%
rs.close
Set rs = nothing
%>
The page can be found here:
http://babykisses.com/newkid/name/view_records.asp
Here is the code (minus the html junk):
<%
accessdb="../../../data/babyname"
cn="DRIVER={Microsoft Access Driver (*.mdb)};"
cn=cn & "DBQ=" & server.mappath(accessdb)
Set rs = Server.CreateObject("ADODB.Recordset")
sql = "select * from msgtable order by unique_id desc"
rs.Open sql, cn
%>
<%
On Error Resume Next
rs.MoveFirst
do while Not rs.eof
%>
<%= rs("firstname") %>
<%= rs("middlename") %>
<%= rs("lastname") %>
<%= rs("nickname") %>
<%= rs("initials") %>
<%= rs("yourname") %>
<%= rs("datetime") %>
<%
rs.MoveNext
loop%>
<%
rs.close
Set rs = nothing
%>
Microsoft OLE DB Provider for ODBC Drivers error '80040e4d'
[Microsoft][ODBC Microsoft Access Driver] Too many client tasks.
/newkid/name/view_records.asp, line 11
This page is supposed to display records from an Access database. It worked last night and this morning just fine. I showed some co-workers and it suddenly stopped. I read the msjet can only handle 5 connections at a time and that I needed to close my connections. I'm a novice so bear with me... I added the following to the end of my files but it have no impact, good or bad:
<%
rs.close
Set rs = nothing
%>
The page can be found here:
http://babykisses.com/newkid/name/view_records.asp
Here is the code (minus the html junk):
<%
accessdb="../../../data/babyname"
cn="DRIVER={Microsoft Access Driver (*.mdb)};"
cn=cn & "DBQ=" & server.mappath(accessdb)
Set rs = Server.CreateObject("ADODB.Recordset")
sql = "select * from msgtable order by unique_id desc"
rs.Open sql, cn
%>
<%
On Error Resume Next
rs.MoveFirst
do while Not rs.eof
%>
<%= rs("firstname") %>
<%= rs("middlename") %>
<%= rs("lastname") %>
<%= rs("nickname") %>
<%= rs("initials") %>
<%= rs("yourname") %>
<%= rs("datetime") %>
<%
rs.MoveNext
loop%>
<%
rs.close
Set rs = nothing
%>