<% if Request.Form("submit") = "Soumettre" then set Mailer = Server.CreateObject("SMTPsvg.Mailer") Mailer.FromName=Request.Form("Contact") Mailer.FromAddress=Request.Form("from") Mailer.RemoteHost="mail.vaptec.ca" Mailer.AddRecipient "","webmaster@vaptec.ca" Mailer.Subject = "Vaptec Info Request" Mailer.BodyText = "DEMANDE D'INFORMATIONS" & vbCrLf & "Company name: " & Request.Form("Compagnie") & vbCrLf & "Name: " & Request.Form("Contact") & vbCrLf & "Address: " & Request.Form("Adresse") & vbCrLf & "City: " & Request.Form("Ville") & vbCrLf & "Postal Code: " & Request.Form("Code_Postal") & vbCrLf & "Phone Number: " & Request.Form("Tel") & vbCrLf & "Fax number: " & Request.Form("fax") & vbCrLf & "Email: " & Request.Form("from") & vbCrLf & "Message: " & vbCrLf & Request.Form("Message") if Mailer.SendMail then result = "La demande d'informations a été envoyée." else result = "Il y a eu une erreur. L'erreur est: " & Mailer.Response & "
S.V.P. Envoyez un courriel avec le code d'erreur à: webmaster@vaptec.ca" End if set Mailer = nothing End if %> Untitled Document
             

<% =result %>

DEMANDE D'INFORMATIONS

 
Votre compagnie :
Votre nom :
Votre adresse :
Ville :
Code postal :
Téléphone :
Télécopieur :
Courriel :

Pour nous soumettre votre demande, remplissez simplement le formulaire ci-bas.


Message :