Jeg er ved at prøve at lave et indkøbssystem baseret på en bog jeg købte.
Jeg kan dog ikke få selve indkøbskurven til at virke. Fejlen jeg får er:
Microsoft VBScript runtime error '800a000d'
Type mismatch: '[string: ""]'
Min umiddelbare vurdering er, at det er fordi at der mangler en værdi i
strengen. Jeg kan bare ikke se hvorfor. Linien den fejlmelder i er denne:
orderTotal = orderTotal + ( localCart( CARTPPRICE, i ) * localCart(
CARTPQUANTITY, i ) )
Er der nogen der kan gennemskue fejlen?
Hele scriptet i sessioncartmodulet ser således ud:
<%
' Define Constants
CONST CARTPID = 0
CONST CARTPNAME = 1
CONST CARTPPRICE = 2
CONST CARTPQUANTITY = 3
' Get The Shopping Cart
IF NOT isArray( Session( "cart" ) ) THEN
DIM localCart( 4, 20 )
ELSE
localCart = Session( "cart" )
END IF
' Get Product Information
productID = TRIM( Request( "pid" ) )
productName = TRIM( Request( "productName" ) )
productPrice = TRIM( Request( "productPrice" ) )
' Add Item 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 ) + 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 ) = productID
localCart( CARTPNAME, i ) = productName
localCart( CARTPPRICE, i ) = productPrice
localCart( CARTPQUANTITY, i ) = 1
EXIT FOR
END IF
NEXT
END IF
END IF
' Update Shopping Cart Quantities
IF Request( "updateQ" ) <> "" THEN
FOR i = 0 TO UBOUND( localCart, 2 )
newQ = TRIM( Request( "pq" & localCart( CARTPID, i ) ) )
deleteProduct = TRIM( Request( "pd" & localCart( CARTPID, i ) ) )
IF newQ = "" or newQ = "0" THEN
localCart( CARTPID, i ) = ""
ELSE
IF isNumeric( newQ ) THEN
localCart( CARTPQUANTITY, i ) = newQ
END IF
END IF
NEXT
END IF
' Update Session variable with Array
Session( "cart" ) = localCart
%>
<html>
<head><title>Session Shopping Cart</title></head>
<body bgcolor="white">
<center>
<font face="Arial" size=3 color="darkgreen">
<b>Your shopping cart:</b>
</font>
<%
orderTotal = 0
%>
<form method="post" action="sessionCart.asp">
<input name="updateQ" type="hidden" value="1">
<table bgcolor="lightyellow" border=1
cellpadding=4 cellspacing=0>
<tr bgcolor="lightgreen">
<th>Product</th>
<th>Price</th>
<th>Quantity</th>
</tr>
<%
FOR i = 0 TO UBOUND( localCart, 2 )
IF localCart( CARTPID, i ) <> "" THEN
orderTotal = orderTotal + ( localCart( CARTPPRICE, i ) * localCart(
CARTPQUANTITY, i ) ) <!--------- Her er fejlen!! ----!>
%>
<tr>
<td>
<%=Server.HTMLEncode( localCart( CARTPNAME, i ) )%>
</td>
<td>
<%=formatCurrency( localCart( CARTPPRICE, i ) )%>
</td>
<td>
<input name="pq<%=localCart( CARTPID, i )%>" type="text" size=4
value="<%=localCart( CARTPQUANTITY, i )%>">
<input name="pd<%=localCart( CARTPID, i )%>" type="checkbox" value="1">
Delete
</td>
</tr>
<%
END IF
NEXT
%>
<tr bgcolor="yellow">
<td colspan=2 align=right>
<b>Order Total:</b>
</td>
<td>
<%=formatCurrency( orderTotal )%>
</td>
</tr>
<tr>
<td colspan=3>
<table border=0>
<tr>
<td align="right">
<input type="submit" value="Update Cart">
</td>
</form>
<form method="post" action="checkout.asp">
<td>
<input type="submit" value="Checkout">
</td>
</form>
<form action="default.asp">
<td>
<input type="submit" value="Continue Shopping">
</td>
</form>
</tr>
</table>
</td>
</tr>
</table>
</center>
</body>
</html>