Wrox Home  
Search P2P Archive for: Go

  Return to Index  

asp_databases thread: Can't figure out error...


Message #1 by "Sandra" <salau@p...> on Wed, 14 Aug 2002 18:24:51
Hi, everyone!

The error message is as follows: 

----------------------------------------------------
Microsoft OLE DB Provider for ODBC Drivers error '80004005' 

[Microsoft][ODBC driver for Oracle]General error 

/edreg/register.asp, line 263 
----------------------------------------------------

Here's the part that baffles me: 

----------------------------------------------------

objConn.Open Application ("comptrain_ConnectionString")
objRS.Open "Select * from Client where LANID = '" & Request.Form("cLANID") 
& "'", objConn, adOpenStatic, adLockOptimistic, adCmdText

objRS_reg.Open "Select * from Registers where LANID = '" & Request.Form
("cLANID") & "' AND CourseNum = '" & Session("IDNumber") & "'", objConn, 
adOpenStatic, adLockOptimistic, adCmdText

objRS_check.Open "Select InitialCount, MaxNum, CurrentNum, WaitMaxNum, 
WaitCurrentNum from Course where CourseNum = '" & Session("IDNumber") 
& "'", objConn, adOpenStatic, adLockOptimistic, adCmdText

objRS_course.Open "Select Comments from Course where courseNum = '" & 
Session("IDNumber") & "'", objConn

classNum = objRS_check("CurrentNum")
maxNum = objRS_check("MaxNum")
waitlistNum = objRS_check("WaitCurrentNum")
maxwaitlistNum = objRS_check("WaitMaxNum")
iniCount = objRS_check("InitialCount")

'**********************************************
'Convert strings to numbers
'**********************************************
classNum = Cint(classNum)
maxNum = Cint(maxNum)
waitlistNum = Cint(waitlistNum)
maxwaitlistNum = Cint(maxwaitlistNum)
iniCount = Cint(iniCount)

if objRS_reg.EOF then 
	if classNum < maxNum and iniCount < maxNum then
		objRS_reg.AddNew
		objRS_reg("LANID") = Request.Form("cLANID")
		objRS_reg("CourseNum") = Session("IDNumber")
		objRS_reg("WaitList") = "No"
		objRS_reg("regCancel") = "No"
		objRS_reg("Priority") = 0
		objRS_check("CurrentNum").value = classNum + 1
		
		if Cint(objRS_check("InitialCount") ) < Cint(objRS_check
("MaxNum")) then
			objRS_check("InitialCount").value = iniCount + 1
		end if
		
		objRS_reg.Update
		objRS.Update
		objRS_check.Update  <- Line 263
---------------------------------------------------

And yet, the funny thing is, the data writes to the database anyway, 
although if it had a problem with the line I was pointing to, nothing 
should have been written into the Courses table; and yet, updates are 
being made on the fields I selected.

Please help!

Sandra ^_^

Message #2 by "Sandra" <salau@p...> on Wed, 14 Aug 2002 20:57:03
Hi! 

Just a followup - apparently that was an oracle error, not an asp one. 

Cheers,
Sandra 


  Return to Index