salut, je cherche à réaliser un script en vbscript (donc .vbs) Le vbscript étant proche de l'asp, je pensais adresser ma table de cette manière:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Sub connect(sql)
  Set conn = Server.CreateObject("ADODB.Connection")
  conn.ConnectionString = "DRIVER={MySQL ODBC 3.51 Driver};" _
                     & "SERVER=127.0.0.1;" _
                     & " DATABASE=data;" _
                     & "UID=***;PWD=****; OPTION=3"
  conn.Open
  Set rst = Server.CreateObject("ADODB.Recordset")
  rst.open sql,conn
End Sub
 
Sub chercher()
  sql = "SELECT * FROM tsyn_mails t WHERE Syn_MailQuotas = 'noquota';"
  connect(sql)
  do while not rst.eof
    body = "Nom: " & rst("Syn_MailDom") & " - Mail:" & rst("Syn_MailDes") & "@" & _
           rst("Syn_MailDom") & "<br>"
    rst.movenext
  loop
  response.write body
End Sub
 
chercher()
mais ca ne marche pas. L'objet server n'est pas accepté. Il ya une autre méthode pour adresser sa table si on passe par vbscript? A moins que ce ne soit pas possible?