<% Dim aryCampus, _ blnDisplay, _ rsTemp, _ strCampus, strCampusID, strFirstName, strLastName, _ strState, strStmt, strSQL, strUniversityID blnDisplay = (Request.Form("Submit") <> "") strSQL = "SELECT FirstName, LastName, ReportedBy FROM WIU_SexOffender WHERE StatusFlag = 1" strStmt = "SELECT Abbr, State FROM vw_refState ORDER BY Abbr" Set rsTemp = DRS(gblConn, strStmt) CheckError strState = RSSelect(rsTemp, "State", "Select state...", "", "") Destroy rsTemp strStmt = "isp_campus 0" Set rsTemp = DRS(gblConn, strStmt) CheckError strCampus = RSSelect(rsTemp, "Campus", "Select campus...", "", "") Destroy rsTemp %> Sex Offender Registry – Western International University

Sex Offender Registry

Campus Sex Crimes Prevention Act Sex Offender Registry

The information provided on this site is intended to be in compliance with the Campus Security Act and for campus safety purposes only. It should not be used to intimidate, threaten, or harass. Misuse of this information may result in prosecution. CAUTION: This site does not contain information on all sex offenders; this site only contains information provided to this institution. For more information regarding state sex offender registries, please visit www.sexoffender.com.

Search

Use any of the criteria below to search for a sex offender. Leaving a field blank will exclude that information in selecting the results. For the names, wildcards are permitted. Use the underscore (_) for a single character and the percent sign (%) for multiple characters. For example, "Sm_th" will match both "Smith" and "Smyth", and "m%" will match all names that begin with "m". The search is case-insensitive.
 
First Name:
Last Name:
State: <%= strState %>
Campus Affiliation: <%= strCampus %>
 
  

<% If blnDisplay Then strFirstName = Request.Form("FirstName") strLastName = Request.Form("LastName") strState = Request.Form("State") strCampus = Request.Form("Campus") If strCampus <> "" Then aryCampus = Split(Request.Form("Campus"), ";") strUniversityID = aryCampus(0) strCampusID = aryCampus(1) strCampus = aryCampus(2) End If If strFirstName <> "" Then If (InStr(strFirstName, "%") <> 0) Or (InStr(strFirstName, "_") <> 0) Then strSQL = strSQL & " AND FirstName LIKE " & PadQuotes(strFirstName) Else strSQL = strSQL & " AND FirstName = " & PadQuotes(strFirstName) End If End If If strLastName <> "" Then If (InStr(strLastName, "%") <> 0) Or (InStr(strLastName, "_") <> 0) Then strSQL = strSQL & " AND LastName LIKE " & PadQuotes(strLastName) Else strSQL = strSQL & " AND LastName = " & PadQuotes(strLastName) End If End If If strState <> "" Then strSQL = strSQL & " AND State = " & PadQuotes(strState) If strCampus <> "" Then strSQL = strSQL & " AND Location_CampusName = " & PadQuotes(strCampus) Set rsTemp = DRS(gblConn, strSQL) CheckError If RSEmpty(rsTemp) Then Response.Write "No results found." Destroy rsTemp Else Response.Write _ "" & vbCrLf & _ "" & vbCrLf & _ "" & vbCrLf & _ "" & vbCrLf & _ "" & vbCrLf & _ "" & vbCrLf & _ "" & vbCrLf & _ "" & vbCrLf Do While Not rsTemp.EOF Response.Write _ "" & vbCrLf & _ "" & vbCrLf & _ "" & vbCrLf & _ "" & vbCrLf & _ "" & vbCrLf rsTemp.MoveNext Loop Destroy rsTemp Response.Write _ "" & vbCrLf & _ "
Results
 
Name Reported By
" & rsTemp.Fields(0) & " " & rsTemp.Fields(1) & " " & rsTemp.Fields(2) & "
 
" & vbCrLf End If End If %>