<% If Request.QueryString("form") = "sent" Then Dim FormValues ' Form Values for i=1 to request.form.count If request.form.key(i) <> "Submit" Then FormValues = FormValues & "" & request.form.key(i) & ": " & request.form.item(i) & "
" End If Next Set objCDO = Server.CreateObject("CDO.Message") objCDO.From = Request.Form("Email") objCDO.To = "info@cleartrauma.com" 'objCDO.BCC = "luis@quinncom.net" objCDO.Subject = "Contact Us" objCDO.HTMLBody = FormValues If Request.Form("Submit") = "Submit" Then objCDO.Send() End If Set objCDO = Nothing Response.Write("

Thank you for submitting your information. We will respond to you shortly.

") %> <% Else %>

* First Name
* Last Name
Phone Number
* Email Address
Address
Address 2
City
State/Province
Zip
Questions/ Comments

* Either Phone Number or Email Address Required For a Response

<% End If %>
Institute for Survivors of Sexual Violence
Toll-Free: 800-587-2623     Fax: 800-779-4150

For mailing registration forms, membership forms, payments and billing-related correspondence only: P.O. Box 47775   Tampa, FL   33646