<%
SendEmailTo = "pacenyemail@aol.com"
Subject = Request("Subject")
FromEmail = Request("Email_Address")
FromName = Request("Full_Name")
%>
Contact Us
<% If Request("submitted") = "1" Then %>
<%
Mail.IsHTML = True
Mail.Host = "smtp.dataholdings.net"
Mail.AddAddress SendEmailTo
Mail.From = FromEmail
Mail.FromName = FromName
Mail.Subject = Subject
Mail.Body = ""_
& "
Full Name: " & Request("Full_Name")_
& "
Email Address: " & Request("Email_Address")_
& "
Message: " & Request("Message")_
& ""
On Error Resume Next
if not Mail.Send Then
ErrStr = Err.Description
Else
arrTo.RemoveAll
arrCc.RemoveAll
arrBcc.RemoveAll
arrFiles.RemoveAll
End If
On Error Goto 0
%>
PARENTS AGAINST CHILDHOOD EPILEPSY, Inc.
A Research and Education Fund
Thank you <%=Request("Full_Name")%>.
You have successfully sent your message to PACE.
Thanks again!
<% Else %>
Parents Against Childhood Epilepsy, Inc.
7 East 85th Street, Suite A3 New York, NY 10028
Tel: 212 665 (PACE) 7223
Fax: 212 327 3075
Send PACE an email:
Required information is marked with an asterisk (*).