can you help me debug this, please

chidi · Sep 4, 2002

Error Type:
Microsoft OLE DB Provider for ODBC Drivers (0x80040E21)
Multiple-step OLE DB operation generated errors. Check each OLE DB status value, if available. No work was done.

I have been trying to debug above error to no avail.
Please tell me what is causing it.
Here is the code:

Language=VBScript%>
<%Response.buffer=true%>

<html>
<head>
<title>Untitled</title>
</head>

<body>

<%
Set connectionToDatabase=Server.CreateObject("ADODB.Connection&quot

Set recordSet=Server.CreateObject("ADODB.Recordset&quot

connectionToDatabase.Open "DSN=sTract;UID=sokeh;PWD=sonn1e"

recordSet.Open "SELECT * FROM Driver",connectionToDatabase,1,3

Dim ss_nbr, fname, validate
validate=true

for each qryItem in Request.Form
if Request.Form(qryItem) = "" Then
validate = false
Response.Write("Missing : " & qryItem & "<BR>&quot

End if
next

if not validate then
Response.Write("<body bgcolor=steelblue><BR><font color=red><h3><b>" &_
"Please click the back button and complete the missing fields. " &_
"Thank You</b></h3></font></body> &quot

else

recordSet.AddNew
'recordSet("date&quot

= date()
'recordSet("time&quot

= Time()

recordSet("DriverID&quot

= Request.Form("SS_NUM&quot

recordSet("fname&quot

= Request.Form("FIRST_NAME&quot

recordSet("lname&quot

= Request.Form("LAST_NAME&quot

recordSet("MI&quot

= Request.Form("Middle_Initial&quot

recordSet("DriverSex&quot

= Request.Form("DriveSex&quot

recordSet("Address1&quot

= Request.Form("Address1&quot

recordSet("Address2&quot

= Request.Form("Address2&quot

recordSet("CityAdd&quot

= Request.Form("City&quot

recordSet("StateAdd&quot

= Request.Form("STATE&quot

recordSet("ZipCode&quot

= Request.Form("ZIP_CODE&quot

recordSet("PhoneHome&quot

= Request.Form("Home_Phone&quot

recordSet("PhoneWork&quot

= Request.Form("Work_Phone&quot

recordSet("EmailAdd&quot

= Request.Form("Email_Address&quot

recordSet("atFault&quot

= Request.Form("Fault&quot

recordSet("InfluenceType&quot

= Request.Form("Influence_Type&quot

recordSet("InjuryType&quot

= Request.Form("Injury_Type&quot

recordSet.Update

connectionToDatabase.Close
Set connectionToDatabase=Nothing

if Request.Form("CoApp&quot

= "Yes" Then
Response.Redirect "co_applicant.asp?ss_nbr=" & Request.Form("SS_NUM&quot

else
Response.Redirect "new_applicant.asp"
end if

end if
%>

</body>
</html>

onpnt · Sep 4, 2002

was this a copy/paste issue Language=VBScript%>
or does it really need to be
<%@Language=VBScript%>

http://www.onpntwebdesigns.com

admin@onpntwebdesigns.com

onpnt · Sep 4, 2002

here is the MS explanation for your error

This error is caused when you try to insert too much data into a specified field. For example if you enter a string that is 20 characters long into a field that is defined as varChar(10), or if you try to insert a value greater than 215 (approx 2.1 billion) into an Integer field.

on that I would start by checking the settings in the table. see if you are exceeding any of them.

http://www.onpntwebdesigns.com

admin@onpntwebdesigns.com

chidi · Sep 4, 2002

You guys are so good.
I love this forum.
I just came back to say I found the problem which was exactly what you pasted onpnt.
I was inserting an nvarhar into an integer column.
It is all fixed now.

Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

can you help me debug this, please

chidi

Technical User

onpnt

Programmer

onpnt

Programmer

chidi

Technical User

Similar threads

Part and Inventory Search

Sponsor