Marco en rojo lo que no es capaz de pasar
¿Pueden explicarme por qué?
Este es el codigo de la pagina web que debe pasar el valor:
Código:
Este es el código que hay en la pagina que recoge el valor de la variable recoger: <%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<%response.Expires=0
Response.AddHeader "PRAGMA", "NO-CACHE"
'Si se pasa una talla vacia, no la actualiza bien en el boton de actualizar del carrito
'tallavacia=true
'Valida que nos pidan una talla
'if request("pedidotalla") = "" then
' mensaje_error=("la talla está vacia")
' response.write mensaje_error
'tallavacia=false
'end if
'if tallavacia=true then
' Define constantes
CONST IDPCARRO = 0
CONST NOMBREPCARRO = 1
CONST PRECIOPCARRO = 2
CONST CANTPCARRO = 3
CONST TALLAPCARRO=4
CONST COLORPCARRO=5
' Carga el carrito de compras
IF NOT isArray( Session( "carrito" ) ) THEN
DIM carritoLocal(6,2000)
ELSE
carritoLocal = Session( "carrito" )
END IF
' Carga la información del producto
IdentificadorProducto = TRIM (Request("idp"))
NombreProducto = TRIM( Request( "NombreProducto" ) )
PrecioProducto = TRIM( Request( "PrecioProducto" ) )
pedidotalla= TRIM(Request("pedidotalla"))
pedidocolor= TRIM(REQUEST("pedidocolor"))
' Agrega el producto al carrito
IF IdentificadorProducto <> "" THEN
foundIT = FALSE
FOR i = 0 TO UBOUND( carritoLocal )
IF (carritoLocal( idpcarro, i ) = IdentificadorProducto) and (carritolocal(tallapcarro,i)=pedidotalla) and (carritolocal(colorpcarro,i)=pedidocolor) THEN
carritoLocal( CANTPCARRO, i ) = carritoLocal( CANTPCARRO, i ) + 1
foundIT = TRUE
EXIT FOR
END IF
NEXT
IF NOT foundIT THEN
FOR i = 0 TO UBOUND( carritoLocal, 2 )
IF carritoLocal( IDPCARRO, i ) = "" THEN
carritoLocal( IDPCARRO, i ) = IdentificadorProducto
carritoLocal( NOMBREPCARRO, i ) = NombreProducto
carritoLocal( PRECIOPCARRO, i ) = PrecioProducto
carritoLocal( CANTPCARRO, i ) = 1
carritoLocal(tallapcarro,i)=pedidotalla
carritoLocal(colorpcarro,i)=pedidocolor
EXIT FOR
END IF
NEXT
END IF
END IF
' Actualiza las cantidades de productos que haya en el carrito de compras
IF Request( "actualizarC" ) <> "" THEN
'Mostrar el contenido de la matriz antes de pulsar el boton de actualizar carrito
'@BORRAR:
'RESPONSE.WRITE "antes de ... <br>"
'FOR I= 0 TO 59
' RESPONSE.WRITE (carritoLocal(0, i) & " - " & carritoLocal(1, i) & " - " &carritoLocal(2, i) & " - " &carritoLocal(3, i) & " - " &carritoLocal(4, i) & " - " &carritoLocal(5, i) & "<br>")
'NEXT
'@HASTA AQUI
FOR i = 0 TO UBOUND( carritoLocal, 2 )
nuevaC = TRIM(Request("cp" & carritoLocal(IDPCARRO, i) & carritolocal(tallapcarro,i) & carritolocal(colorpcarro,i)))
borrarProducto = TRIM(Request("bp" & carritoLocal(IDPCARRO, i) & carritolocal(tallapcarro,i) & carritolocal(colorpcarro,i)))
IF nuevaC = "" or nuevaC = "0" or borrarProducto <> "" THEN
carritoLocal( idpCARRO, i ) = ""
ELSE
IF isNumeric( nuevaC ) THEN
carritoLocal( CANTPCARRO, i ) = nuevaC
END IF
END IF
NEXT
'Mostrar el contenido de la matriz despues de pulsar el boton de actualizar carrito
'RESPONSE.WRITE "despues de ............................................... <br>"
'FOR I= 0 TO 59
' RESPONSE.WRITE (carritoLocal(0, i) & " - " & carritoLocal(1, i) & " - " &carritoLocal(2, i) & " - " &carritoLocal(3, i) & " - " &carritoLocal(4, i) & " - " &carritoLocal(5, i) & "<br>")
'NEXT
'@HASTA AQUI
END IF
' Actualiza la variable Session con la matriz
Session( "carrito" ) = carritoLocal
%>
<html>
<head><title>Carrito de compras</title>
<link href="css/estilos_web.css" rel="stylesheet" type="text/css">
<script type="text/javascript" src="/menus-web/stmenu.js"></script>
</head>
<!--#include file="funciones/cabeceraweb.asp" -->
<!--#include file="funciones/funciones.asp" -->
<!--#include file="funciones/menus_web.asp" -->
<body>
<div id="contenedor">
<div id="cabeceraweb"><%CabeceraWeb%></div>
<div id="izquierda">
<div id="buscar"><%Buscar%></div>
<div id="menus">
<table class="tablamenus">
<tr>
<td><%MenusWeb%></td>
</tr>
</table>
</div>
</div>
<div id="central">
<div id="cabeceraopciones"><img src="http://www.forosdelweb.com/images/cabecera-carrito.gif" width="700" height="41"></div>
<div id="datos">
<%
totalPedido = 0
%>
<form method="post" action="session_carrito.asp">
<input name="actualizarC" type="hidden" value="1">
<table class="tablacarrito">
<tr class="filacabeceracarrito">
<td>Producto</th>
<td>Precio</th>
<td>Cantidad</th>
</tr>
<%
FOR i = 0 TO UBOUND( carritoLocal, 2 )
IF CarritoLocal( IDPCARRO, i ) <> "" THEN
'response.write preciopcarro & cantpcarro & i
totalPedido = totalPedido + ( carritoLocal(PRECIOPCARRO, i ) * carritoLocal(CANTPCARRO, i ) )
%>
<tr class="filaitemscarrito">
<td class="alineacionmedia">
<%=Server.HTMLEncode( carritoLocal( NOMBREPCARRO, i ) )%>
</td>
<td class="alineacionmedia">
<%=carritoLocal( PRECIOPCARRO, i ) & " €" %>
</td>
<td class="alineacionmedia">
<input name="cp<%=carritoLocal( IDPCARRO, i ) & carritolocal(tallapcarro,i) & carritolocal(colorpcarro,i)%>" type="text" class="cajadetexto" value="<%=carritoLocal( CANTPCARRO, i )%>" size=4>
<input name="bp<%=carritoLocal( IDPCARRO, i ) & carritolocal(tallapcarro,i) & carritolocal(colorpcarro, i)%>" type="checkbox" class="checkbox" id="bp<%=carritoLocal( IDPCARRO, i ) & carr%>" value="1">Borrar
</td>
</tr>
<%
END IF
NEXT
'Principio del código para contar los artículos del carrito
for fila=0 to ubound(carritolocal,2)
if carritolocal(0,fila) <> "" then
'La linea de abajo visualiza el contenido de la matriz
'response.Write("Producto= " & carritolocal(1,fila) & " Precio= " & carritolocal(2,fila) & " Cantidad= " & carritolocal(3,fila) & " Talla= " & carritolocal(4,fila) & " Color= " & carritolocal(5,fila) & "<br>")
end if
next
'Fin del código para contar los articulos del carrito
%>
<tr class="filatotalcarrito">
<td class="alineacionderecha negrita">
Total<%session("pedido")=totalpedido%>
</td>
<td class="precio alineacionizquierda negrita">
<%=totalPedido & " €"%>
</td>
</tr>
<tr>
<td>Recoger tienda</td>
<td><input name="recoger" type="text" id="recoger" value="1"></td>
</tr>
<tr>
<td colspan="4">
<tr>
<td>
<input class="botonesformulario" type="submit" value="Actualizar carrito">
</td>
</form>
<form method="post" action="registro_usuarios/login_usuarios.asp?confirmacion=<%=confirmacion%>">
<td>
<input class="botonesformulario" type="submit" value="Terminar la Compra"></td>
</form>
<form action="index.asp">
<td>
<input class="botonesformulario" type="submit" value="Continuar comprando">
</td>
</form>
</tr>
</td>
</tr>
</table>
</div>
</div>
<div class="corte"></div>
</div>
</body>
</html>
<%'end if%>
Código:
El caso es que me pasa el valor vacio o bien no me pasa el valor del campo recoger <%Response.write Request.form("recoger")%>
Gracias
