Dudas sobre un carrito pasando datos a bases de datos al acabar la compra

haga41 · #1 (**permalink**) 30/01/2009, 11:57

Hola a todos,

Estoy intentando crear un carrito de la compra para una web bastante sencilla y de momento todo me iba bien, use el carrito de aspfacil.com y simplemente le añadí el hecho de que sólo se pueda usar el carrito si te has registrado antes.

El caso es que ahora lo que quiero es que cuando el usuario decida finalizar la compra todo lo que este en su carrito pase a una tabla de la base datos llamada pedidos y hay es donde tengo las dudas, he intentado pasar los datos de la session carrito a la base de datos pero no me aclaro y me da un fallo de se espera un objeto en la linea de "tabla3.open sql2,conexion,3,3".

Básicamente creo que lo que no entiendo es el funcionamiento del objeto carrito o la variable de sesión carrito y como puedo sacar los datos de ahí y meterlos en la tabla de pedidos, si puedieráis darme alguna pista de por donde empezar os lo agradecería mucho.

Tampoco tengo demasiado claro como hacer para que la tabla de Pedidos esté bien, es decir entiendo que debe tener:

- idpedido = autonúmerico
- idusuario = texto
- total = numérico (gasto total de ese pedido)
- fecha = obtenida con date() en ASP
- hora = obtenida con time() en ASP

Pero aparte de estos datos, ¿cómo hago para que aparezca el detalle de la compra desglosado? Es decir cuantas unidades y de que producto, podría crear 3 campos de cada producto: idproducto, precio y unidades pero supongo que no será la forma correcta de hacerlo.

Este es el código de la página de un producto:

Código asp:

Ver original<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<title>Tienda</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
<link href="/estilos/estilos.css" rel="stylesheet" type="text/css" />
</head>
 
<body>
<%
Sub MostrarCatalogo
Set conexion = Server.CreateObject("ADODB.Connection")
Set tabla = Server.CreateObject("ADODB.recordset")
 
conexion.open "PROVIDER=MICROSOFT.JET.OLEDB.4.0; Data Source="&server.MapPath("../db/Tienda.mdb")
 
 sql = "Select * from Productos where Idproducto =" & request("id") 
    tabla.open sql, conexion
    Dim usuario
    Dim nombre
    usuario = session("usuario")
    %>
    
<% if (usuario = "ok") then
    nombre = session("user")%>
<table width="960" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td height="31" align="right"><span style="color:#FFFFFF;font-weight:bold">Hola <%=nombre%></span><img src="http://www.forosdelweb.com/iconos/carrito.gif" alt="" width="16" height="13" hspace="5" border="0" align="absmiddle" /><a href="http://www.forosdelweb.com/tienda/index.htm" target="_blank" >Tienda</a> <a href="desconectar.asp?id=1&pag=prod1" >Cerrar sesión</a></td>
  </tr>
<% else %> 
<table width="960" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
    <td height="31" align="right"><img src="http://www.forosdelweb.com/iconos/carrito.gif" alt="" width="16" height="13" hspace="5" border="0" align="absmiddle" /><a href="http://www.forosdelweb.com/tienda/index.htm" target="_blank" >Tienda</a></td>
  </tr>
<% end if%>   
  <tr>
    <td><table width="100%" border="0" cellspacing="0" cellpadding="0">
      <tr>
        <td align="right" valign="top"><table width="100%" border="0" cellpadding="0" cellspacing="0" bgcolor="#77786A">
          <tr>
 
            <td height="115" align="left" valign="bottom"><br />              
              <table border="0" cellspacing="0" cellpadding="10">
                </table></td>
          </tr>
 
        </table></td>
      </tr>
      <tr>
        <td align="center" bgcolor="#757668"><table width="920" border="0" cellpadding="0" cellspacing="0" bgcolor="#000000">
          <tr>
            <td><table width="920" border="0" cellspacing="10" cellpadding="0">
              <tr>
                <td align="left"><img src="<%=tabla.fields("foto")%>" />                  <table width="420" border="0" cellspacing="0" cellpadding="10">
 
                  <tr valign="top">
                    <td><%=tabla.fields("nombre")%><br /></td>
                    </tr>
                  
                </table>                  
                <font color="#FFFFFF"><br />
                  </font>
<% if (usuario = "ok") then
    nombre = session("user")%>
                  <table border="0" cellpadding="10" cellspacing="0" bgcolor="#5C5C4C">
                    <tr>
                      <td><font color="#FFFFFF">Precio : <strong><%=tabla.Fields("precio")%></strong>&euro;</font></td>
                      <td bgcolor="#999966" ><img src="http://www.forosdelweb.com/../imag/ico-carrito.gif" alt="" width="16" height="13" /> <a href="prod1.asp?ac=meter&prod=<%=tabla.Fields("Idproducto")%>&id=1" target="_blank">Comprar</a></td></tr>
</table>       
<% else %>
<table border="0" cellpadding="10" cellspacing="0" bgcolor="#5C5C4C">
                    <tr>
                      <td><font color="#FFFFFF">Precio : <strong>70</strong>&euro;</font></td>
                      <td bgcolor="#999966"><img src="http://www.forosdelweb.com/iconos/carrito.gif" alt="" width="16" height="13" /> <a href="http://www.forosdelweb.com/tienda/index.htm" target="_blank">Comprar</a></td>
                    </tr>
                  </table>
<% end if%>                                        
 <font color="#FFFFFF">&nbsp; </font></td>
              </tr>
            </table></td>
          </tr>
        </table></td>
      </tr>
      <tr>
 
        <td align="center" bgcolor="#757668">&nbsp;</td>
      </tr>
    </table></td>
  </tr>
</table>
</body>
</html>              
                      
<%  tabla.close
End sub
    
''''''''''''''''''''''''''''''''''''''''SHOP''''''''''''''''''''''''''''''''''''''''''''''
 
Sub MostrarCarrito'*********************************************************
 
Dim tabla, tabla2, SQL
Dim clave
Dim gastos  
Dim total, subtotal
'gastos=2500 '
gastos=0
total=0
subtotal=0
Set tabla=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 tabla=conexion.Execute(SQL)
%>
    <TR>
<TD><%=tabla.Fields("Nombre")%></TD>
    <TD><%=carrito(clave)%></TD>
    <TD><%=tabla.Fields("Precio")%></TD>
    <TD><A HREF="prod1.asp?ac=sacar&prod=<%=clave%>&cant=1&id=1">Quitar Uno</A>
     <A HREF="prod1.asp?ac=sacar&prod=<%=clave%>&cant=<%=carrito(clave)%>&id=1">Quitar Todos</A>
    </TD>
<%
subtotal=CSng(FormatNumber(carrito(clave))*tabla.Fields("Precio"))
total=total+subtotal
%>
    <TD><%= subtotal %></TD>
    </TR>
<%
Next
If carrito.Count > 0 Then
tabla.Close
Set tabla=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=prod1.asp?id=1>Seguir mirando</A> / <A HREF=prod1.asp?ac=fin&id=1>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.)
<%  
 
Dim tabla3, sql2
 
sql2 = "Select * from Pedidos"
        tabla3.open sql2,conexion,3,3       
        tabla3.addnew
        tabla3.fields("Idusuario") = session("idusuario")
        tabla3.update
        tabla3.Close
        Set tabla3=Nothing
 
 
Set Session("carrito")=Nothing
 
 
End Sub'********************************************************************
 
 
Dim carrito
Dim accion
Dim producto
Dim cant
Dim conexion
%>
 
<%
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
conexion.Close
Set conexion=Nothing
 
 
''''''''''''''''''''''''''''''''''''''''SHOP''''''''''''''''''''''''''''''''''''''''''''''    
%>

Este es link a la página con el archivo original:
http://www.aspfacil.com/codigo/shop.asp?ac=ver

Adler · #2 (**permalink**) 30/01/2009, 14:52

Hola

Creo que con esto lograrás lo que buscas

Código asp:

Ver originalSub MostrarCarrito'*********************************************************
.....
 
<%
subtotal=CSng(FormatNumber(carrito(clave))*tabla.Fields("Precio"))
total=total+subtotal
%>
    <TD><%= subtotal %></TD>
    </TR>
<%
 
 
if accion<>"fin" then ' CREA OTRA TABLA (o como tu veas)
else
SQL="INSERT INTO Compras (Articulo, ....) values ('"&oRs.Fields("Nombre")&"', ......)"
oConn.Execute(SQL)
end if
 
 
Next
If carrito.Count > 0 Then
tabla.Close
Set tabla=Nothing
End If
%>
 
...

Suerte

haga41 · #3 (**permalink**) 31/01/2009, 12:54

Hola Adler,

Gracias por la ayuda, he intentado hacer algo parecido a lo que tú me dices, eso creo al menos. He invertido los valores en la sentencia SQL por si era algo de eso pero da el mismo error en la línea de "SQL="INSERT INTO Pedidos ('"&oRs.Fields("IdProducto")&"') values ('"&clave&"')" me dice: "Se requiere un objeto: 'oRs'" pero el objeto oRs ya está declarado ya que lo he creado primero aquí:

Código asp:

Ver original<%
Sub MostrarCatalogo
Set tabla = Server.CreateObject("ADODB.recordset")
Set oRs = Server.CreateObject("ADODB.recordset")
%>

Y luego aquí:

Código asp:

Ver original<%
Dim carrito
Dim accion
Dim producto
Dim cant
Dim conexion
Dim oRs
%>

Así es como he dejado esta parte del código:

Código asp:

Ver original<%
subtotal=CSng(FormatNumber(carrito(clave))*tabla.Fields("Precio"))
total=total+subtotal
%>
    <TD><%= subtotal %></TD>
    </TR>
<%
if accion<>"fin" then
else
SQL="INSERT INTO Pedidos ('"&oRs.Fields("IdProducto")&"') values ('"&clave&"')"
Set oRs=conexion.Execute(SQL)
end if
 
Next
If carrito.Count > 0 Then
tabla.Close

La verdad es que tengo un lío considerable con el tema de las SQLs y todo eso.

Adler · #4 (**permalink**) 31/01/2009, 14:17

Hola

Para darte la respuesta que ocupaba me base en el original

Hazlo asi

Código asp:

Ver originalSQL="INSERT INTO Pedidos ('"&tabla.Fields("IdProducto")&"') values ('"&clave&"')"
conexion.Execute(SQL)

PD: No hace falta un recordset

Suerte

sjam7 · #5 (**permalink**) 31/01/2009, 23:46

y por que no vas metiendo los carritos en una base de datos desde que se selecciona? asi no cargas el server con variables de sesion?

ademas, si el usuario, ya registrado se tiene que retirar despues podria seguir con su compra, de la otra manera no...digo

Adler · #6 (**permalink**) 01/02/2009, 08:07

Hola

Cita:

Iniciado por sjam7

y por que no vas metiendo los carritos en una base de datos desde que se selecciona? asi no cargas el server con variables de sesion?

ademas, si el usuario, ya registrado se tiene que retirar despues podria seguir con su compra, de la otra manera no...digo

¿Y si el usuario se retracta de su compra?

No me parece tan sencillo como lo
pintas, para que el usuario pudiera seguir comprando en otro momento y sumar su nueva compra a la antigua y no cobrarle de nuevo los gastos de envio.

haga41 · #7 (**permalink**) 01/02/2009, 13:57

Hola a ambos,

Lo primero, gracias Adler ya lo he probado adaptandolo a mi version y funciona perfectamente.

Sobre la forma de hacer las cosas sjam7, pensé en su día en un usar una base de datos temporal que se borrase si no se hacía la compra y pasasen los datos a una base de datos definitiva si se concreta la compra pero creo es mejor usar variables de sesión y que en la tabla de pedidos sólo se guarden pedidos definitivos.

De todas formas hay cosas que no se si son fallos de Access de ASP o probablemente míos, en la tabla de pedidos quiero pasar la fecha actual y la hora del pedido, al menos la fecha para poder ordenar los pedidos por fecha y esas cosas. El caso es que pongo una variable fecha y la igualo a date() y cuando la meto en el campo de la base de datos de Access en un campo fecha/hora tipo fecha corta me pone siempre de fecha 30/12/1899. Si uso un document.write(date()) en el archivo de asp si que me saca bien la fecha.

Otro tema que me tiene un poco preocupado es el de la seguridad, de momento estoy usando una base de datos de Access porque tampoco se muy bien como hacerlo con SQL Server pero no se como hacer que la gente no pueda bajarse la base datos si averigua la ruta al mdb. Si puede poner alguna especie de usuario y contraseña o algo así.

Adler · #8 (**permalink**) 02/02/2009, 06:01

Hola

Cita:

Iniciado por haga41

De todas formas hay cosas que no se si son fallos de Access de ASP o probablemente míos, en la tabla de pedidos quiero pasar la fecha actual y la hora del pedido, al menos la fecha para poder ordenar los pedidos por fecha y esas cosas. El caso es que pongo una variable fecha y la igualo a date() y cuando la meto en el campo de la base de datos de Access en un campo fecha/hora tipo fecha corta me pone siempre de fecha 30/12/1899. Si uso un document.write(date()) en el archivo de asp si que me saca bien la fecha.

f = Date()
SQL="INSERT INTO Pedidos ('"&tabla.Fields("IdProducto")&"', fecha) values ('"&clave&"', #"&f&"#)"

Cita:

Iniciado por haga41

Otro tema que me tiene un poco preocupado es el de la seguridad, de momento estoy usando una base de datos de Access porque tampoco se muy bien como hacerlo con SQL Server pero no se como hacer que la gente no pueda bajarse la base datos si averigua la ruta al mdb. Si puede poner alguna especie de usuario y contraseña o algo así.

Mira esta liga, quizás te ayude

Suerte

haga41 · #9 (**permalink**) 02/02/2009, 17:04

Hola Adler,

Gracias de nuevo, lo de la fecha funciona perfecto como me los has puesto tanto para la fecha como para la hora, supongo que esas almoadillas serviran para la limpiar los valores del objeto date y time o algo así.

Sobre lo otro he estado mirando los ejemplos de la web que me has dado y he probado uno de ellos pero no estoy seguro de si lo entiendo bien, he cambiado en el archivo SHOP.asp esto:

Código asp:

Ver original<%
Set oConn=Server.CreateObject("ADODB.Connection")
oConn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("data\tienda.mdb")
%>

Código asp:

Ver original<%
Set oConn=Server.CreateObject("ADODB.Connection")
 
Dim path_Bd As String
    
  path_Bd = App.Path & "data\Tienda.mdb"
    
  oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & _
          path_Bd & ";" & "User Id=admin;Password="%>

Y me da un error de "Error de compilación de Microsoft VBScript (0x800A0401)
Se esperaba un final de instrucción" en la línea del Dim path_Bd As String. Pero la duda que tengo es si el User Id y el Password son valores que yo declaro en ese momento on valores de la base de datos, entiendo que son valores que declaro en ese momento no? He probado a declarar Dim path_Bd sin el "As String"pero entonces me da un erro de "se requiere un objeto" en la línea de "path_Bd = App.Path & "\data\Tienda.mdb". He intentado probar de otras formas que he encontrado en otras webs pero al probarlo local no sabía que poner cuando tenía que poner el Server y también me fallaban.

Essftg · #10 (**permalink**) 03/02/2009, 05:22

Hola tengo una pregunta ya para rizar el rizo.
Una vez que esta finalizado el pedido como puedes enviarlo por e-mail?, es decir que el usuario y el administrador de la tienda virtual reciba una copia del pedido.
Muchas gracias

Adler · #11 (**permalink**) 03/02/2009, 05:53

Hola, haga41

Prueba con

Código sql:

Ver originalSET oConn = Server.CreateObject("ADODB.Connection")
oConn.OPEN "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("data\Tienda.mdb")&"; Jet OLEDB:Database Password=Adler;"

Pero primero has de ponerle a la bd una contraseña, probando, ya que hace años que no trabajo con Access, sería

Archivo --> Abrir ---> Seleccionas la bd ---> En el botón Abrir, pinchas en la flecha. Se te abrirá un menú. Escoges Abrir en Modo Exclusivo

Essfgt

Cuando sea igual a "fin" además de hacer el insert, añade esta función para envio de correos

Suerte

haga41 · #12 (**permalink**) 03/02/2009, 17:19

Hola Adler,

De esa forma va perfecto, muchas gracias.
Después de hacer lo que has puesto de abrir la base datos en modo exclusivo lo que hacer es ir al menú de seguridad en la parte de arriba y elegir: Establecer contraseña para la base de datos. Con eso ya funciona todo perfectamente.

Haciendo más pruebas con el carrito me ha salido una cosa que no se como arreglar, he estado buscando por ahí la forma pero no he encontrado una forma que me lo solucione aún, quiero que la variable de session carrito se borre o se ponga a cero cuando el usuario cierra el navegador, cuando cierra sesión la variable se pone a cero y se borra su valor tanto en Firefox como en Explorer pero al cerrar navegador la variable de sesión sólo se me borra en Explorer en Firefox sigue manteniendo su valor.
Según he leido creo que tendría que borrar la caché para poder borrar la variable de sesión de Firefox pero no se si puedo hacerlo o sólo puede hacerlo el usuario.

Este es mi archivo Global.asa que tengo en el directorio raíz, lo de Response.expires = 0 lo he puesto para intentar qeu borre la caché pero no me funciona.

Código asp:

Ver original<%@LANGUAGE="VBSCRIPT" RUNAT="SERVER"%>
session_onStart(). 
 
sub session_onStart()
session("num_prod")=0
session("carrito")=0
session("usuario")="ko"
Response.expires = 0
 
session_onEnd(). 
 
sub session_onEnd()
session("num_prod")=0
session("carrito")=0
session("usuario")="ko"
Response.expires = 0
 
</SCRIPT>

sjam7 · #13 (**permalink**) 03/02/2009, 21:10

es que se supone que una sesion puede seguir aunque se cierre el navegador, si tienes configurado para que la sesion dure 20min esos 20 min son a partir de la ultima actividad en el servidor, incluyendo cerrar el navegador, si lo tienes configurado con mas tiempo pues durara mas.

y de lo de usar una base de datos...no es tan dificil, es mas, yo asi lo uso y se me hace mas facil controlar, y usando el mismo global.asa puedes hacer que en lugar de borrar datos al terminar la sesion borres los datos en la tabla, pero en fin, solo es un comentario, cada quien

Adler · #14 (**permalink**) 04/02/2009, 07:07

Hola

Global.asa está bien pero como dices que quieres detectar el cierre del navegador, has de hacerlo del lado del cliente

Hechale un vistazo a este articulo, el autor dice que funciona

Suerte

haga41 · #15 (**permalink**) 06/02/2009, 11:38

Hola sjam7,

La verdad es que al principio pensaba hacer algo parecido a lo que decías tú, es decir que las compras en vez de guardarse en variables de sesión se guarden en una base de datos, lo que pasa es que lo que yo había pensado en tener 2 tablas diferentes en esa base de datos una tabla llamada por ejemplo "temporal" en la que se irían almacenando los elementos que compra el usuario y otra llamada "compras", "pedidos" o algo así que sería la tabla en la que se quedarían grabadas las compras definitivas, lo que pasa es que no tengo muy claro como lo haría.

Según tú, en el global.asa podría vaciar la tabla "temporal" tanto al cerrar sesión como al cerrar navgador ¿no?

Adler

Gracias por el enlace, he intentado probarlo pero aún me queda comprenderlo bien, el Ajax y yo todavía no nos entendemos mucho.

Creo que intentaré hacerlo funcionar así pero también intentaré crear otra versión con tablas temporales. No e la verdad es que estoy hecho un lío, no pensaba que el Firefox me iba a dar tantos problemas con las variables de sesión.

Adler · #16 (**permalink**) 06/02/2009, 13:31

Hola

Cita:

Iniciado por haga41

No e la verdad es que estoy hecho un lío, no pensaba que el Firefox me iba a dar tantos problemas con las variables de sesión.

¿Qué problema tienes usar FF y sesiones? Yo llevo años y no he tenido ningún problema

haga41 · #17 (**permalink**) 07/02/2009, 13:34

Hola Adler,

Creo que seguramente he hecho tantas pruebas que al final me he equivocado, porque ahora estoy probando a cerrar Firefox sin haber cerrado sesión y al volver a abrir Firefox vacia correctamente el carrito juraría que nates no lo hacía pero me habré equivocado.

Lo que me he dado cuenta aunque probablemente sea rizar el rizo y algo incontrolable es que si usando Firefox tengo abiertas varias pestañas y en una tengo la tienda online con el carrito de la compra con cosas dentro si cierro esa pestaña y por tanto la tienda y más tarde vuelvo a abrir una nueva pestaña y acceder a la tienda después de acceder a la tienda de nuevo los objetos siguen en el carrito, creo que es algo muy rebuscado pero bueno no se porque me ha dado por probarlo.

haga41 · #18 (**permalink**) 12/02/2009, 04:41

Hola otra vez,

Ya siento molestar pero he tenido un problema instalando SQL Server y he tenido instalar el XP de cero otra vez. El caso es que después de instalar el IIS y el Dreamweaver he vuelto a crear el sitio y he puesto la última copia de seguridad que tenía, pero al haber metido la contraseña a la base de datos de Access no me dejaba finalizar la compra, ingresar los datos den la tabla. El caso es que me he puesto a dar permisos a los usuarios en la pestaña de seguridad y ahora me falla el global.asa.

Me dice este error:

Páginas Active Server, ASP 0137 (0x80004005)
Cada bloque Script debe ser uno de los procedimientos Global.asa autorizados. Las directivas Script con <% ... %> no están autorizadas dentro del archivo global.asa. Los nombres de procedimientos autorizados son Application_OnStart, Application_OnEnd, Session_OnStart o Session_OnEnd.
/carro/global.asa, línea 1

Este es el global.asa

<%@LANGUAGE="VBSCRIPT" RUNAT="SERVER"%>
session_onStart().

sub session_onStart()
session("num_prod")=0
session("carrito")=0
session("usuario")="ko"
Response.expires = 0

session_onEnd().

sub session_onEnd()
session("num_prod")=0
session("carrito")=0
session("usuario")="ko"
Response.expires = 0

</SCRIPT>

El caso es que si quito el global.asa me finaliza las compras perfectamente aunque claro.

He visto este post tuyo Adler, porque también me pasaba ese problema antes de que me pasase lo del global.asa y he hecho lo que hiciste tú pero supongo que habré tocado algun permiso que no debía.

¿Alguna idea de donde la he podido liar?

Adler · #19 (**permalink**) 12/02/2009, 06:13

Hola

Bueno he estado desconectado unos días, malditos exámenes

Cita:

Iniciado por haga41

Lo que me he dado cuenta aunque probablemente sea rizar el rizo y algo incontrolable es que si usando Firefox tengo abiertas varias pestañas y en una tengo la tienda online con el carrito de la compra con cosas dentro si cierro esa pestaña y por tanto la tienda y más tarde vuelvo a abrir una nueva pestaña y acceder a la tienda después de acceder a la tienda de nuevo los objetos siguen en el carrito, creo que es algo muy rebuscado pero bueno no se porque me ha dado por probarlo.

Como tú dices es rizar el rizo. No creo que tenga mucha importancia ya que el usuario tiene la opción de borrar todos los artículos de la compra anterior. Además este caso que planteas cuanta veces se puede dar ....

En cuanto a tu otro problema quitale la @

<%LANGUAGE="VBSCRIPT" RUNAT="SERVER"%>

Suerte

haga41 · #20 (**permalink**) 15/02/2009, 16:24

Hola Adler,

Ya siento que hayas estado liado con exámenes, espero que te hayan salido bien.

Lo de las pestañas como tú dices es ser demasiado quisquilloso así que de momento me olvido.

Lo otro al final era un tema de permisos, poniendo "No compartido" en las opciones de carpeta de "Uso compartido de web" parece que funciona pero gracias por darme otra solución.

Adler · #21 (**permalink**) 21/02/2009, 07:14

Hola, haga41

Enhorabuena