ASP Shop cart quantity problem...

[Guest_imported]

Hello,
I have been trying to write my own ASP shopping cart, but I've run into a problem. I want it that when the user sets the quantity to zero, the item is removed from the shopping cart. At the current time, all it does is display the quantity is 0 and the user still sees the item. I figured this is not that helpful for it only clutters up the shopping cart. I've been trying to do this-
if i = 0 then
redim sCartItemNums(ItemID)
- but I've had no luck. This uses sessions, so here is the global.asa file-
"Global.asa"

<SCRIPT LANGUAGE=VBScript RUNAT=Server>
SUB Session_OnStart
dim sItemNums(0), nItemQtys(0)
sItemNums(0) = &quot;&quot;
nItemQtys(0) = 0

session(&quot;CartItemNumArray&quot = sItemNums
session(&quot;CartItemQtyArray&quot = nItemQtys
END SUB
</SCRIPT>

&quot;END GLOBAL.ASA&quot;

Here is the shopping cart page. Since all you need to see is the scripting, I've deleted all other code (navigation page code) and only left the shopping cart code. I've put a { symbol where I've been trying to put the i = 0 code, but I'm not sure it goes there...

&quot;CART.ASP&quot;

<!--#INCLUDE FILE=&quot;adovbs.inc&quot;-->
<%
sCartItemNums = session(&quot;cartitemnumarray&quot
nCartItemQtys = session(&quot;cartitemqtyarray&quot
nNumCartItems = ubound(sCartItemNums)

'Determine the mode of this page's operation. If we got here from a
' link that had a &quot;mode&quot; querystring of &quot;add&quot;, mode is add:
sMode = request.querystring(&quot;mode&quot

'Or, we could have gotten here from a form:
select case request.form(&quot;cmdSubmit&quot
case &quot;Proceed to Checkout&quot;
sMode = &quot;checkout&quot;
case &quot;Recalculate Order&quot;
sMode = &quot;recalc&quot;
case &quot;Continue Shopping&quot;
sMode = &quot;continue&quot;
end select

if sMode = &quot;add&quot; then
nThisItemIndex = 0
sItemNo = ucase(request.querystring(&quot;ItemID&quot)
if nNumCartItems > 0 then
for i = 1 to nNumCartItems
if ucase(scartitemnums(i)) = sItemNo then
nThisItemIndex = i
exit for
end if
next
end if
if nThisItemIndex = 0 then
nThisItemIndex = nNumCartItems + 1
redim Preserve sCartItemNums(nThisItemIndex)
redim Preserve nCartItemQtys(nThisItemIndex)
sCartItemNums(nThisItemIndex) = sItemNo
nCartItemQtys(nThisItemIndex) = 1
else
nCartItemQtys(nThisItemIndex) = nCartItemQtys(nThisItemIndex) + 1
end if
session(&quot;cartitemnumarray&quot = sCartItemNums
session(&quot;cartitemqtyarray&quot = nCartItemQtys
nNumCartItems = ubound(sCartItemNums)
end if

if sMode = &quot;recalc&quot; or sMode = &quot;checkout&quot; or sMode = &quot;continue&quot; then
for i = 1 to nNumCartItems
nThisQty = int(request.form(&quot;txtItemQty&quot; & i))
nCartItemQtys(i) = nThisQty
next
session(&quot;cartitemnumarray&quot = sCartItemNums
session(&quot;cartitemqtyarray&quot = nCartItemQtys
{ INSERTED THE I = 0 INFORMATION
{ WHICH DID NOT WORK.
end if

'Move to another page based on mode.
' If mode is &quot;add&quot; or &quot;recalc&quot;, we stay here.
' If mode is &quot;continue&quot;, we move back to the main page so the user
' can shop more.
' If mode is &quot;checkout&quot;, we stay here but change the mode th
select case sMode
case &quot;continue&quot;
response.redirect(&quot;index.asp&quot
end select

set dbMain = server.createobject(&quot;ADODB.Connection&quot
dbMain.open &quot;DSN=Products&quot;
%>

<% if sMode = &quot;checkout&quot; then %>
<form action=&quot;submitorder.asp&quot; method=&quot;POST&quot;>
<% else %>
<form action=&quot;cart.asp&quot; method=&quot;POST&quot;>
<% end if %>
<%
if nNumCartItems = 0 then
response.write &quot;There are no items in your shopping cart.<br>&quot;
else
if sMode = &quot;checkout&quot; then
%>
Your order is ready to submit. Please provide the following information
and click the &quot;Submit Order&quot; button.
<br><br>
<table align=&quot;center&quot; border=&quot;0&quot;>
<tr bgcolor=&quot;#c0c0c0&quot;>
<th colspan=&quot;2&quot; align=&quot;center&quot;><font face=&quot;Verdana,Arial&quot; size=&quot;-1&quot;>
Customer Information</td>
</tr>
<tr>
<td align=&quot;right&quot;><font face=&quot;Verdana,Arial&quot; size=&quot;-1&quot;>Name:</td>
<td><font face=&quot;Verdana,Arial&quot; size=&quot;-1&quot;>
<input type=&quot;Text&quot; name=&quot;txtCustomerName&quot; size=&quot;30&quot; maxlength=&quot;30&quot;>
</td>
</tr>
<tr>
<td align=&quot;right&quot;><font face=&quot;Verdana,Arial&quot; size=&quot;-1&quot;>Address:</td>
<td><font face=&quot;Verdana,Arial&quot; size=&quot;-1&quot;>
<input type=&quot;Text&quot; name=&quot;txtAddress&quot; size=&quot;30&quot; maxlength=&quot;30&quot;></td>
</tr>
<tr>
<td align=&quot;right&quot;><font face=&quot;Verdana,Arial&quot; size=&quot;-1&quot;>
City/State/ZIP:</td>
<td><font face=&quot;Verdana,Arial&quot; size=&quot;-1&quot;>
<input type=&quot;Text&quot; name=&quot;txtCity&quot; size=&quot;25&quot; maxlength=&quot;30&quot;>
<input type=&quot;Text&quot; name=&quot;txtState&quot; size=&quot;4&quot; maxlength=&quot;4&quot;>
<input type=&quot;Text&quot; name=&quot;txtZIP&quot; size=&quot;7&quot; maxlength=&quot;7&quot;></td>
</tr>
<tr>
<td align=&quot;right&quot;><font face=&quot;Verdana,Arial&quot; size=&quot;-1&quot;>
Daytime Phone:</td>
<td><font face=&quot;Verdana,Arial&quot; size=&quot;-1&quot;>
<input type=&quot;Text&quot; name=&quot;txtPhone&quot; size=&quot;15&quot; maxlength=&quot;15&quot;></td>
</tr>
<tr>
<td align=&quot;right&quot;><font face=&quot;Verdana,Arial&quot; size=&quot;-1&quot;>
Payment Method:</td>
<td><font face=&quot;Verdana,Arial&quot; size=&quot;-1&quot;>
<input type=&quot;Radio&quot; name=&quot;optPaymentType&quot; value=&quot;visa&quot;>
Visa 
<input type=&quot;Radio&quot; name=&quot;optPaymentType&quot; value=&quot;mc&quot;>
Mastercard 
<input type=&quot;Radio&quot; name=&quot;optPaymentType&quot; value=&quot;amex&quot;>
American Express
</td>
</tr>
<tr>
<td align=&quot;right&quot;><font face=&quot;Verdana,Arial&quot; size=&quot;-1&quot;>
Account Number:</td>
<td><font face=&quot;Verdana,Arial&quot; size=&quot;-1&quot;>
<input type=&quot;Text&quot; name=&quot;txtAcctNo&quot; size=&quot;20&quot; maxlength=&quot;20&quot;></td>
</tr>
<tr>
<td align=&quot;right&quot;><font face=&quot;Verdana,Arial&quot; size=&quot;-1&quot;>
Expiration (mm/yyyy):</td>
<td><font face=&quot;Verdana,Arial&quot; size=&quot;-1&quot;>
<input type=&quot;Text&quot; name=&quot;txtExpDate&quot; size=&quot;10&quot; maxlength=&quot;7&quot;></td>
</tr>
</table>
<%
else
response.write &quot;Your shopping cart currently contains these items:&quot;
end if
%>
<br><br>
<table align=&quot;center&quot; border=&quot;0&quot;>
<tr bgcolor=&quot;#ff0066&quot;>
<th><font face=&quot;Verdana,Arial&quot; color=&quot;#ffff33&quot; size=&quot;-1&quot;>
Quantity</font></td>
<th><font face=&quot;Verdana,Arial&quot; color=&quot;#ffff33&quot; size=&quot;-1&quot;>
Item No.</font></td>
<th><font face=&quot;Verdana,Arial&quot; color=&quot;#ffff33&quot; size=&quot;-1&quot;>
Item Name</font></td>
<th><font face=&quot;Verdana,Arial&quot; color=&quot;#ffff33&quot; size=&quot;-1&quot;>
Price</font></td>
<th><font face=&quot;Verdana,Arial&quot; color=&quot;#ffff33&quot; size=&quot;-1&quot;>
Extension</font></td>
</tr>
<%
cSubTotal = 0
nNumItems = 0
for i = 1 to nNumCartItems
Set rsProducts = Server.CreateObject(&quot;ADODB.Recordset&quot
sSQL = &quot;SELECT * FROM Products WHERE ItemID = '&quot; & _
sCartItemNums(i) & &quot;'&quot;
rsProducts.open sSQL, dbMain, adopenstatic, _
adlockpessimistic, adcmdtext
%>
<tr bgcolor=&quot;#99ccff&quot;>
<%
sTemp = &quot;<input type='Text' name='txtItemQty&quot; & i & &quot;' value='&quot; & _
nCartItemQtys(i) & &quot;' size='3'>&quot;
nNumItems = nNumItems + nCartItemQtys(i)
%>
<td align=&quot;center&quot;>
<font face=&quot;Verdana,Arial&quot; color=&quot;#000000&quot; size=&quot;-1&quot;>
<% = sTemp %></font></td>
<td align=&quot;center&quot;>
<font face=&quot;Verdana,Arial&quot; color=&quot;#000000&quot; size=&quot;-1&quot;>
<% = rsProducts(&quot;ItemID&quot %></font></td>
<td><font face=&quot;Verdana,Arial&quot; color=&quot;#000000&quot; size=&quot;-1&quot;>
<% = rsProducts(&quot;ItemName&quot %></font></td>
<%
cPrice = rsProducts(&quot;Price&quot
%>
<td align=&quot;center&quot;>
<font face=&quot;Verdana,Arial&quot; color=&quot;#000000&quot; size=&quot;-1&quot;>
<% = formatcurrency(cPrice) %></font></td>
<%
cExtension = nCartItemQtys(i) * cPrice
cSubTotal = cSubTotal + cExtension
%>
<td align=&quot;right&quot;>
<font face=&quot;Verdana,Arial&quot; color=&quot;#000000&quot; size=&quot;-1&quot;>
<% = formatcurrency(cExtension) %></font></td>
</tr>
<% next %>
<tr bgcolor=&quot;#c5c5c5&quot;>
<td align=&quot;center&quot; colspan=&quot;4&quot;>
<font face=&quot;Verdana,Arial&quot; size=&quot;-1&quot;>Subtotal</font></td>
<td align=&quot;right&quot;><font face=&quot;Verdana,Arial&quot; size=&quot;-1&quot;>
<% = formatcurrency(cSubTotal) %></font></td>
</tr>
<% cShipping = 4.50 + (1.25 * nNumItems) %>
<tr bgcolor=&quot;#c5c5c5&quot;>
<td align=&quot;center&quot; colspan=&quot;4&quot;>
<font face=&quot;Verdana,Arial&quot; size=&quot;-1&quot;>Shipping & Handling</font></td>
<td align=&quot;right&quot;><font face=&quot;Verdana,Arial&quot; size=&quot;-1&quot;>
<% = formatcurrency(cShipping) %></font></td>
</tr>
<% cTotal = cSubTotal + cShipping %>
<tr bgcolor=&quot;#66ff00&quot;>
<td align=&quot;center&quot; colspan = &quot;4&quot;>
<font face=&quot;Verdana,Arial&quot; size=&quot;-1&quot;>Grand Total</font></td>
<td align=&quot;right&quot;><font face=&quot;Verdana,Arial&quot; size=&quot;-1&quot;>
<% = formatcurrency(cTotal) %></font></td>
</tr>
</table>
<br><div align=&quot;center&quot;>

<input type=&quot;Submit&quot; name=&quot;cmdSubmit&quot; value=&quot;Continue Shopping&quot;>
<input type=&quot;Submit&quot; name=&quot;cmdSubmit&quot; value=&quot;Recalculate Order&quot;><br><br>

<% if sMode = &quot;checkout&quot; then %>
<input type=&quot;Submit&quot; name=&quot;cmdSubmit&quot; value=&quot;Submit Order&quot;>
<% else %>
<input type=&quot;Submit&quot; name=&quot;cmdSubmit&quot; value=&quot;Proceed to Checkout&quot;>
<% end if %>
</div></form>
</font>
<% end if %>

&quot;END CART.ASP&quot;

Any Help would be much appreciated!!!

Thanks,
&quot;Scotty&quot;