VBScript runtime error '800a0009'

I've gotten a lot of information from this site over the last couple of month. I've only been programming ASP since June, but I feel very comfortable with it. Just now, however I'm encountering a problem I can't seem to get around.

Here is the error (problem code is below the error):

Microsoft VBScript runtime error '800a0009'
Subscript out of range: '[number: 9]'
/efabricsdirect/addprod.asp, line 157

The line number doesn't matter so much. I get all kinds of line numbers depending on what code I'm not hiding.

This is a shopping cart and it's a lot of code and I didn't build it, but I have read all of the code (over and over and over) and I don't see anything wrong with what I'm adding, but I haven't dealt much with Arrays (especially in VBScript).

So whoever built this cart has an included page that contains a setup for the user information. It's variable constants that assign a number to each variable that will go in the array.

' Constants needed for shopping cart
' Connection procedures - open and close
'maximum number of items in cart
Const maxCartItems = 10
Const cartAttributes = 9
'--- Shopping cart attributes ----
Const cProductid = 1
Const cProductCode = 2
Const cProductname = 3
Const cQuantity = 4
Const cUnitPrice = 5
'EVERYTHING BELOW WAS ADDED BY ME
Const sQuantity = 6
Const sUnitPrice = 7
Const rQuantity = 8
Const rUnitPrice = 9

Now ay goal on this shopping cart is to add two items, two prices, and two quantities.

The above code, from the best I can tell, is kind of a title for each piece of information for each product in the cart.

Now my errors come on ANYTHING dealing with # 7, 8 or 9. (For some reason? number 6 seems to work.)

Here is the code that is supposed to loop through an added item and add each part of it to the array.

Dim prodid, quantity, arrCart, scartItem
'this pulls new item info in from the previous page
prodid = Request.Form("fproductid")
quantity = Request.Form("fquantity")
swquantity = Request.Form("squantity")
roquantity = Request.Form("rquantity")
'this is so a new item can be added to what already exists
arrCart = Session("MyCart")
scartItem = Session("cartItem")
'error checking that sends the code to the sub below
If prodid <> "" Then
call addToCart()
Else
...
End If
...
'and this is the sub in question:
sub addToCart()
If scartItem < maxCartItems Then
scartItem = scartItem + 1
End If
Session("cartItem") = scartItem
dim rsItem, sqlProductInfo
sqlProductInfo = "SELECT * FROM products WHERE (catalogID=" & prodid & ")"
'open connection - returns dbc as Active connection
'this is another little code that uses a Sub on the included page
'it just opens a connection to the DB
call openConn()
Set rsItem = Server.CreateObject("ADODB.Recordset")
rsItem.Open sqlProductInfo, dbc, adOpenForwardOnly,adLockReadOnly,adCmdText
If Not rsItem.EOF Then
arrCart(cProductid,scartItem) = rsItem("catalogID")
arrCart(cProductCode,scartItem) = rsItem("ccode")
arrCart(cProductname,scartItem) = rsItem("cname")
arrCart(cQuantity,scartItem) = CInt(quantity)
arrCart(cUnitPrice,scartItem) = rsItem("cprice")
arrCart(sQuantity,scartItem) = CInt(swquantity)
'this is where my errors start
'arrCart(sUnitPrice,scartItem) = rsItem("sprice") 'number 7
'arrCart(rQuantity,scartItem) = CInt(roquantity) 'number 8
'arrCart(rUnitPrice,scartItem) = rsItem("rprice") 'number 9
arrCart(cUnitWeight,scartItem) = rsItem("cweight")
arrCart(cTotalWeight,scartItem) = rsItem("cweight") '* CInt(quantity)
Session("MyCart") = arrCart
End If
rsItem.Close
set rsItem = nothing
call closeConn()
end sub

You can note that cUnitWeight and cTotal Weight are not in the list of constants at the top, but (I haven't FINISHED reading the rest of the ASP pages of cart code so I'm not SURE but...) I don't think they're used anyway. It was put in there for shipping, but I don't think it's used now.

Anyway, I'll keep looking for answers on this, but I'm stumped. If you think there is more information I could give let me know. I tried to put everything here that might be even slightly useful.

Thanks in advance for reading even if not helping!

VBScript runtime error '800a0009'

VBScript runtime error '800a0009'

mahaleleel

mattglet

claus

mahaleleel

mahaleleel

mattglet

Join The Conversation

Moderators and Top Contributors

Hot Threads This Week