<% Dim aryCampus, aryCrime, _ idx, _ intCrimeUB, intYear, intYearLB, intYearUB, _ rsTemp, _ strCampus, strCampusID, strCampusList, strUniversityID intYearUB = DatePart("yyyy", Now) intYearLB = intYearUB - 4 Set rsTemp = DRS(gblConn, "isp_incidentList") 'CheckError aryCrime = rsTemp.GetRows() Destroy rsTemp ExecStmt gblConn, "xsp_stat_cleanup 0" 'CheckError intCrimeUB = UBound(aryCrime, 2) For idx = 0 To intCrimeUB ExecStmt gblConn, "xsp_stat_populate 0," & PadQuotes(aryCrime(0, idx)) 'CheckError Next If Request.Form("Campus") = "" Then strCampus = "All Campuses" strUniversityID = "" strCampusID = "" Else aryCampus = Split(Request.Form("Campus"), ";") strUniversityID = aryCampus(0) strCampusID = aryCampus(1) strCampus = aryCampus(2) End If Set rsTemp = DRS(gblConn, "isp_campus 0") 'CheckError If RSEmpty(rsTemp) Then strCampusList = "" Else strCampusList = RSSelect(rsTemp, "Campus", "Select Campus...", "", " onChange='submitForm();'") strCampusList = Replace(strCampusList, "Select Campus...", "Select Campus...") End If Destroy rsTemp %> Campus Safety – Western International University

Campus Crime Statistics

This report is compiled in conjunction with the Western International University Campus Safety Policies.

The following statistics are in accordance with definitions used in the Uniform Crime Reporting System of the U.S. Department of Justice, FBI, as modified by the Hate Crimes Statistics Act. The data includes all crimes reported to the police or to a Western International University Campus Safety Authority.

If a crime has occurred but has not been reported, it cannot be reflected in the following statistics. For this reason, Western International University encourages everyone to report all crimes to the designated Campus Safety Authority or local law enforcement agency.

Crimes Reported (<%= strCampus %>)

" & vbCrLf Next %> <% For idx = 0 To intCrimeUB Response.Write _ "" & vbCrLf & _ "" & vbCrLf For intYear = intYearLB To intYearUB Response.Write "" & vbCrLf Next Response.Write "" & vbCrLf Next %>
Crime <% For intYear = intYearLB To intYearUB Response.Write " " & intYear & " 
" & aryCrime(0, idx) & "" & StatCount(aryCrime(0, idx), intYear, strUniversityID, strCampusID) & "

Statistics are available for the following locations:

<%= strCampusList %>