มีปัญหาเกี่ยวกับ ASP Shopping Cart Book - Free Shopping Cart ที่ดาวโหลดไปครับ

<%@ codepage="874" %>
<% Option Explicit %>
<%
CONST CARTPID=0
CONST CARTPNAME=1
CONST CARTPPRICE=2
CONST CARTPQUANTITY=3
'-----------------------------------------------------
' 1.ประกาศตัวแปร
Dim foundIt, i, pid, pname, pprice, newQ, deleteProduct
'-----------------------------------------------------
' 2.Validate ค่าของตัวแปร Session("cart")
If Not IsArray(Session("cart")) Then
	Dim localCart(4,20)
Else
	localCart = Session("cart")
End If
'-----------------------------------------------------
' 3.รับค่าเก็บใส่ตัวแปร
pid = Trim(Request.Form("pid"))
pname = Trim(Request.Form("pname"))
pprice = Trim(Request.Form("pdiscount"))
'-----------------------------------------------------
' 4.Validate ค่าของตัวแปร pprice
If IsNumeric(pprice) Then pprice = CDbl(pprice)
'-----------------------------------------------------
' 5.เพิ่มสินค้าใส่รถเข็น
If pid <> "" Then
	foundIt = False
' ถ้าเป็นสินค้าที่เคยใส่เข้ารถเข็นแล้ว จะปรับค่าของจำนวนสินค้า
	For i = 0 To Ubound(localCart,2)
		If localCart(CARTPID, i) = pid Then
			localCart(CARTPQUANTITY, i) = localCart(CARTPQUANTITY, i) + 1
			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) = pid
				localCart(CARTPNAME,i) = pname
				localCart(CARTPPRICE,i) = pprice
				localCart(CARTPQUANTITY,i) = 1
				Exit For
			End If
		Next
	End If
End If
'-----------------------------------------------------
' 6.กรณีกดปุ่ม Update Cart ในหน้ารถเข็น
If Request.Form("updateQ") <> "" Then
	For i = 0 To Ubound(localCart,2)
		newQ = Trim(Request.Form("pq" & localCart(CARTPID,i)))
		deleteProduct = Trim(Request.Form("pd" & localCart(CARTPID,i)))
		If newQ = "" Or newQ = "0" Or deleteProduct <> "" Then
			localCart(CARTPID,i) = ""
		Else
			If IsNumeric(newQ) Then
				localCart(CARTPQUANTITY,i) = newQ
			End If
		End If
	Next
End If

Session("cart") = localCart
Response.Redirect "ssviewcart.asp"
%>