Would you like to share your story of
relational aggression with The Ophelia Project? We want
to hear from you - whatever your perspective. Aggressors,
targets, and kids in the middle; everyone has a story
to share. You are not alone!
Males and females experience relational
aggression in many different ways: at school, online
or in the workplace. Where does relational aggression
happen in your life? If you had a bad experience, how
did you make it right?
Please fill in the form completely and accurately. Your story can serve as an inspiration for others, and we appreciate the opportunity to further discuss it by contacting you directly. Your anonymity and the anonymity of the individuals in your story will always be protected.
<%
If Request("Submit") <> "" Then
DIM strfirstname, strlastname, stremailaddress, phone1, phone2, phone3, address1, address2, city, state, zipcode, story
strfirstname = Request.Form("firstname")
strlastname= Request.Form("lastname")
stremailaddress = Request.Form("emailaddress")
phone1 = Request.Form("phone1")
phone2 = Request.Form("phone2")
phone3 = Request.Form("phone3")
address1 = Request.Form("address1")
address2 = Request.Form("address2")
city = Request.Form("city")
state = Request.Form("state")
zipcode = Request.Form("zipcode")
story = Request.Form("story")
errorMessage = ""
' Error Check
IF strfirstname = "" THEN errorMessage = errorMessage & "First Name" END IF
IF strlastname = "" THEN errorMessage = errorMessage & "Last Name" END IF
IF stremailaddress = "" THEN errorMessage = errorMessage & "Email Address" END IF
IF phone1 = "" OR phone2 = "" OR phone3 = "" THEN
errorMessage = errorMessage & "Phone"
END IF
IF address1 = "" THEN errorMessage = errorMessage & "Address" END IF
IF city = "" THEN errorMessage = errorMessage & "City" END IF
IF state = "" THEN errorMessage = errorMessage & "State" END IF
IF zipcode = "" THEN errorMessage = errorMessage & "Zip Code" END IF
IF story = "" THEN errorMessage = errorMessage & "My Story" END IF
'If there is an error, display the error, else, submit the email
IF errorMessage <> "" THEN
Response.Write "Please complete the following fields before submitting the form:" & errorMessage & "
"
ELSE
On error resume next
Dim bodyText
bodyText = bodyText & ""
bodyText = bodyText & "Sister Project Interest Survey Submission
"
bodyText = bodyText & "Contact Information
"
bodyText = bodyText & "Name: " & strfirstname & " " & strlastname & "
"
bodyText = bodyText & "Email: " & stremailaddress & "
"
bodyText = bodyText & "Phone: (" & phone1 & ") " & phone2 & "-" & phone3 & "
"
bodyText = bodyText & "Address: " & address1 & "
"
IF address2 <> "" THEN bodyText = bodyText & " " & address2 & "
" END IF
bodyText = bodyText & " " & city & ", " & state & " " & zipcode & "
"
bodyText = bodyText & "My Story: " & story & "
"
'Dim mySmartMail
Set mySmartMail = Server.CreateObject("aspSmartMail.SmartMail")
'Mail Server
mySmartMail.Server = "mail.opheliaproject.org"
'From
mySmartMail.SenderAddress = "do_not_reply@opheliaproject.org"
'To - dstasiewski@opheliaproject.org
mySmartMail.Recipients.Add "dstasiewski@opheliaproject.org"
'Parameter
'mySmartMail.Priority = Request("Priority")
'Content Type
mySmartMail.ContentType = "text/html"
'Message
mySmartMail.Subject = "RA Stories"
mySmartMail.Body = bodyText
'Send the message
mySmartMail.SendMail
if err.number <> 0 then
response.write("Unfortunately an error occurred while trying to submit the form. If the problem persists, download the PDF version to email or send back to us via mail so that we may add you to our database.
")
else
Response.redirect ("main/ra_share.htm")
end if
set mySmartMail = nothing
END IF
End If
%>
|
