Foros del Web - Ver Mensaje Individual - Porque no pasa un simple valor de un textbox a otra pagina

ciberpata · #1 (**permalink**) 11/10/2008, 05:37

Hola tengo un codigo de un carrito de la compra que no es capaz de pasar un valor a otra pagina y por más que es sencillo y lo he hecho millones de veces pues no pasa el valor.

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:

<%@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%>

Este es el código que hay en la pagina que recoge el valor de la variable recoger:

Código:

 <%Response.write Request.form("recoger")%>

El caso es que me pasa el valor vacio o bien no me pasa el valor del campo recoger

Gracias