Première chose dans mysql workbench installer le Connector/ODBC 32 bits (x86) pour ASP Classic.
Ensuite remplacer
DRIVER={MySQL ODBC 5.1 Driver}
par
DRIVER={MySQL ODBC 5.3 ANSI Driver}
Plus d’infos sur :
https://wiki.locaweb.com.br/pt-br/Como_conectar_a_um_banco_MySQL_atrav%C3%A9s_de_script_ASP
Sous 2012 serveur, installer le driver mysql-connector-odbc-5.3.6-winx64.msi, récupérable sur https://dev.mysql.com/downloads/connector/odbc/
NB : testé le connecteur en 32 bits, non installable sous 2012 serveur !
Ensuite passer le pool d’application en 64 bits pour faire tourner le driver en ASP.
Pour vous connecter ce sera donc :
|
1 2 3 4 5 |
Set oConn=Server.CreateObject("ADODB.Connection") oConn.Open "DRIVER={MySQL ODBC 5.3 ANSI Driver};SERVER=localhost;PORT=3306;DATABASE=XXX;USER=XXX;PASSWORD=XXX;OPTION=3;" ... oConn.Close Set oConn = nothing |
Sous iis7 et 8 (2008 serveur et +) il faut utiliser CDO.message :
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 |
<% Set myMail=CreateObject("CDO.Message") myMail.Subject="Test email with CDO" myMail.From="votre_email" myMail.To="email_destinataire" myMail.TextBody="This is a message." myMail.HtmlBody="<p>This is a message.</p>" ' méthode pour envoyer de notre serveur de relais ou de celui de votre choix myMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing")=2 ' myMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver")="mail.rd-andorre.net" myMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport")=25 ' ---------------------- ' méthode la plus judicieuse, si serveur de relais down on ne perd pas les envois, ça reste stocké jusqu'à ce que le serveur de relais soit de nouveau opérationnel myMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing")=1 myMail.Configuration.Fields.item("http://schemas.microsoft.com/cdo/configuration/smtpserverpickupdirectory") = "c:\inetpub\mailroot\pickup" ' ---------------------- myMail.Configuration.Fields.Update myMail.Send set myMail=nothing %> |
» Quelques fonctions utiles sous CDO :
|
1 2 3 4 5 6 |
<% myMail.CC = "email1@email.com" ' liste des destinataires en CarbonCopy myMail.BCC = "email1@email.com" ' liste des destinataires en BlindCarbonCopy myMail.ReplyTo = "email@email.com" ' adresse de réponse si différente de l'expéditeur myMail.AddAttachement("C://chemin/fichier") ' envoyer un fichier joint %> |
|
1 2 3 4 5 6 |
<% ' SMTP authentication myMail.Configuration.Fields.Item( ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 'basic (clear-text) authentication myMail.Configuration.Fields.Item( ("http://schemas.microsoft.com/cdo/configuration/sendusername") ="postmaster@mydomain.com" myMail.Configuration.Fields.Item( ("http://schemas.microsoft.com/cdo/configuration/sendpassword") ="password" %> |
Sous 2000 serveur, utilisez CDONTS (obsolète) :
|
1 2 3 4 5 6 7 8 9 |
<% Dim CD: set CD = server.CreateObject("CDONTS.NewMail") CD.From = "expediteur_mail" CD.To = "recipient" CD.Subject = "exp_sujet" CD.Body = "texte" CD.Send Set CD = nothing %> |
» Quelques fonctions utiles sous CDONTS :
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 |
<% CD.Importance = 0 ' importance : 0 = normal, 1 = urgent, 2 = tres urgent ' CD.AttachFile "\\repertoire\fichier.jpg","fichier.jpg" ' le chemin du fichier qui sera attache (chemin absolu, nom du fichier) ' CD.Cc = "email1@email.com, email2@email.com" ' liste des destinataires en CarbonCopy, separes par une virgule ' CD.BCc = "email1@email.com, email2@email.com" ' liste des destinataires en BlindCarbonCopy (Copie cachee invisible), separes par une virgule ' CD.BodyFormat = 0 CD.MailFormat = 0 ' Pour envoyer un mail au format HTML, ajouter les 2 lignes precedentes. ' ' Pour laisser le mail en format PlainText, mettez des 1 pour ces 2 lignes ' %> |