Stocker la connexion à une base de données dans une procedure vbscript/ASP

Bonjour, dans une page asp classic :

Code:

---

1 2 3 4 5

'--connexion a la base de données Set conn = server.createobject("ADODB.Connection") response.Write(Application("Base")) Base = "DRIVER={Microsoft Access Driver (*.mdb)}; " & "DBQ=" & Application("Base") conn.open Base

---

comment faire pour stocker ces lignes dans une procédure? et comment l'appeler?
Merci d'avance

Salut,

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

dim conn   sub connect() '--connexion a la base de données Set conn = server.createobject("ADODB.Connection") response.Write(Application("Base")) Base = "DRIVER={Microsoft Access Driver (*.mdb)}; " & "DBQ=" & Application("Base") conn.open Base end sub   connect

---

ERE