The Dreaded Error '80040e21'

This, as you'll see, is part of a cdonts.inc file, but the line of code chokes other pages as well. I'm sort of at the end of the road here with ideas, so thought I'd pick your (collective) brains.

The field I'm trying to read from is actually a primary key, AutoNumber (Increment) field set to Long Integer (if that's meaningful here).

I'm at a loss -- the field *can't* be empty -- can it (the data has just been posted from the previous page)? And "id_num" is not restricted anywhere that I can see. So what am I missing?

Error:

Microsoft OLE DB Provider for ODBC Drivers error '80040e21'
Multiple-step OLE DB operation generated errors. Check each OLE DB status value, if available. No work was done.
/assoc_cdonts.inc, line 20

Code follows:

<% LANGUAGE="VBSCRIPT" %>

<%
Dim smtp, message, submit_date, objCDO
Dim adOpenForwardOnly, adLockOptimistic
adOpenForwardOnly = 0
adLockOptimistic = 2

Set conn = Server.CreateObject ("ADODB.Connection")
Set rs = Server.CreateObject ("ADODB.Recordset")

Conn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.Mappath("../database/web.mdb")
rs.Open "assoc", conn, adOpenForwardOnly, adLockOptimistic
rs.AddNew

submit_date = FormatDateTime (Now(), vbShortDate) & " " & _
FormatDateTime (Now(), vbLongTime)

rs("id_num") = request("id_num") <----------- here's the offending code (delete it and everything works just fine).
rs("status") = request("status")
rs("rec_name") = request("rec_name")
rs("assoc_name") = request("assoc_name")

Dim var, dvar, val
For Each var In Session.Contents
dvar = LCase (Right (var, Len (var) - 2))
val = Session(var) & ""

If (UCase (Left (var, 2)) = "D_") And (val <> "") Then
rs(dvar) = val
End If
Next

Set objCDO=Server.CreateObject ("CDONTS.NewMail")

message = ""
message = message & "A new Association Information request has been received." & vbNewLine
message = message & "Date: " & submit_date & vbNewLine
message = message & "Submitted By: " & rs("rec_name") & "" & vbNewLine
message = message & "Association: " & rs("assoc_name") & vbNewLine

objCDO.To = "Some Name <#*$!x@xxxx.xxx>"
objCDO.From = "Request Database <aaaaa@aaaaa.aaa>"
objCDO.Subject = "New Association Information Request"
objCDO.Body = message
objCDO.Send

Set objCDO = Nothing

'conn.Close

The recordset chokes this page, too:

<%@ Language = "VBScript"%>


<%

dim rs
dim strID

set conn = conn
set rs = server.createobject("adodb.recordset")
rs.open "assoc", conn, 2, 2
rs.addnew

rs("id_num") = request("id_num") <----------- here's the offending code (comment it out and everything works just fine).
rs("status") = request("status")
rs("rec_name") = request("rec_name")
rs("assoc_name") = request("assoc_name")

rs.update
rs.movelast
strID = rs("id_num")
rs.close
set rs= nothing
set conn = nothing
%>

Any thoughts?

The Dreaded Error '80040e21'

I Need Some Fresh Eyes

govton

carguy84

govton

govton

mattglet

govton

govton

govton

Join The Conversation

Moderators and Top Contributors

Hot Threads This Week