Shop.asp----------------
<%@LANGUAGE="VBSCRIPT"%>
<%
'Option Explicit%>
<%Response.Buffer=True%>
<HTML>
<HEAD>
<TITLE>Carrito de compras</TITLE>
<%
' SHOP.ASP
Sub MostrarCatalogo '****************************************************
Dim oRs, oRs2, SQL
Dim idmarca
Set oRs=Server.CreateObject("ADODB.Recordset")
Set oRs2=Server.CreateObject("ADODB.Recordset")
SQL="SELECT * FROM Productos;"
oRs.Open SQL, oConn
%>
<TABLE BORDER=1 CELLSPACING="1"CELLPADDING="1">
<TR>
<TD><B>Marca</B></TD>
<TD><B>Producto</B></TD>
<TD><B>Precio</B></TD>
<TD></TD>
<%
Do until oRs.EOF
idmarca=oRs.Fields("Marca")
SQL="SELECT * FROM Marcas WHERE IdMarca="&idmarca&";"
oRs2.Open SQL, oConn
%>
<TR>
<TD><A HREF="<%=oRs2.Fields("URL")%>"><%=oRs2.Fields("Nombre")%></A></TD>
<TD><%=oRs.Fields("Nombre")%></TD>
<TD><%=oRs.Fields("Precio")%></TD>
<TD><A HREF="shop.asp?ac=meter&prod=<%=oRs.Fields("IdProducto")%>">Comprar</A></TD>
</TR>
<%
oRs2.Close
oRs.MoveNext
Loop
%>
</TABLE>
<%
oRs.Close
Set oRs=Nothing
Set oRs2=Nothing
%>
<center><A HREF=shop.asp?ac=ver>Ver Carrito</A></center>
<%
End Sub'********************************************************************
Sub MostrarCarrito'*********************************************************
Dim oRs, oRs2, SQL
Dim clave
Dim gastos
Dim total, subtotal
gastos=2500
total=0
subtotal=0
Set oRs=Server.CreateObject("ADODB.Recordset")
%>
<TABLE BORDER="1"CELLPADDING="1"CELLSPACING="1">
<TR>
<TD>Artículo</TD>
<TD>Cantidad</TD>
<TD>Precio/unidad</TD>
<TD>Quitar del carrito</TD>
<TD>Total</TD>
</TR>
<%
For Each clave In carrito
subtotal=0
SQL="SELECT * FROM Productos WHERE IdProducto="&clave&";"
Set oRs=oConn.Execute(SQL)
%>
<TR>
<TD><%=oRs.Fields("Nombre")%></TD>
<TD><%=carrito(clave)%></TD>
<TD><%=oRs.Fields("Precio")%></TD>
<TD><A HREF="shop.asp?ac=sacar&prod=<%=clave%>&cant=1">Quitar Uno</A>
<A HREF="shop.asp?ac=sacar&prod=<%=clave%>&cant=<%=carrito(clave)%>">Quitar Todos</A>
</TD>
<%
subtotal=CSng(FormatNumber(carrito(clave))*oRs.Fields("Precio"))
total=total+subtotal
%>
<TD><%= subtotal %></TD>
</TR>
<%
Next
If carrito.Count >0 Then
oRs.Close
Set oRs=Nothing
End If
%>
<TR>
<TD COLSPAN=4>Gastos de envío</TD>
<TD>
<%
If total=0 Then
Response.Write("0")
Else
Response.Write(gastos)
End If
%>
</TD>
<TR>
<TD COLSPAN=4><B>Total:</B></TD>
<TD>
<%if total=0 Then
Response.Write("0")
Else
Response.Write(total+gastos)
End If
%>
</TD>
</TABLE>
<%
If accion<>"fin"Then
%>
<center>
<A HREF=shop.asp>Seguir mirando</A>/ <A HREF=shop.asp?ac=fin>Pasar por caja</A>
</center>
<%
End If
End Sub'********************************************************************
Sub MeterArticulo (id)'******************************************************
If carrito.Exists(id) Then
carrito(id)=carrito(id)+1
Else
carrito.Add id, 1
End If
Response.Write("Se ha añadido el artículo al carrito<br>")
End Sub'********************************************************************
Sub SacarArticulo (id, cantidad)'*******************************************
If Not carrito.Exists(id) Then
Response.Write("¡No tienes eso en tu carrito!")
Else
If cantidad>1 Then
carrito.Remove(id)
Else
carrito(id)=carrito(id)-1
If carrito(id)<1 Then
carrito.Remove(id)
End If
End If
End If
End Sub'********************************************************************
Sub PasarPorCaja'***********************************************************
%>
<H2>¡Gracias por su compra!</H2>
<%
MostrarCarrito
%>
En breve te llegarán a tu casa los productos. Gracias por comprar . <br>
(En un caso real aquípediríamos los datos, etc.)
<%
Set Session("carrito")=Nothing
End Sub'********************************************************************
Dim carrito
Dim accion
Dim producto
Dim cant
Dim oConn
%>
<H2>Carrito de la compra</H2>
<P>
<hr>
<%
Set oConn=Server.CreateObject("ADODB.Connection")
oConn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("datatienda.mdb")
If IsObject(Session("carrito")) Then
Set carrito=Session("carrito")
Else
Set carrito=Server.CreateObject("Scripting.Dictionary")
End If
accion=CStr(Request.QueryString("ac"))
producto=CInt(Request.QueryString("prod"))
cant=CInt(Request.QueryString("cant"))
Select Case accion
Case "ver"
MostrarCarrito
Case "meter"
MeterArticulo Producto
MostrarCarrito
Case "sacar"
Call SacarArticulo (producto, cant)
MostrarCarrito
Case "fin"
PasarPorCaja
Case Else
MostrarCatalogo
End Select
Set Session("carrito")=carrito
oConn.Close
Set oConn=Nothing
%>
Detalle.asp ----------------------------
<%@LANGUAGE="VBSCRIPT"CODEPAGE="1252"%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN""http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type"content="text/html;charset=iso-8859-1">
<title>Documento sin título</title>
</head>
<body>
<div align="right"><table width="404"border="1"align="center"cellpadding="5"cellspacing="0">
<tr>
<td colspan="2"><div align="center"><strong>Detalle del producto </strong></div></td>
</tr>
<tr>
<td><div align="center"><img src=""alt=""width="142"height="135"style="background-color: #CC0000"></div></td>
<td><p align="left">xxxxxxxxxxxxxxxxx</p>
<p align="left">xxxxxxxxxxxxxxx</p>
<p align="left">xxxxxxxxxxxxxxx</p></td>
</tr>
<tr>
<td> </td>
<td> </td>
</tr>
</table>
</div>
</body>
</html>
