%@LANGUAGE="VBSCRIPT"%> <% If Request.ServerVariables("REQUEST_METHOD") = "POST" then msgBody = "Name : " & Request.Form("name") & VbCrLf msgBody = msgBody & "E Mail : " & Request.Form("email") & VbCrLf msgBody = msgBody & "Telephone : " & Request.Form("telephone") & VbCrLf msgBody = msgBody & "Request Contact : " & Request.Form("request_contact") & VbCrLf msgBody = msgBody & "Comments : " & Request.Form("comments") Set Mailer = Server.CreateObject("SMTPsvg.Mailer") Mailer.FromName = Request.Form("name") Mailer.FromAddress= Request.Form("email") Mailer.RemoteHost = "mantis.xtranet.co.za" Mailer.AddRecipient "Pat", "pat@reliefvalve.co.za" Mailer.AddBCC "Marcelle", "info@reliefvalve.co.za" Mailer.Subject = "Relief Valve On-Line Contact" Mailer.BodyText = msgBody if Mailer.SendMail then Response.Redirect("ThankYou.htm") else Response.Write "Mail send failure. Error was " & Mailer.Response end if End If %>
|
Telephone:
|
(27) (31) 914-0000 |
|
Facsimile:
|
(27) (31) 914-0002 |
|
Pat:
|
|
|
Sam:
|
sam@reliefvalve.co.za |
|
Information:
|
info@reliefvalve.co.za |
|
Physical
Address:
|
54 Beechgate Crescent, Southgate Industrial Park, Umbogintwini, Kwa Zulu Natal, South Africa. |
|
Postal
Address:
|
P.O. Box 26242, Isipingo Beach, 4115, Kwa Zulu Natal, South Africa. |