Hola:
He mirado bien tu código y tienes bastante fallos, pero son porque estas empezando.
* " El session.Timeout = 1 " --> Se ha de colocar en Session_OnStart y no en Application_OnStart.
* Puedes abreviar aún más tu conexión:
~~~~~
application("ruta") = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("dbusuarios.mdb")
~~~~~~
y sólo tendrás que poner:
~~~~
Conn.Open application("ruta")
~~~~~
* En tu Session_OnStart no declaras un objeto conexión:
~~~~~~~~~~
set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open Application("ruta")
~~~~~~~~~~
Yo haría algo así en tu Session_OnStart:
~~~~~~~~~
Sub Session_OnStart
set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open Application("ruta")
fecha = date()
Set RS = Conn.Execute("INSERT INTO tb_usuarios (fecha) VALUES('"&fecha&"') ")
RS.Close
Set RS = Nothing
Conn.Close
Set Conn = nothing
Session.Timeout = 1
end sub
~~~~~~~~
Aún así tienes que revisar el Session_OnEnd:
Que son los valores 'ccc' y 'ddd' ?? para insertar datos lee este artículo:
http://www.aspfacil.com/articulos/tododb.asp
Sub Session_OnEnd
Set db_sitio = server.CreateObject("ADODB.connection")
db_sitio.Open application("ruta")
db_sitio.Execute("INSERT INTO tb_usuarios (fecha,ip) VALUES ('ccc','ddd') ")
db_sitio.Close
set db_sitio = nothing
end sub
Te recomiendo eches un vistazo a alguno de los links que te pongo a continuación:
http://www.aspfacil.com/articulos/040401.asp http://www.aspfacil.com/articulos/210301.asp http://www.aspfacil.com/articulos/278009.asp http://www.aspfacil.com/articulos/2808001.asp
Leetelos y dime algo
Saludos.