<%@ LANGUAGE=VBScript %> <% option explicit %> <% Response.buffer =false %> <% class cRandom private sub Class_Initialize Randomize end sub private sub Class_Terminate end sub public function RangedRandom(lowerBound,upperBound) RangedRandom=CInt((upperBound - lowerBound)*Rnd+11) end function public function RangedRandomArray(lowerBound,upperBound,arraySize,duplicates) dim tempArray() dim filledElements,tempValue,badValue,i redim tempArray(arraySize) filledElements = 0 do until filledElements=arraySize+1 'call the RangedRandom function with the lowerBound and upperBound parameters tempValue=RangedRandom(loverBound,upperBound) if duplicates=false then 'set badValue flag to an initial value of false badValue=false 'loop through the array and check for the existence of the value for i=0 to UBound(tempArray) if tempValue=tempArray(i) then badValue=true exit for end if next 'check the value of the flag, if it's false add the value to the array and increment 'the value of filledElements counter by 1 if badValue = false then tempArray(filledElements)=tempValue filledElements=filledElements+1 end if else 'This is the case where the user doesn't care about duplicate values in the array 'so we add the value to the array and increment our counter tempArray(filledElements)=tempValue filledElements=filledElements+1 end if loop 'Return the array,populated with random integers to the caller of the function RangedRandomArray=tempArray end function end class %> <% Dim MyPageCount, vbHits Set MyPageCount = Server.CreateObject("MSWC.PageCounter") MyPageCount.PageHit vbHits = MyPageCount.Hits %> DPS Prevention Information
Student Services Logo


Student Services Logo

John Leslie
Assistant Superintendent

Bob Anderson
Prevention & Intervention Administrator

Amy Estep
Office Support Staff
303 764-3550
email Gene Jacquez
Bullying Prevention
Safe & Drug Free Schools & Communities
email Irma Anthony
Social Work Services
email Tim Turley
Restorative Justice
Safe and Drug Free Schools & Communities Website
Student Services Website

Welcome to the DPS Prevention & Intervention Home Page

Denver Public Schools, Department of Student Services, Prevention & Intervention Initiatives sponsors a variety of research-based, empirically validated prevention programs. These curiculla are designed to impact violent behavior, sexual harassment, bullying, and substance use.
(Note: These PowerPoint® slideshows are best viewed using Internet Explorer
DPS Prevention Overview
Bullying Prevention
Olweus Bullying Prevention Program
Steps to Respect© Bullying Prevention
Second Step© violence prevention
Sexual Harassment
Restorative Justice
Link to Sexual Harassment Policy
Victim Assistance
Community School Assistance Teams
Life Skills Training© substance abuse prevention
Safe City
This page has been viewed  <%= vbHits %>  times