 |
 |
 |
 |
 |
 |
 |
 |
 |
 |
 |
 |
 |
 |
 |
 |
 |
 |
<%
if request.Form("submitted") <> "" then subject="Message
from NAKF contact form" message= "Name: " &
request.Form("Name") & vbcrlf & _ "Address: " &
request.Form("Address") & vbcrlf & _ "City: " &
request.Form("City") & vbcrlf & _ "State: " &
request.Form("State") & vbcrlf & _ "Name of Student (if
not the same): " & request.Form("Name_of_student") &
vbcrlf & _ "Age: " & request.Form("Age") &
vbcrlf & _ "Karate: " & request.Form("Karate")
& vbcrlf & _ "Sword: " & request.Form("Sword")
& vbcrlf & _ "Day_Phone: " &
request.Form("Day_Phone") & vbcrlf & _ "Evening_Phone:
" & request.Form("Evening_Phone") & vbcrlf & _
"E-mail: " & request.Form("E-mail") & vbcrlf &
_ "Greensburg: " & request.Form("Greensburg") & vbcrlf
& _ "Williamsport: " & request.Form("Williamsport")
& vbcrlf & _ "Irwin: " & request.Form("Irwin")
& vbcrlf & _ "Mount Pleasant: " &
request.Form("Mount_Pleasant") & vbcrlf & _
"Pittsburgh-Plum PA:
" & request.Form("Pittsburgh-Plum PA") & vbcrlf
& _
"Message sent at " & Now() & " from
http://www.northamericankarateandfitness.com" &
request.ServerVariables("SCRIPT_NAME") dim myMail set myMail =
server.CreateObject("CDONTS.NewMail") MyMail.To
="mysabom@northamericankarateandfitness.com" MyMail.Cc=""
MyMail.From="mysabom@northamericankarateandfitness.com" MyMail.Subject
= subject MyMail.Body = message MyMail.Send set MyMail = nothing
%>
<% end if %> 
Thank you for your Request!
Once the form is
reviewed, we will contact you to set up the first available meeting.
Thank you and Tang Soo!
<%else%>
Information Contact
Please fill out the form below if you or your child are interested in obtaining more information about Tang Soo Do (Karate) or Haidong Gumdo (Sword). Once the form is reviewed, we will contact you to set up the first available meeting. Thank you and Tang Soo!