<%
Function CheckCAPTCHA(valCAPTCHA)
SessionCAPTCHA = Trim(Session("CAPTCHA"))
Session("CAPTCHA") = vbNullString
if Len(SessionCAPTCHA) < 1 then
CheckCAPTCHA = False
exit function
end if
if CStr(SessionCAPTCHA) = CStr(valCAPTCHA) then
CheckCAPTCHA = True
else
CheckCAPTCHA = False
end if
End Function
strCAPTCHA = Trim(Request.Form("strCAPTCHA"))
if CheckCAPTCHA(strCAPTCHA) = false then
%>
American Academy of Podiatric Sports Medicine - Online Inquiry
Whether you have a general question regarding a sports problem or simply a comment about our web site, we would love to hear from you! Simply complete this form and a member of the Academy will respond to you within 24 hours.
The American Academy of Podiatric Sports Medicine values your trust and privacy while online. We will never rent or sell your personal information that you provide while visiting our web site. For more information on our privacy practices, please review our Privacy Statement.
<%
else
Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
Mailer.FromName = "Online Inquiry Form"
Mailer.FromAddress= "noreply@aapsm.org"
Mailer.RemoteHost = "mail.aapsm.org"
Mailer.AddRecipient "Inquiry", "inquiry@aapsm.org"
Mailer.Subject = "Online Inquiry Form"
strMsgHeader = "Form information follows" & vbCrLf
for each qryItem in Request.Form
strMsgInfo = strMsgInfo & qryItem & " - " & request.Form(qryItem) & vbCrLf
next
strMsgFooter = vbCrLf & "End of form information"
Mailer.BodyText = strMsgHeader & strMsgInfo & strMsgFooter
Mailer.Sendmail
%>
American Academy of Podiatric Sports Medicine - Online Inquiry Confirmation
Your question has been submitted successfully and you should receive a response within 24 hours.
The American Academy of Podiatric Sports Medicine values your trust and privacy while online. We will never rent or sell your personal information that you provide while visiting our web site. For more information on our privacy practices, please review our Privacy Statement.
