<%@ Language=VBScript %> <% Function ExecSQL(strSQL) Set Conn = Server.CreateObject("ADODB.Connection") 'Set rsLocal = Server.CreateObject("ADODB.Recordset") Conn.Open gs_KP_strConnectString 'connstring 'Set rsLocal = conn.Execute(strSQL) conn.Execute(strSQL) Set Conn = Nothing ExecSQL = true End Function Function ExecSQLRS(strSQL) Set Conn = Server.CreateObject("ADODB.Connection") Set rsLocal = Server.CreateObject("ADODB.Recordset") Conn.Open gs_KP_strConnectString Set rsLocal = conn.Execute(strSQL) Set Conn = Nothing set ExecSQLRS = rsLocal End Function %>

 

 

 

 

Please print this form out. Fill in the blanks and check the boxes that apply. Give this form to any school official (Principal, Assistant Principal, Counselor, Teacher, etc).
I am concerned about ______________________ who is in ______ grade. Because they are:
	He/she is threatening to hurt him/herself
	He/she is threatening to hurt someone else
	I think he/she has a weapon at school
	I think he/she is in a gang
	I think he/she is using or selling drugs or alcohol
	other - Please explain: