Contact Information

Walnut Pier :: Studio II :: Carnahan Therapy

" onSubmit="return IsValidForm(this, aFields);">

Contact Walnut Pier or Carnahan Therapy

<% ' Send email with CDO Sub SendEmail(strTo, strFrom, strSubject, strMessage, strHTML) 'On Error Resume Next sch = "http://schemas.microsoft.com/cdo/configuration/" smtpserverpickupdirectory = "c:\Inetpub\mailroot\pickup" Set cdoConfig = CreateObject("CDO.Configuration") With cdoConfig.Fields .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 1 .Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 30 .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverpickupdirectory") = smtpserverpickupdirectory .Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 0 .update End With Set cdoMessage = CreateObject("CDO.Message") With cdoMessage Set .Configuration = cdoConfig .From = strFrom .To = strTo .Subject = strSubject .TextBody = strMessage If strHTML <> "" Then .HTMLBody = strHTML .Send End With Set cdoMessage = Nothing Set cdoConfig = Nothing End Sub If Request.Form("send") = "1" Then Dim aContacts(2) aContacts(0) = "joe@walnutpierhealthclub.com" aContacts(1) = "karin@walnutpierhealthclub.com" aContacts(2) = "michael@walnutpierhealthclub.com" sError = "" If Request.Form("captcha") <> Session("Captcha_Code") Then sError = "Sorry, the verification code you typed didn't match the one shown on the image." If IsNumeric(Request.Form("contact")) = False Then sError = "You didn't select a person to contact." If sError = "" Then sTo = aContacts(CInt(Request.Form("contact"))) sSubscribe = "No" If Request.Form("subscribe") = "1" Then sSubscribe = "Yes" sFrom = Request.Form("name") & " <" & Request.Form("email") & ">" sSubject = "[Walnut Pier Health Club] Contact form submission" sMessage = "Name: " & Request.Form("name") & vbCrLf & _ "Email: " & Request.Form("email") & vbCrLf & _ "Phone: " & Request.Form("phone") & vbCrLf & _ "Subscribe: " & sSubscribe & vbCrLf & _ "Comments:" & vbCrLf & Request.Form("comments") SendEmail sTo, sFrom, sSubject, sMessage, "" %>

Thank you, your message was successfully sent and you'll receive a response shortly.

<% Else %>

<%= sError %>

<% End If End If %>

Name:
Email Address :
Phone:
Who do you wish to contact?
I want to receive Walnut Pier Email Updates with Exercise Tips and Club Announcements
Comments:
Verification code:	Please type the verification code shown on the image.

Privacy Assured