<%
submitted=request.form("submitted")
if submitted="yes" then
'USE RON'S MAIL COMPONENT
' This is the start of the real code for calling the Email component
'dim s
dim oEmail
' Status messages are output as HTML comments
' so you can View Source to debug problems
' Status message
Response.Write "" & vbCrLf
set oEmail = Server.CreateObject("Emailcom.Sndemail")
' Initialize the object
oEmail.Initialize
oEmail.Server = "mail.uncommonheroes.us"
'Send Email to customer
oEmail.To="info@uncommonheroes.us"
'oEmail.BCC=" "
oEmail.Sub="Contact Submission from Uncommonheroes.us"
oEmail.From="contact@uncommonheroes.us"
oEmail.Msg="Name: " & Trim(Request.Form("name")) + vbLf + _
"Email: " & Trim(Request.Form("email")) + vbLf + _
"Comments: " & Trim(Request.Form("comments")) & "."
oEmail.Send
Response.Write "" & vbCrLf
set oEmail = Nothing
emailed="yes"
end if
%>
Sign Up For Our Newsletter
FREE NEWSLETTER!
"Patriotic Salutes" is a monthly newsletter absolutely jam packed with fun and informative facts about our Founding Fathers.
Trivia, patriotic holidays, PLUS a chance to win an autographed copy of "Give Me Liberty"
..Contact Us
<% if submitted <> "yes" then %>
<% end if %><% if submitted = "yes" then %>
Thank you for submitting the contact form. We will contact you shortly.
<% end if %>
Retailers: Please call us at (800) 733-5297 to establish an account with wholesale pricing.
