Coucou les gens,
Est-ce que quelqu'un peut me dire où est ma faute svp? Merci
J'ai comme erreur : Object rquired: 'Server'
Dim strConnection, conn, rs, strSQL
strConnection = "Provider=OraOLEDB.Oracle;Data Source=DBTEST;User Id=GES;Password=BABA;"
Set conn Server.CreateObject("ADODB.Connection") '> se plante ici
conn.Open strConnection
Set rs = Server.CreateObject("ADODB.recordset")
strSQL = "SELECT * FROM Journal"
rs.open strSQL, conn, 3,3
rs.MoveFirst
WHILE NOT rs.EOF
MsgBox rs.dte & vbCrLf & rs.msg
rs.MoveNext
WEND
rs.Close
Set rs = Nothing
conn.Close
Set conn = Nothing