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>

Autoría, licencia y acciones sobre este artículo

Informe de Rubén Alvarez* Atención: Contenido exclusivo de DesarrolloWeb.com. No reproducir. Copyright. * Para consultas técnicas utilizar la lista de correo. Versión imprimible del artículo Enviar artículo por e-mail Publicar un comentario del artículo

Comentarios de los visitantes

Añadir un comentario del artículo Aun no hemos recibido comentarios de este artículo. Puedes ser el primero en enviar tu comentario.

Enlaces:

Maestrosdelweb

  Ir arriba