Ver y editar el carrito I

Descubrimos el script que se ocupa de mostrarnos el carrito y que nos permite borrar artículos del mismo
Una vez las compras realizadas y antes de efectuar el pedido, el cliente tiene la posibilidad de ver el contenido de su carrito y, si lo considera oportuno, borrar alguno de los artículos que haya elegido en un primer momento llevado por su ansia consumista.

Aquí tenéis el script al completo el cual iremos comentando progresivamente en el siguiente capitulo:

<%
'Recogemos la variable borrar
borrar=CInt(Request.Querystring("borrar"))
If borrar<>0 Then 'Si se ha pedido el borrado de un articulo
   i=1
   Do While borrar<>CInt(Session(i))
      i=i+1
   Loop
   For j=i to Session("num_articulos")
      Session(j)=Session(j+1)
   Next
   Session("num_articulos")=Session("num_articulos")-1
End if

'Si no quedan articulos en el carrito despues del borrado
If Session("num_articulos")= 0 Then Response.Redirect("busqueda.asp")
%>

<!--#include file="plantillas/connon.inc"-->
<!--#include file="scripts_lengua/lecturalengua.inc" -->
<!--#include file="plantillas/plantillahtml.inc"-->

<table align="center" width="700" cellspacing="2" cellpadding="2" border="0">
<tr>
<td bgcolor="#999966" align="center" colspan="5"><FONT face="verdana,arial,helvetica" size=2 color="#ffffff"><%imprimir("carrito")%></font><br></td>
</tr>
<%
'Iniciamos las variables
i=1 'contador de articulos
Session("total")=0 'precio del pedido

'Comenzamos la impresion de los articulos del carrito
While i<=Session("num_articulos")
   id=Session(i)
'Generamos nuestra sentencia SQL y la ejecutamos
   sSQL="Select * From articulos Where id_articulo="&id
   set RS=Conn.Execute(sSQL)
'Calculamos el precio del pedido
   Session("total")=Session("total")+RS("precio")
%>
   <tr>
   <td bgcolor="#cc9900"><FONT face="verdana,arial,helvetica" size=2 color="#ffffff"><%=RS("titulo")%></font></td>
   <td bgcolor="#cc9900"><FONT face="verdana,arial,helvetica" size=2 color="#ffffff"><%=RS("autor")%></font></td>
   <td bgcolor="#cc9900"><FONT face="verdana,arial,helvetica" size=2 color="#ffffff"><%=RS("editorial")%></font></td>
   <td bgcolor="#cc9900"><FONT face="verdana,arial,helvetica" size=2 color="#ffffff"><%=RS("precio")%></font></td>
   <td bgcolor="#cc9900"><FONT face="verdana,arial,helvetica" size=2 color="#ffffff"><a href="carrito.asp?borrar=<%=rs("id_articulo")%>"><%imprimir("borrar")%></a></font></td>
   </tr>
<%
   i=i+1
Wend
rs.Close
%>
<tr>
<td align="center" bgcolor="#cc9900" align="center" colspan="5"><FONT face="verdana,arial,helvetica" size=2 color="#ffffff"><%imprimir("total")%>: <%=Session("total")%></font></td>
</tr>
<tr>
<td align="center" bgcolor="#999966" align="center" colspan="5"><FONT face="verdana,arial,helvetica" size=2 color="#ffffff"><a href="pedido.asp"><%imprimir("pedido")%></a>      <a href="busqueda.asp"><%imprimir("volver")%></a></font></td>
</tr>
</table>

<!--#include file="plantillas/connoff.inc"-->

</body>
</html>


Ir la librería