HelpMicrosoft JET Database Engine error '80040e10'
I cannot seem to find my error i keep getting the following error
Microsoft JET Database Engine error '80040e10'
No value given for one or more required parameters.
/private1/tempcartupdate3.asp, line 49
Can any one point out my error cuz i cant.
Thank you all
Here is some snipits
*MyConnection include file is Shown at bottom*
<%
SQLtemp = "SELECT * FROM TempTourPos WHERE Cust_UserName = '" & Request.Cookies("UserName") & "' "
Set rs = MyConnection.Execute(SQLtemp)
while not rs.eof
If Request.Cookies("UserName") = rs("Cust_UserName") then
SQL = "UPDATE TempTourPos SET TourPo = '" & Request.Form("PoNumber") & "', TourTotal = '" & Request.Form("TourTotal") & "', AO_Total = '" & Request.Form("AoTotal") & "', Ship_Total = '" & Request.Form("DelTotal") & "', FPO_Total = '" & Request.Form("FpoTotal") & "' WHERE Cust_UserName = '" & Request.Cookies("UserName") & "' "
MyConnection.Execute(SQL) '<----line 49 here
'response.write(SQL)
'Response.redirect ("test.asp")
End If
rs.MoveNext
Wend
'OnError response.Redirect ("error.asp")
rs.Close
MyConnection.Close
set ConnStr = Nothing
%>
here is the code for the include file
<%
Dim MyConnection
Set MyConnection = Server.CreateObject("ADODB.Connection")
MyConnection.Provider = "Microsoft Jet 4.0 OLE DB Provider"
MyConnection.ConnectionString = "Data Source=D:\home\thomasla\showitbest.com\private1\db \users.mdb"
MyConnection.Properties("Jet OLEDB:Database Password") = "*****"
MyConnection.Open
%>
|