% @language="VBSCRIPT" %>
<%
strerrmsg = ""
strcomments = trim(request.form("questions"))
strprod = Request. QueryString("prod")
if not Request.QueryString("state") = "" then
state = Request.QueryString("state")
else
state = 1
end if
if state = 2 then
if request.form("Email") = "" then
strerrmsg = strerrmsg & "You must enter a valid email address to submit this form.
"
state = 1
end if
if request.form("name") = "" then
strerrmsg = strerrmsg & "You must enter your name to submit this form.
"
state = 1
end if
end if
if state = 2 then
strbody = "The following question was submitted from the Balancing System FAQ page of the web site:" & vbCrLf & vbCrLf
strbody = strbody & "Name: " & request.form("name") & vbCrLf
strbody = strbody & "Company: " & request.form("company") & vbCrLf
strbody = strbody & "Email: " & request.form("Email") & vbCrLf
strbody = strbody & "Phone: " & request.form("phone") & vbCrLf
strbody = strbody & "Contact Method: " & request.form("contact") & vbCrLf & vbCrLf
strbody = strbody & request.form("questions")
Set Mail = Server.CreateObject("Persits.MailSender")
Mail.Host = "smtp.easystreet.com"
Mail.From = request.form ("Email")
Mail.FromName = request.form("name")
Mail.AddAddress "sbs-sales@schmitt-ind.com"
Mail.Subject = "Schmitt- Balancing Systems Question Form"
Mail.Body = strbody
On Error Resume Next
Mail.Send
If Err <> 0 Then
Response.Write "Error encountered: " & Err.Description
End If
Set Mail = Nothing
Response.Redirect "/thanks.shtml"
end if
%>
![]() |
|
||||||||||||||||||||||||||||||||||||||||||
|
|
||||||||||||||||||||||||||||||||||||||||||