dim cnx
dim l_base
dim sServerName, sDatabase, sUserName, SPassword

' si déjà connecté alors on récupère la session
If not IsObject(Session("cnx")) Then
    Set cnx = Server.CreateObject("ADODB.Connection")
   
    sServerName="192.168.0.3"
    sDatabase="mabase"
    sUserName="toto"
    SPassword="123456"
    l_base = "DRIVER={MySQL ODBC 5.1 Driver}; SERVER=" & sServerName & "; PORT=3306;"
    l_base = l_base & "DATABASE=" & sDatabase & "; USER=" & sUserName & "; OPTION=3; Stmt=;"
    l_base = l_base & "PASSWORD=" & SPassword & ";"
   
    cnx.open l_base

    Set Session("cnx") = cnx
else
    Set cnx = Session("cnx")
end if