STOP THE HATE! Hate Crime Prevention Trainer Action Plan

<%@ LANGUAGE="VBSCRIPT" %> <% If Request.Form("Submission")="True" Then ' *** Save submission information *** Set ConnActionPlan = Server.CreateObject("ADODB.Connection") Set CmdAddActionPlan = Server.CreateObject("ADODB.Recordset") ConnActionPlan.Open strConnect SQL = "SELECT * FROM action_plans" CmdAddActionPlan.Open SQL, ConnActionPlan, 1, 3 CmdAddActionPlan.AddNew CmdAddActionPlan.Fields("full_name")=Left(Request.Form("full_name"),255) CmdAddActionPlan.Fields("position")=Left(Request.Form("position"),100) CmdAddActionPlan.Fields("university_college")=Left(Request.Form("university_college"),100) CmdAddActionPlan.Fields("phone")=Left(Request.Form("phone"),20) CmdAddActionPlan.Fields("fax")=Left(Request.Form("fax"),20) CmdAddActionPlan.Fields("email")=Left(Request.Form("email"),100) CmdAddActionPlan.Fields("overall_plan")=Request.Form("overall_plan") CmdAddActionPlan.Fields("action_plan")=Request.Form("action_plan") CmdAddActionPlan.Fields("submission_time")=now() CmdAddActionPlan.Update ' *** Release objects *** CmdAddActionPlan.Close Set CmdAddActionPlan= Nothing ConnActionPlan.Close Set ConnActionPlan = 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 Action Plan Submission" Mail.Body = "A new submission 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") & "

" & _ "Overall Plan or Approach: " & Request.Form("overall_plan") & "

" & _ "The Action Plan: " & Request.Form("action_plan") & "" 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 Action Plan Submission" Mail.Body = "Thank You for your submission!

" & _ "Overall Plan or Approach: " & Request.Form("overall_plan") & "

" & _ "The Action Plan: " & Request.Form("action_plan") & "" On Error Resume Next Mail.Send Response.Redirect "actionplan_thankyou.asp" End If %> STOP THE HATE! Hate Crime Prevention Trainer Action Plan

Please complete this action planning based on your anticipated hate crime prevention and response efforts. Your action plan to combat hate should address each of the approaches from the "10 Ways to Prevent Bias & Hate Crimes" handout from the STOP THE HATE! Campus Hate Crime Prevention Train the Trainer.

Full Name:

Position or Job Title:

College/University:

Telephone Number:

Fax Number:

Email Address:

Overall Plan or Approach

Describe your overall approach to hate crime prevention and response on your campus and, or region. What are the needs of your campus or region?

Implement Anti-Homophobia Efforts -- The Action Plan

List a minimum of six (6) hate crime prevention efforts to be completed over the next year on your college campus and, or region. If possible, indicate for each effort/activity the target date for completion. These can be various activities/efforts aimed at hate crime prevention from workshops to articles to rallies, the list continues. Use the specific needs and approach that you identified for your campus/region as a way to guide your activities/efforts.

Your Action Plan is an important guide to monitor your hate crime prevention efforts over the next year. Please email info@stophate.org with any questions or assistance. Thank you.

Note: After clicking the submit button, print a copy of your action plan for your own records.