<% If Session("asturianos") = "" Then session("username")="astu0102" session("asturianos")="0" set Conn = Server.CreateObject("ADODB.Connection") Conn.Open "clar.net.asturianos" SQL="INSERT into pedido (username) values ('astu0102')" set rs =conn.execute(SQL) Conn.Close set Conn1 = Server.CreateObject("ADODB.Connection") Conn1.Open "clar.net.asturianos" set rs1 = Server.CreateObject("ADODB.Recordset") rs1.ActiveConnection = "dsn=clar.net.asturianos;" rs1.Source = "SELECT * FROM pedido" rs1.CursorType = 2 rs1.LockType = 3 rs1.Open numreg=0 do while not rs1.eof numreg=numreg+1 rs1.movenext loop session("idpedido")=numreg Const cartAttributes = 5 Const maxCartItems = 50 ReDim arrcart(cartAttributes,maxCartItems) Session("MyCart") = arrcart Session("cartItem") = 0 End if %> ProductosAsturianos.net
La Vega, 39 - 4º A - 33600 Mieres - Asturias - ES
Tlf.: 615 540 828
info@productosasturianos.net

 

Optimizado para 800x600 IExplorer