AUTOMATISATION DES CONNECTION ET RECORDSET

<%
' Connection à une base
Function Connexion(DBName)
   Dim conn, sConnString, oFs, sDBPath
   Path = Server.MapPath("path de la db")

   Set conn= Server.CreateObject("ADODB.Connection")
   sConnString = "DRIVER={Microsoft Access Driver (*.mdb)}; " & "DBQ=" & Path & "/" & DBName& ".mdb" 
   Set Connexion= conn
End Function

' Recordset
Function Recordset(Connexion, rSQL)
   Set Recordset= Connexion.Execute(rSQL)
End Function

' Execute un requete SQL
Function Execute(Connexion, rSQL)
   Connexion.Execute rSQL
End Function
%>