Carrito De Compras

[sktrpunk]

grabar.asp (efectua el pedido, lo ingresa a la base)

Código:

<%
	dim codigos,x,nroped
	set carrito=server.createobject("scripting.dictionary")
	set carrito=session("micarrito")
	
	set conn=server.createobject("ADODB.connection")
	conn.open "miodbc"
	
	set rs1=server.createobject("ADODB.recordset")
	rs1.open "select max(nro) as maximo from pedidos", conn
	if isnull(rs1("maximo")) then
		nroped=1
	else
		nroped=rs1("maximo")+1
	end if
	rs1.close

	codigos=carrito.keys
	
	for x=0 to carrito.count-1
		conn.execute "insert into pedidos (nro,id,cantidad) values (" & nroped & "," & codigos(x) & "," & carrito.item(codigos(x)) & ")"
	next

	conn.close
	
	carrito.removeall
	set session("micarrito")=carrito

%>
	<H1> su pedido fue ingresado </H1>