%
If Request("Submit") <> "" Then
MailBody = ""
MailBody = MailBody & "PUBLICATION REQUEST (francais)" & "
" & vbCrLf & "
" & vbCrLf
MailBody = MailBody & "Name: " & Request.Form( "Prenom" ) & " " & Request.Form( "Nom" ) & "
" & vbCrLf
MailBody = MailBody & "Company: " & Request.Form( "Organisation" ) & "
" & vbCrLf
MailBody = MailBody & "Email: " & Request.Form( "Courriel" ) & "
" & vbCrLf
MailBody = MailBody & "Adress: " & Request.Form( "Adresse" ) & "
" & vbCrLf
MailBody = MailBody & "City: " & Request.Form( "Ville" ) & "
" & vbCrLf
MailBody = MailBody & "Province: " & Request.Form( "Région" ) & "
" & vbCrLf
MailBody = MailBody & "Postal Code: " & Request.Form( "Code_postal" ) & "
" & vbCrLf
' Telephone
MailBody = MailBody & "Phone: " & Request.Form( "Telephone_coderegional" ) & "-"
MailBody = MailBody & Request.Form( "Telephone_1" ) & "-"
MailBody = MailBody & Request.Form( "Telephone_2" ) & "
" & vbCrLf
' Fax
MailBody = MailBody & "Fax: " & Request.Form( "Fax_coderegional" ) & "-"
MailBody = MailBody & Request.Form( "Fax_1" ) & "-"
MailBody = MailBody & Request.Form( "Fax_2" ) & "
" & vbCrLf
MailBody = MailBody & "Comments: " & Request.Form( "Comments" ) & "
" & vbCrLf
MailBody = MailBody & ""
Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
Mailer.ContentType = "text/html"
Mailer.FromName = "Site Internet Forintek"
Mailer.FromAddress= "root@forintek.ca"
Mailer.RemoteHost = "198.235.155.11"
Mailer.AddRecipient "Rémy Dufour", "rdufour@propage.com"
Mailer.AddRecipient Request("MAIL_To"), Request("MAIL_To")
Mailer.Subject = "Formulaire PUBLICATION REQUEST"
Mailer.BodyText = MailBody
Mailer.SendMail
Response.Redirect("/html/francais/utilities/thankyou.asp")
End If
%>
![]() |
![]() |
![]() |
Complétez ce formulaire pour recevoir une publication du programme Valeur au Bois. Ces publications sont disponibles sans frais pour les manufacturiers canadiens de produits à valeur ajoutée.
|
||||||