Bonsoir,
ce qu'il faut, c'est juste un accès à la base SQL SERVER :
'Initialisation de la connexion et ouverture de la base.
'on error resume next
set cn = server.createobject("ADODB.Connection")
Srv="NOM-SRVSQL"
Base="NOM-BASE"
driverDb = "Provider=sqloledb;Server="&srv&";User ID=LOGIN;Password=MOTDEPASSE;Initial Catalog="&Base&";"
cn.open DRIVERDB
SQL="Votre requête SQL"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, cn, 3, 3
' Traitement du résultat
rs.close
cn.close
Thierry DEMAN. MCSE+MSI, MCDBA, MCITP SQL2K5,SQL2K8,EXCH2K7,W2K8 ADM&ENT, MCTS OCS2007. Exchange MVP (http://www.faqexchange.info)
LE PERMIS INFORMATIQUE.
