LongText bug (or just my programming)

Description:

I have created a Mysql data base with a long text field, and when ever i try
to call the "rs.update" with ASP it says

"Multiple-step OLE DB operation generated errors. Check each OLE DB status
value, if available. No work was done"

it only happens with long, mediumtext fields and i dont know why

How-To-Repeat:

<%@ Language=VBScript %>
<% Option Explicit %>
<% RESPONSE.BUFFER = TRUE %>
<!--#include file="../session.asp"-->

<%
CONST ADLOCKREADONLY  = 1
CONST ADLOCKPESSIMISTIC = 2
CONST ADOPENSTATIC  = 3

IF NOT ISEMPTY(REQUEST.FORM("Submit"))THEN %>

<!--#include file="../../../dbopen.pwp"-->
 <%
 Dim updatenumber
 updatenumber = REQUEST.FORM("sn")
 Dim DimUpdateHeading, DimUpdatesubtitle, DimUpdatebreif, Dimupdatestory,
DimUpdateauthor, DimUpdateMenuLink
 DimUpdateHeading = REPLACE(REQUEST.FORM("heading"), "'", "&#8217;", 1)
 DimUpdatesubtitle = REPLACE(REQUEST.FORM("subtitle"), "'", "&#8217;", 1)
 DimUpdatebreif  = REPLACE(REQUEST.FORM("breif"), "'", "&#8217;", 1)
 Dimupdatestory  = REPLACE(REQUEST.FORM("story"), "'", "&#8217;", 1)
 DimUpdateauthor  = REPLACE(REQUEST.FORM("author"), "'", "&#8217;", 1)
 DimUpdateMenuLink = REPLACE(REQUEST.FORM("menulink"), "'", "&#8217;", 1)
 DIM DimUpdateSQL
 DimUpdateSQL = "SELECT Heading,SubTitle,Brief FROM News WHERE Story_ID = "
& updatenumber
 DIM RSUpdate
 Set RSUpdate = Server.CreateObject("ADODB.Recordset")
 RSUpdate.CursorType = adOpenStatic
 RSUpdate.LockType = adLockPessimistic
'30 ,Story,Author,Story_Link
 RSUpdate.Open DimUpdateSQL, Conn
 RSUpdate("Heading") = DimUpdateHeading
 RSUpdate("SubTitle") = DimUpdatesubtitle
 RSUpdate("Brief")  = DimUpdatebreif
 'RSUpdate("Story")  = Dimupdatestory
 'RSUpdate("Author")  = DimUpdateauthor
 'RSUpdate("Story_Link") = DimUpdateMenuLink
***********
crashes just below withe RSUpdate.update.
***********
 RSUpdate.Update
 RSUpdate.Close
 Set RSUpdate=Nothing
 %>
 <!--#include file="../../../dbclose.pwp"-->
 <%
 RESPONSE.REDIRECT "../misc-task-done.asp?confirmtype=updatedother"
END IF
%>


<!--#include file="../../../dbmultiopen.pwp"-->
<%

 DIM DimReadSN
 DimReadSN = REPLACE(REQUEST.QUERYSTRING("sn"), "'", "")

 DIM DimReadSQL
 DimReadSQL= "SELECT Heading,SubTitle,Brief,Story,Author,Story_Link FROM
news WHERE Story_ID = " & DimReadSN

 DIM RSRead, DimReadHeading, DimReadSubtitle, DimReadBreif, DimReadStory,
DimReadAuthor, DimReadLink
 SET RSRead= SERVER.CREATEOBJECT("ADODB.RECORDSET")
 RSRead.OPEN DimReadSQL,CONN,,ADLOCKREADONLY
 DimReadHeading = RSRead("Heading")
 DimReadSubtitle = RSRead("SubTitle")
 DimReadBreif = RSRead("Brief")
 DimReadStory = RSRead("Story")
 DimReadAuthor = RSRead("Author")
 DimReadLink  = RSRead("Story_Link")

 RSRead.CLOSE
 SET RSRead = NOTHING
%>
<!--#include file="../../../dbclose.pwp"-->
shows the rest of the html page


Fix:
None

Synopsis:
Submitter-Id: <submitter ID>
Originator: G
Organization:   none
MySQL support:  [none ]
Severity: [serious ]
Priority: [ high ]
Category: [mysqld, mysql client,
Class:  [ support ]
Release: mysql-3.23.38

Exectutable:   [mysqld-opt]
Environment:   <machine description>
System:        <Win95, Win98, NT or Win200>
Compiler:      VC++ 6.0
Architecture:  i


---------------------------------------------------------------------
Please check "http://www.mysql.com/Manual_chapter/manual_toc.html"; before
posting. To request this thread, e-mail win32-thread10608@xxxxxxxxxxxxxxx

To unsubscribe, send a message to the address shown in the
List-Unsubscribe header of this message. If you cannot see it,
e-mail win32-unsubscribe@xxxxxxxxxxxxxxx instead.