I've added the Polls Mod and for some reason, when a use attempts to edit their message I get the following 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.
/sopranochat/post.asp, line 519
The code in that section look like this:
if strRqMethod = "EditTopic" or _
strRqMethod = "TopicQuote" then
'## Forum_SQL
strSql = "SELECT " & strTablePrefix & "TOPICS.CAT_ID, " & strTablePrefix & "TOPICS.FORUM_ID, " & strTablePrefix & "TOPICS.TOPIC_ID, " & strTablePrefix & "TOPICS.T_SUBJECT, " & strTablePrefix & "TOPICS.T_AUTHOR, " & strTablePrefix & "TOPICS.T_MAIL, " & strTablePrefix & "TOPICS.T_MESSAGE, " & strTablePrefix & "TOPICS.answer1, " & strTablePrefix & "TOPICS.answer2, " & strTablePrefix & "TOPICS.answer3, " & strTablePrefix & "TOPICS.answer4, " & strTablePrefix & "TOPICS.answer5, " & strTablePrefix & "TOPICS.answer6, " & strTablePrefix & "TOPICS.answer7, " & strTablePrefix & "TOPICS.answer8 "
strSql = strSql & " FROM " & strTablePrefix & "TOPICS "
strSql = strSql & " WHERE " & strTablePrefix & "TOPICS.TOPIC_ID = " & Request.QueryString("TOPIC_ID")
'Response.Write strSQL
set rs = my_Conn.Execute (strSql)
TxtSub = rs("T_SUBJECT")
strAuthor = rs("T_AUTHOR")
' ############# Poll Mod ####################
txtSub1 = trim(rs("answer1"))
txtSub2 = trim(rs("answer2"))
txtSub3 = trim(rs("answer3"))
txtSub4 = trim(rs("answer4"))
txtSub5 = trim(rs("answer5"))
txtSub6 = trim(rs("answer6"))
txtSub7 = trim(rs("answer7"))
txtSub8 = trim(rs("answer8"))
' #########################################
if strRqMethod = "EditTopic" then
Line 519:->TxtMsg = rs("T_MESSAGE")
if Instr(TxtMsg, "Edited by - ") then TxtMsg = Left(TxtMsg, InstrRev(TxtMsg, "Edited by - ")-36) end if
else
Any ideas? You can see what I mean at the forum.
http://forums.webposter.com/sopranochat
Thanks,
RL
Topic Locked
Posted - 22 May 2001 : 12:56:31
