Ver y editar el carrito I

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