| |
|
 |
CEEL Limited
85 Stafford Dr.
Brampton, Ontario, Canada L6W 1l3
Phone: (905)456-3245
Fax: (905)456-3294
<%
newform = Request.Form("submit")
if newform <> "Submit" then
%>
<%
else
mailTo= "sales@swunited.com"
Break= " "
Name= Request.Form("name")
Email= Request.Form("email")
Address= Request.Form("address")
Subject= Request.Form("subject")
Message= Request.Form("comments")
Set Mailer = Server.CreateObject ("SMTPsvg.Mailer")
Mailer.FromName = "Information Request"
Mailer.FromAddress = "info@swunited.com"
Mailer.Subject = Subject
Mailer.BodyText = Name
Mailer.BodyText = Email
Mailer.BodyText = Address
Mailer.BodyText = Break
Mailer.BodyText = Message
Mailer.RemoteHost = "mail-fwd"
Mailer.AddRecipient mailTo, mailTo
if Mailer.SendMail then
response.write "
"
response.write "Your request was successfully sent to Southwest United Industries"
response.write "
"
response.write "
"
response.write "We will contact you shortly"
response.write "
"
response.write "
"
response.write "Thank You."
response.write "
"
else
response.write "Your message was not sent.
"
response.write "The error was: " & Mailer.Response & "
"
end if
Set Mailer = Nothing
end if
%>
|
|
 |
|
