listado.asp (la principal)
Código:
<HTML>
<HEAD>
<TITLE>Ejemplo Carrito de Compras</TITLE>
</HEAD>
<BODY>
<H1><CENTER>Listado de Artículos</CENTER></H1>
<CENTER>
<TABLE BORDER=0>
<TR><TD>Cod</TD><TD>Desc.</TD><TD>Prec</TD><TD>Cant.</TD>
<%
set conn=server.createobject("ADODB.connection")
conn.open "miodbc"
set rs=server.createobject("ADODB.recordset")
rs.open "select * from articulos",conn
while not rs.eof
%>
<TR>
<TD><%=rs("id")%></TD>
<TD><%=rs("descrip")%></TD>
<TD><%=rs("precio")%></TD>
<TD><Input type="text" value="0" name="cant<%=rs("id")%>"></TD>
<TD><IMG SRC="carrito.gif" ONCLICK="javascript:window.location='agregar.asp?cod=<%=rs("id")%>&cant='+cant<%=rs("id")%>.value"></TD>
</TR>
<%
rs.movenext
wend
rs.close
conn.close
%>
</TABLE>
<BR><Input type="button" value="Ver Carrito" ONCLICK="javascript:window.location='ver.asp'">
</BODY>
</HTML>