Guardar datos al terminar la sesion del usuario

[peta]

Hola, otra vez estoy con el global.asa liao, resulta que tomo unos datos del usuario ke visita mi página (en teoria, porke de momento lo estoy haciendo en el PWS) y kiero guardar dichos datos en el evento Sub Session_OnEnd del Global.asa, pero no me funciona.
Asi tengo este evento:

Sub Session_OnEnd
dim rst, conexion, consulta, numreg, n_visita

Set conexion = server.CreateObject("ADODB.Connection")
Set rst = Server.CreateObject("ADODB.Recordset")

conexion.Open "visitantes"
consulta="SELECT * FROM datos"

rst.Open consulta, conexion, 3, 3

numreg = rst.RecordCount 'si es -1 es ke no tiene registros

If numreg = -1 Then numreg = 0

rst.Addnew
rst("n_visitas")= numreg+1
rst("fecha")= Session("fecha")
rst("ip")=Session("ip")
rst("duracion")= Session("duracion")
rst("zona")=Session("zona")
rst("consultas")=Session("consultas")

rst.Update
rst.Close

Set rst=Nothing
Set conexion=Nothing

End Sub

Tengo ke aclarar ke el Global.asa está en el directorio raiz de mi sitio virtual del PWS, aqui tengo una carpeta y dentro de ella está la base de datos, no sé si será este el problema, como no me dá ningún error no estoy seguro.

Muchas gracias por vuestra atención, un saludo.