|
<%
REM lieu où se trouve la base de données
dbPath = Server.MapPath("natorgs.mdb")
REM activation de l'ActiveX DataObject pour connexion à la base
SET MyConn = Server.CreateObject("ADODB.Connection")
REM ouverture de la connexion à la base
MyConn.Open "PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE=" & dbPath
%>
<%
REM fermer la connexion
MyConn.Close
SET MyConn = NOTHING
%>
|
