Insertar un registro desde el Global.asa

[siannah]

Hola! Espero que todos estén bien.

He pensado en llevar una estadística de mi site. Quiero que se guarde en una tabla las visitas diarias. Para esto coloqué el código que me permite insertar o actualizar un registro por fecha.

Ahora bien, esto lo hice en el Global.asa, pero no me funciona. Ese mismo código lo coloqué en una página .ASP y funcionó perfecto. En cambio en el Global.asa no . Realmente me interesa que sea en el Global.asa ya que desde ahí puedo tener un conteo más acertado y fidedigno de las visitas.

La pregunta es: Puedo colocar un código así en el Global.asa... y si no, de qué forma podría emular la funcionalidad que me ofrece dicho archivo?>

Gracias anticipadas.

Saludos

[RsOfT]

y que error te tira en el GLobal.asa?

[siannah]

No me presenta errores, simplemente no modifica la tabla. Pero como dije anteriormente, ese mismo código lo probé en otro lugar y funcionó a la perfección.

[Myakire]

Mas bien la pregunta sería ¿en que evento lo pusiste dentro del global.asa?

[siannah]

En Sub Session_OnStart

[siannah]

En Sub Session_OnStart, así cada vez que una persona inicie una sesión se genere el insert o el update de acuerdo a si la última fecha que está en la tabla es igual a la actual.

[Atonovich]

Porque no checas si realmente está interpretando ese procedimiento con un response.write ???
v.gr
Sub Session_OnStart()
response.write "antes del registro"
'TALACHA DE REGISTRO DE VISITAS
response.write "después del registro"
End sub

[RsOfT]

Hay que resaltar que GLOBAL.ASA no es una página ASP, nadie "visita" este archivo. Por tanto, sólo tenemos disponibles los objetos Application, Session y Server en los eventos de inicio y Application y Session en los de final. Podemos utilizar cualquier código VBScript/JScript que queramos, pero no objetos intrínsecos de ASP como Request o Response.

Intenta hacer el update directamente con valores y no con variables. Nos cuentas tus resultados.

[siannah]

Amigo RsOFT, hice esto:

Código:

dim cnn, rs, sSql
Set cnn = Server.CreateObject("ADODB.Connection")
Set rs  = Server.CreateObject("ADODB.RecordSet")
cnn.open("stringconnection")
		
sSql= "Select top 1 convert(varchar(10),Fecha,103) Fecha from Estadistica order by fecha desc"
rs.open sSql,cnn
		
With rs
 if .recordcount <> 0 then
   'If FormatDateTime(Date,1) = FormatDateTime(rs("Fecha"),1) then  
     'cnn.execute("Update Estadistica Set Visitantes = Visitantes + 1 where convert(varchar(10),fecha,103) =  Convert(varchar(10),'" & date & "',103)") 
   'else
     cnn.execute("Insert into Estadistica (Visitantes) values(1)")
   'End If		
 End If
End With
		
rs.Close
cnn.Close
Set rs = Nothing
Set cnn = Nothing

Sólo dejé que se ejecutara el insert. Lo que puedo ver es que el código no se ejecuta por una de las funciones de asp: Date o FormatDateTime.

Seguiré probando y te cuento...

[RsOfT]

Sólo dejé que se ejecutara el insert. Lo que puedo ver es que el código no se ejecuta por una de las funciones de asp: Date o FormatDateTime.

Lo que creo es que la condicion del IF no se está dando y por ende no se hace el Update. Estas segura de que eras fechas son realmente iguales?