<% if Request.Form("submit") = "Send" 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 = "Your information was sent successfully." else result = "There was an error. The error is: " & Mailer.Response & "
Please send an email with the error code to: webmaster@vaptec.ca" End if set Mailer = nothing End if %> Vaptec - Request for Information
             

<% =result %>

REQUEST FOR INFORMATION

 
Company Name :
Contact :
Address :
City :
Postal Code :
Telephone :
Fax :
Email Address :

Please fill in the text below with the information you request.
 

Message :