<% 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"

Name:
Email:








Press Room

..Contact Us


<% if submitted <> "yes" then %>

You may contact us by submitting this form:
Name:
Email Address:
Comments:

<% end if %><% if submitted = "yes" then %>
Thank you for submitting the contact form. We will contact you shortly.
<% end if %>
Founding Fathers - Uncommon Heroes
Retailers: Please call us at (800) 733-5297 to establish an account with wholesale pricing.

© 2004 Legal Awareness Series, Inc.
Site design by KaraveNet