<%@LANGUAGE="VBSCRIPT"%><% Dim Send
Send = False
If Request("sendEmail") = "1" Then
Dim tmp
Dim CDOobj
tmp = ""
tmp = tmp & "| Nom | " & Request("nom") & " |
"
tmp = tmp & " | Courriel | " & Request("courriel") & " |
"
tmp = tmp & " | Téléphone | " & Request("tel") & " |
"
tmp = tmp & " | Message | " & Request("message") & " |
"
tmp = tmp & "
"
Set cdoConfig = CreateObject("CDO.Configuration")
With cdoConfig.Fields
.Item(cdoSendUsingMethod) = 2
.Item(cdoSMTPServer) = "72.55.186.51"
.Item(cdoSMTPServerPort) = 25
.Item(cdoSMTPConnectionTimeout) = 20
.Item(cdoSMTPAuthenticate) = 1
.Item(cdoSendUserName) = "site@aximage.net"
.Item(cdoSendPassword) = "Si.24:14"
.Update
End With
Set CDOobj = CreateObject("CDO.Message")
With CDOobj
Set .Configuration = cdoConfig
.To = "info@diffa-location.com;info@okkommunikation.com;graphodesign@sympatico.ca;info@amerindiandream.org" 'Le destinataire
.From = Request.Form("Courriel") 'Que qui...? on récup;re l'adresse courriel de l'usager
.Subject = "Message !" 'Le sujet du message
.HTMLBody = tmp 'Le message en HTML
.Send 'On fait SEND.
End With
Set CDOobj = Nothing
Send = True
End If%>
Formulaire
<% If NOT Send Then %>
<% Else %>
Merci ! Vous pouvez fermer cette fenêtre.
<% End If %>