28/12/2005, 10:27
|
 | Colaborador | | Fecha de Ingreso: febrero-2001 Ubicación: 34.517 S, 58.500 O
Mensajes: 14.550
Antigüedad: 24 años, 2 meses Puntos: 535 | |
A, ya. Probá ésto:
Código:
'******* PAGINA DONDE MUESTRA TODO EL CONTENIDO SELECCIONADO
'creo la variable de sesion de los productos donde se guardan lo que va comprando el cliente.
'Si está vacía, la inicializo con un caracter de control (|) para luego
'detectar duplicados
If Session("carr") = "" then Session("carr") = "|"
For Each clave in carrito
subtotal=0 ' Total de cada artículo en el carrito
'Pinto la línea de este producto
SQL="SELECT * FROM Prod WHERE Id="&clave&";"
set oRs=oConn.Execute(SQL)
<th scope="row"><%=oRs.Fields("titulo")%></Th>
<th scope="row"><%=carrito(clave)%></Th>
<th scope="row"><%=oRs.Fields("Precio")%> <%respo nse.write("€")%></Th>
<th scope="row"><A HREF="shop.asp?ac=sacar&prod=<%=clave%>&cant=1"><i mg src="images/papelera.gif" width="13" height="15" alt="Quitar Uno" border="0"></A>
<A HREF="shop.asp?ac=sacar&prod=<%=clave%>&cant=<%=ca rrito(clave)%>"><p> </p><img src="images/papelera.gif" width="13" height="15" alt="Quitar Todos" border="0"><img src="images/papelera.gif" width="13" height="15" alt="Quitar Todos" border="0"></A>
</Th>
<%
'Sólo tiene el caracter de control, así que es el primer producto que compra
If session("CARR") = "|" Then
' y por lógica debe agregarse siempre
session("CARR") = session("CARR") & oRs.Fields("titulo") & "|"
Else 'No tiene sólo el caracter de control, así que verifico que el producto no exista ya
If InStr(session("CARR"), "|" & oRs.Fields("titulo") & "|") = 0
'Si entró acá, es que el producto no existía en la variable session y entonces se agrega
session("CARR") = session("CARR") & oRs.Fields("titulo") & "|"
End if
End if
response.write(session("CARR"))
Next
No estoy seguro que funcione.. no lo probé, pero sería la idea
__________________
...___... |