This message is in MIME format. Since your mail reader does not understand

this format, some or all of this message may not be legible.



------_=_NextPart_001_01C1A50B.A78D9382

Content-Type: text/plain



Hi,



I am trying to update a disconnected recordset. Here is my code:



In the function:



*********************************************************************



Function getRSOrdPart(strOrderID_)



  Dim rsOrderPart



  Set rsOrderPart = Server.CreateObject("ADODB.Recordset")

  

 



  With rsOrderPart

    .CursorLocation = adUseClient

    .CursorType = adOpenStatic

    .LockType = adLockBatchOptimistic

    .ActiveConnection = objConn

    .Source = "exec spGetOrderPartForAvailAnalasys " & strOrderID_ 

    .Open



    .ActiveConnection = Nothing

  End With

 

  Set getRSOrdPart = rsOrderPart



  Set rsOrderPart = Nothing



End Function

***********************************************************************



This is the calling program:

***********************************************************************

  Dim rsOrdPart



  Set rsOrdPart = getRSOrdPart(strOrderID)

****************************************************************************



Then, on the next statesment:

****************************************************************************

******

 rsOrdPart.Fields("qtyNeeded") = 100

****************************************************************************

******



It gives me the following err:

******************************************************************

Error Type:

Microsoft Cursor Engine (0x80040E21)

Multiple-step operation generated errors. Check each status value.

/AIMS_OffSite/placeOrderShoppingCart.asp, line 417

******************************************************************



What did I do wrong? 



Mark