 |
|
|
 |
|
 INFORMATION REQUEST |
<%if Request.ServerVariables("REQUEST_METHOD") = "POST" Then
Dim msg
set msg = Server.CreateObject("JMail.Message")
msg.ISOEncodeHeaders = false
msg.ContentTransferEncoding = "7bit"
msg.Logging = true
msg.silent = true
if Request("email") <> "" then
msg.From = Request("email")
else
msg.From = "info@blastgard.net"
end if
msg.FromName = Request("email")
msg.AddRecipient "mgordon@blastgardintl.com"
'msg.AddRecipientBCC "john@magnetic.com"
msg.Subject = "Blast Gard Information Request"
body = vbCRLF & "The following request was submitted at " & now() & vbCRLF & vbCRLF
body = body & "Name: " & Request("fname") & vbCRLF
body = body & "Company Name: " & Request("company") & vbCRLF
body = body & "Title: " & Request("title") & vbCRLF
body = body & "Address: " & Request("address") & vbCRLF
body = body & "Address2: " & Request("address2") & vbCRLF
body = body & "City: " & Request("city") & vbCRLF
body = body & "State/Province: " & Request("state") & vbCRLF
body = body & "Zip/Postal Code: " & Request("zipcode") & vbCRLF
body = body & "Country: " & Request("country") & vbCRLF
body = body & "Phone: " & Request("phone") & vbCRLF
body = body & "Fax: " & Request("fax") & vbCRLF
body = body & "E-mail: " & Request("email") & vbCRLF & vbCRLF
body = body & "----------------------------------------------------------------------------" & vbCRLF & vbCRLF
body = body & "Additional Comments: " & Request("comments") & vbCRLF & vbCRLF
msg.Body = body
if not msg.Send("mail.magnetic.com" ) then
Response.write "Sorry, there was a problem in submitting the form. Please try again later."
else%>
Thank you for requesting information about our company. We will contact you shortly.
|
<%end if
Set msg = Nothing
else%>
To request additional information about our company, please complete the form below.
<% End If %>
|
|
|
|
