Uso de FOR y Sumar y Multiplicar variables

[Owen-Bonilla]

Buen dia a todos.


Tengo la siguiente página, donde muestro un menú de comidas:



En el cual, sí yo selecciono (por ejemplo) 5 tipos diferentes de Gorditas, la cantidad y sí lleva un guiso extra, me arroja lo siguiente en mi vista previa:



Es decir:
- Me arroja lo que seleccione, y me lo "imprime" pero también me "Imprime" lo que no fue seleccionado.

- Me pone todo junto, y no me lo separa en "Filas"


Por otro lado, cuando intento realizar la suma de los productos me arroja el siguiente error:


Para realizar la suma la realizo con la función CInt(); lo he intentado también con las Funciones "Long" y "Single" y me marca el mismo error.


Mi código, donde estoy presentando mis dos problemas antes mencionados es el Siguiente:

<% Dim arr(), contador
contador = 0
redim preserve arr(0)
for i = 1 to CInt(Request.Form("comida").count)
redim preserve arr(contador)
arr(contador) = Request.Form("comida")(i)
contador = contador +1
next
%>

<tr>
<td width="22" align="center">
<font face="Tahoma" size="2"><%=Request.Form("CantGord")%></font></td>
<td align="center"><font face="Tahoma" size="2"><%=Request.Form("Comida")%></font></td>
<td width="95" align="center">
<font face="Tahoma" size="2"><%=Request.Form("QueRe")%></font></td>
<td width="148" align="center">
<font face="Tahoma" size="2"><%=Request.Form("Guiso1")%></font></td>
<td width="157" align="center">
&nbsp;</td>
<td width="61" align="center">
<p align="right"><b><font face="Tahoma" size="2">$<%=CInt(Request.Form("Gordita")) * CInt(Request.Form("CantGord"))%>ºº</font></b></td>
</tr>

<%
for i = 0 to UBound(arr)%>
<% Next %>

Alguna Sugerencia?
La verdad llevo más de semana con este problema y no he logrado corregirlo, agradeceré cualquier sugerencia, incluso por más loca que parezca jaja !

Gracias