<%@ LANGUAGE="VBSCRIPT" %> <% If Request.Form("Submission")="True" Then ' *** Save submission information *** Set ConnActivityResponse = Server.CreateObject("ADODB.Connection") Set CmdAddActivityResponse = Server.CreateObject("ADODB.Recordset") ConnActivityResponse.Open strConnect SQL = "SELECT * FROM activity_responses" CmdAddActivityResponse.Open SQL, ConnActivityResponse, 1, 3 CmdAddActivityResponse.AddNew CmdAddActivityResponse.Fields("full_name")=Left(Request.Form("full_name"),255) CmdAddActivityResponse.Fields("position")=Left(Request.Form("position"),100) CmdAddActivityResponse.Fields("university_college")=Left(Request.Form("university_college"),100) CmdAddActivityResponse.Fields("phone")=Left(Request.Form("phone"),20) CmdAddActivityResponse.Fields("fax")=Left(Request.Form("fax"),20) CmdAddActivityResponse.Fields("email")=Left(Request.Form("email"),100) CmdAddActivityResponse.Fields("activity_description")=Request.Form("activity_description") CmdAddActivityResponse.Fields("activity_where_when")=Request.Form("activity_where_when") CmdAddActivityResponse.Fields("activity_evaluation")=Request.Form("activity_evaluation") CmdAddActivityResponse.Fields("activity_resources")=Request.Form("activity_resources") CmdAddActivityResponse.Fields("submission_time")=now() CmdAddActivityResponse.Update ' *** Release objects *** CmdAddActivityResponse.Close Set CmdAddActivityResponse= Nothing ConnActivityResponse.Close Set ConnActivityResponse = Nothing '*** Send Action Plan to Shane *** Set Mail = Server.CreateObject("Persits.MailSender") Mail.Host = "mail.acuiweb.org" Mail.IsHTML = True Mail.From = "info@stophate.org" Mail.FromName = "info@stophate.org" Mail.AddAddress "info@stophate.org" Mail.Subject = "stopehate.org Response Activity Form Submission" Mail.Body = "A new Response Activity Form received!

" & _ "Full Name: " & Request.Form("full_name") & "
" & _ "Position or Job Title: " & Request.Form("position") & "
" & _ "College/University: " & Request.Form("university_college") & "
" & _ "Telephone Number: " & Request.Form("phone") & "
" & _ "Fax Number: " & Request.Form("fax") & "
" & _ "Email Address: " & Request.Form("email") & "

" & _ "Activity Description: " & Request.Form("activity_description") & "

" & _ "Activity Where & When: " & Request.Form("activity_where_when") & "

" & _ "Activity Evaluation: " & Request.Form("activity_evaluation") & "

" & _ "Activity Resources: " & Request.Form("activity_resources") & "" On Error Resume Next Mail.Send '*** Send Action Plan to Submitter *** Set Mail = Server.CreateObject("Persits.MailSender") Mail.Host = "mail.acuiweb.org" Mail.IsHTML = True Mail.From = "info@stophate.org" Mail.FromName = "info@stophate.org" Mail.AddAddress Request.Form("email") Mail.Subject = "stopehate.org Response Activity Form Submission" Mail.Body = "Thank You for your submission!

" & _ "Full Name: " & Request.Form("full_name") & "
" & _ "Position or Job Title: " & Request.Form("position") & "
" & _ "College/University: " & Request.Form("university_college") & "
" & _ "Telephone Number: " & Request.Form("phone") & "
" & _ "Fax Number: " & Request.Form("fax") & "
" & _ "Email Address: " & Request.Form("email") & "

" & _ "Activity Description: " & Request.Form("activity_description") & "

" & _ "Activity Where & When: " & Request.Form("activity_where_when") & "

" & _ "Activity Evaluation: " & Request.Form("activity_evaluation") & "

" & _ "Activity Resources: " & Request.Form("activity_resources") & "" On Error Resume Next Mail.Send Response.Redirect "responseactivityform_thankyou.asp" End If %> STOP THE HATE! Train the Trainer Response Activity Form

Please complete this online response activity form for each hate crime prevention effort completed by you.   A hate crime prevention effort can be any activity -- including newsletter articles, workshops, seminars, rallies, lectures, etc.   All response forms will be listed on your trainer activity page with your action plan listing your six hate crime prevention efforts. The information will be used to share among trainers and to create a "best practices" document for future educational resources.  You may download the form and email directly to info@stophate.org
Full Name:
Position Title:
College/University:
Phone Number:
Fax Number:
Email Address:
   
Please describe in detail the effort/activity which you organized, conducted or led.

 
Where/when did you conduct the effort/activity?
 
Please describe your view of the effectiveness of the effort/activity.
 
Please list any additional resources or information which would be helpful to share this effort/activity as a Best Practice with other hate crime prevention trainers.   
 
If applicable, please email info@stophate.org with any materials (photos, posters, agendas, worksheets, pledges, etc.) that were used in the effort/activity to share with others along with this response activity form.  Please mention your response activity form when you send these attachments separately. Thank you.  
 
 

 
Note: After clicking the submit button, print a copy of your completed response activity form for your own records.  The information submitted will be listed on your individual trainer page on STOPHATE.ORG.