quote:

---

Since I have never had this problem anywhere else I am betting it's this server with the issue

---

quote:

---

Here some tip: use:

Dim objRecordset
Set objRecordset = Server.CreateObject("ADODB.Recordset")
' data in the table.
objRecordset.Open "TableName",DB_CONNECTIONSTRING,adOpenKeyset,adLockPessimistic,adCmdText
objRecordset.AddNew
objRecordset.Fields("text_field") = CStr(WeekdayName(WeekDay(Date())))
objRecordset.Fields("integer_field") = CInt(Day(Now()))
objRecordset.Fields("date_time_field") = Now()
objRecordset.Update
' Get the DB assigned ID of the record we just added.
iRecordAdded = objRecordset.Fields("id").Value
objRecordset.Close
Set objRecordset = Nothing

---

    if rsWho.eof or rsWho.bof then
	
	       Set objRS2 = Server.CreateObject("ADODB.Recordset")
	       objRS2.Open "FORUM_ONLINE", objConn, 1, 2, 2
           objRS2.AddNew
	       objRS2("UserID") = User
	       objRS2("Status") = "LOGIN"
	       objRS2("DateCreated") = fDate
	       objRS2("CheckedIn") = CheckInTime
	       objRS2("M_BROWSE") = Location
	       objRS2.Update
		   objRS2.close
	 else
		strSql = "UPDATE FORUM_ONLINE SET M_BROWSE =  '" & Location & "' , DateCreated = '" & fDate & "' WHERE UserID = '" & User & "'"
		my_Conn.Execute (strSql)
	end if

    if rsWho.eof or rsWho.bof then
			on error resume next
	       Set objRS2 = Server.CreateObject("ADODB.Recordset")
	       strSQL =  "INSERT INTO " & strTablePrefix & "ONLINE ( UserID,Status,DateCreated,CheckedIn,M_BROWSE) VALUES ("
		   strSql = strSQL & User & ",'LOGIN','" & fDate & "','" & CheckInTime & "','" & Location & "')"
			my_Conn.Execute (strSql)
		   if err.number <> 0 then response.write err.number & "|" & err.description
	 else
		strSql = "UPDATE FORUM_ONLINE SET M_BROWSE =  '" & Location & "' , DateCreated = '" & fDate & "' WHERE UserID = '" & User & "'"
		my_Conn.Execute (strSql)
	end if

quote:

---

Since I have never had this problem anywhere else I am betting it's this server with the issue (not that it couldn't be others). The two things that are typically screwy are MDAC and ODBC. And while I would almost always bet the farm on MDAC, I searched the knowledge base and found this

---

When I read this article, it sounded like an explanation of why you might receive an error message using ODBC vs. ISQL, not what the error message actually was.

I don't find much info on 80040e57 either, though.

======
Doug G
======

Edited by - Doug G on 09 December 2000 16:03:23<

quote:

---

This doesn't appear to work in mysql.
In the who's online mod, in onine2.asp, is the following code

    if rsWho.eof or rsWho.bof then
	
	       Set objRS2 = Server.CreateObject("ADODB.Recordset")
	       objRS2.Open "FORUM_ONLINE", objConn, 1, 2, 2
           objRS2.AddNew
	       objRS2("UserID") = User
	       objRS2("Status") = "LOGIN"
	       objRS2("DateCreated") = fDate
	       objRS2("CheckedIn") = CheckInTime
	       objRS2("M_BROWSE") = Location
	       objRS2.Update
		   objRS2.close
	 else
		strSql = "UPDATE FORUM_ONLINE SET M_BROWSE =  '" & Location & "' , DateCreated = '" & fDate & "' WHERE UserID = '" & User & "'"
		my_Conn.Execute (strSql)
	end if

Using mysql it fails with the following error
3219 | Operation is not allowed in this context.

if you change the code to

    if rsWho.eof or rsWho.bof then
			on error resume next
	       Set objRS2 = Server.CreateObject("ADODB.Recordset")
	       strSQL =  "INSERT INTO " & strTablePrefix & "ONLINE ( UserID,Status,DateCreated,CheckedIn,M_BROWSE) VALUES ("
		   strSql = strSQL & User & ",'LOGIN','" & fDate & "','" & CheckInTime & "','" & Location & "')"
			my_Conn.Execute (strSql)
		   if err.number <> 0 then response.write err.number & "|" & err.description
	 else
		strSql = "UPDATE FORUM_ONLINE SET M_BROWSE =  '" & Location & "' , DateCreated = '" & fDate & "' WHERE UserID = '" & User & "'"
		my_Conn.Execute (strSql)
	end if

everything works OK.

---

quote:

---

Set objConn = Server.CreateObject("ADODB.Connection")
objConn.ConnectionString = strConnString
objConn.Open


'Resistance is futile'

---

quote:

---

According to IIS

To optimize performance, avoid using the ADO record addition and deletion methods, such as AddNew and Delete. If your application adds and deletes records intensively, your application will perform better if it uses direct SQL statements, such as INSERT.

---