?
Solved

Subscript out of range error

Posted on 2008-06-18
3
Medium Priority
?
1,606 Views
Last Modified: 2012-05-05
I'm currently building a simple Ecommerce website and when going through the pages that collect the information I keep getting the following error:

Microsoft VBScript runtime  error '800a0009'
Subscript out of range: '[number: 7]'
/site/basket.asp, line 51

Below is the relevant code with line 51 marked, any help is much appreciated.
<%
' Define Constants
CONST CARTPID = 0
CONST CARTPQUANTITY = 1
CONST CARTPNAME = 2
CONST CARTPBOARD = 3
CONST CARTPCOLOUR = 4
CONST CARTPPRICE = 5
CONST CARTPFACE = 6
CONST CARTPREV = 7
 
' Get the Shopping Cart
IF NOT isArray( Session( "cart" ) ) THEN
	DIM localCart( 8,20 )
ELSE
	localCart = Session( "cart" )
END IF
 
' Get Product Information
productID = 		TRIM( Request( "pid" ) )
productQuantity = 	TRIM( Request( "cardQuantity" ) )
productName = 		TRIM( Request( "cardType" ) )
productBoard = 		TRIM( Request( "boardType" ) )
productColour = 	TRIM( Request( "spotColour" ) )
productPrice = 		TRIM( Request( "prodPrice" ) )
productFace =		TRIM( Request( "cardFace" ) )
productReverse =	TRIM( Request( "cardReverse" ) )
 
'Add product to cart
IF productID <> "" THEN
	foundIT = FALSE
	FOR i=0 TO UBOUND( localCart )
		IF localCart( CARTPID, i ) = productID THEN
			localCart( CARTPQUANTITY, i ) = localCart( CARTPQUANTITY, i )
			foundIT = TRUE
			EXIT FOR
		END IF
	NEXT
	IF NOT foundIT THEN
		FOR i = 0 TO UBOUND( localCart, 2 )
			IF localCart( CARTPID, i ) = "" THEN
				localCart( CARTPID, i ) = productID
				localCart( CARTPQUANTITY, i ) = productQuantity
				localCart( CARTPNAME, i ) = productName
				localCart( CARTPBOARD, i ) = productBoard
				localCart( CARTPCOLOUR, i ) = productColour
				localCart( CARTPPRICE, i ) = productPrice
				localCart( CARTPFACE, i ) = productFace
		*line 51*       localCart( CARTPREV, i ) = productReverse
				EXIT FOR
			END IF
		NEXT
	END IF
END IF
%>

Open in new window

0
Comment
Question by:dreamworks_studio
  • 2
3 Comments
 
LVL 4

Expert Comment

by:512Thz
ID: 21813912
Try the folowing

If it produce the mesage "The cart had the wrong dim"

It means that your cart was not dimensionned at 8 (but 7)
IF NOT isArray( Session( "cart" ) ) THEN
	DIM localCart( 8,20 )
ELSE
	localCart = Session( "cart" )
END IF
 
IF Uboud(localCart, 1) < 8 Thne
  REDIM  localCart( 8,20 )
  Response.Write("The cart had the wrong dimension!!!")
END IF
 
.... etc  ...

Open in new window

0
 
LVL 4

Accepted Solution

by:
512Thz earned 2000 total points
ID: 21813949
Oups...
IF Uboud(localCart, 1) < 7 Then
0
 
LVL 1

Author Closing Comment

by:dreamworks_studio
ID: 31468397
I guess that means the cart had the wrong dimension! I was sure I'd set it right but still learning this so many thanks for your help!
0

Featured Post

Free Tool: SSL Checker

Scans your site and returns information about your SSL implementation and certificate. Helpful for debugging and validating your SSL configuration.

One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Without even knowing it, most of us are using web applications on a daily basis.  In fact, Gmail and Yahoo email, Twitter, Facebook, and eBay are used by most of us daily—and they are web applications. We generally confuse these web applications to…
The first step to building an amazing About page is to figure out what you want the page to say about your company. You then must grab the attention of the reader, boast a bit, tell a story and let others brag about you. With a little bit of thought…
This tutorial demonstrates how to identify and create boundary or building outlines in Google Maps. In this example, I outline the boundaries of an enclosed skatepark within a community park.  Login to your Google Account, then  Google for "Google M…
This tutorial will teach you the core code needed to finalize the addition of a watermark to your image. The viewer will use a small PHP class to learn and create a watermark.
Suggested Courses
Course of the Month17 days, 2 hours left to enroll

864 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question