Microsoft OLE DB Provider for SQL Server error '80040e18' - Rowset position cannot be
I'm using Ecart 4 within Dreamweaver CS5.5. Hiostorically when adding the add to cart procedure Ecart has changed the recordset cursor type.
However on this occasion it isn't doing so and as a result I get the following error when testing the add to cart behaviour -
"Microsoft OLE DB Provider for SQL Server error '80040e18'
Rowset position cannot be restarted.
/detail.asp, line 36"
How do I overcome this? My code is -
<%
Dim RsProductDetail__MMColParam
RsProductDetail__MMColParam = "0"
If (Request("p") <> "") Then
RsProductDetail__MMColParam = Request("p")
End If
%>
<%
Dim RsProductDetail
Dim RsProductDetail_cmd
Dim RsProductDetail_numRows
Set RsProductDetail_cmd = Server.CreateObject ("ADODB.Command")
RsProductDetail_cmd.ActiveConnection = MM_Connection_STRING
RsProductDetail_cmd.CommandText = "SELECT Something From Somewhere Order BY P.ID DESC"
RsProductDetail_cmd.Prepared = true
RsProductDetail_cmd.Parameters.Append RsProductDetail_cmd.CreateParameter("param1", 5, 1, -1, RsProductDetail__MMColParam) ' adDouble
Set RsProductDetail = RsProductDetail_cmd.Execute
RsProductDetail_numRows = 0
%>
<%
' WA eCart AddToCart
if (cStr(Request.Form("ShoppingCart_1_ATC")) <> "" OR cStr(Request.Form("ShoppingCart_1_ATC.x")) <> "") then
ATC_itemID = cStr(Request.Form("ShoppingCart_1_ID_Add"))
ATC_AddIfIn = 0
ATC_RedirectAfter = "cart.html"
ATC_RedirectIfIn = ""
ATC_RSPos = RsRelatedProduct.AbsolutePosition
RsRelatedProduct.MoveFirst()
DO while (NOT RsRelatedProduct.EOF)
if (cStr(RsRelatedProduct.Fields("ID").value) = cStr(ATC_itemID)) then
ATC_itemName = "" & cStr((RsRelatedProduct.Fields.Item("Product-Name").Value)) & ""' column binding
ATC_itemDescription = "" & cStr((RsRelatedProduct.Fields.Item("Description").Value)) & ""' column binding
ATC_itemWeight = cDbl("0")' column binding
ATC_itemQuantity = "" & cStr(Request.Form("ShoppingCart_1_Quantity_Add")) & ""' column binding
ATC_itemPrice = cDbl("" & cStr((RsRelatedProduct.Fields.Item("Price").Value)) & "")' column binding
ATC_itemItemDeliveryCharge = cDbl("0")' column binding
Exit DO
end if
RsRelatedProduct.MoveNext()
Loop
RsRelatedProduct.AbsolutePosition = ATC_RSPos
if (IsNumeric(ATC_itemQuantity) AND ATC_itemQuantity <> 0) then
set ShoppingCart = ShoppingCart_AddToCart(ATC_AddIfIn, ATC_RedirectIfIn, ATC_itemID, ATC_itemName, ATC_itemDescription, ATC_itemWeight, ATC_itemQuantity, ATC_itemPrice, ATC_itemItemDeliveryCharge)
if (ATC_RedirectAfter <> "" AND ShoppingCart_redirStr = "") then
ShoppingCart_redirStr = ATC_RedirectAfter
end if
Session("WAEC_ContinueRedirect") = cStr(Request.ServerVariables("Script_Name")) & "?" & cStr(Request.QueryString())
end if
end if
%>
Line 36 being -
RsRelatedProduct.MoveFirst()
I tried adding RsRelatedProduct.ActiveConnection.CursorLocation = 3 above Set RsProductDetail = RsProductDetail_cmd.Execute but that just moved the error to line 37.
Thanks for any help or insight..