connexion a une base access en asp.

bonjour,

je suis debutant en asp, et je cherhce a realiser une connexion a un BD access. Je voulias savoir si il etait possible d'acitver la connection dans le application start et de ne pas avoir a le redeclarer ailleurs ?
par ex : pour le global.asa

sub Application_OnStart
 Session("started")=now()
 connectionBD
end sub

sub connectionBD 
 '-------déclaration de la base------------------------------
 DSN_BASE = "DBQ=" & Server.Mappath("BD/mirroir_bd_mobile.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};Driverld=25"
 '-------création de la connection et du recordset-----------
 Set Conn = Server.CreateObject("ADODB.Connection")
 Conn.Open DSN_BASE
 Set Rs = Server.CreateObject("ADODB.Recordset")
end sub

j'ai entendu de plus que le Application_ on end ne marchait pas , est ce tjrs vrai ?
pour finir, si la 1ere partie de ma question est gérable, que dois je rajouter pour pouvoir effectuer une requete dans une autre page ?

pour le moment jai :

login=Request.Form("login")
password=Request.Form("pass")
'-------définition et exécution de la requête---------------
RequeteSQL = "Select Firstname,Lastname,right From user_right (login, password, Firstname, Lastname, right) where login="& user &" and password="& password &""
RsLot.Open RequeteSQL , Conn

merci d'avance :)

Salut, Tu peux essayer cela (je ne suis pas sur que cela fonctionne) : sub Application_OnStart ' Lock l'application Application.Lock '-------déclaration de la base------------------------------ DSN_BASE = "DBQ=" & Server.Mappath("BD/mirroir_bd_mobile.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};Driverld=25" '-------création de la connection et du recordset----------- ' Création de l'objet de connexion Set Conn = Server.CreateObject("ADODB.Connection") Application("MaConnexion") = Conn ' Ouverture de la connexion Application("MaConnexion").Open DSN_BASE ' Création d'un RecordSet Set Rs = Server.CreateObject("ADODB.Recordset") Application("MonRS") = Rs ' dé-Lock l'application Application.UnLock end sub sub Application_OnStop ' Lock l'application Application.Lock ' Suppression du RS Set Application("MonRS") = Nothing ' Fermeture de la connexion Application("MaConnexion").Close ' Suppression du RS Set Application("MaConnexion") = Nothing ' dé-Lock l'application Application.UnLock end sub A+ Walter