|
<%
' These definitions must be included on every page that uses a content window.
' You should also define the INC_* variables as needed throughout the page.
' System variables (non-configurable)
'-----------------------------------------------------------------------------
Dim incURL ' URL to the include page (May be deprecated)
Dim iRandom ' Random number (May be deprecated)
Dim objConn1 ' Object to hold primary connection to database
Dim rsTemp1 ' Array for retrieving primary database information
Dim objConn2 ' Object to hold secondary connection to database (may or may not be used)
Dim rsTemp2 ' Array for retrieving secondary database information (may or may not be used)
Dim c_mon ' Today's month, with leading 0
Dim c_day ' Today's day, with leading 0
Dim c_yea ' Today's year
Dim c_tsp ' Today, in database timestamp format
Dim c_short ' Today, in M/D/YYYY format
Dim c_long ' Today, in MMM D, YYYY format
Dim c_full ' Today, in WWWW MMMM, D, YYYY format
Dim objPDF ' Object to hold regular expression to match pdf documents
Dim objHTM ' Object to hold regular expression to match html documents
Dim PU_1, PU_2
Dim egovLink, egovImgs
' Configurable variable to achieve desired output
'-----------------------------------------------------------------------------
Dim INC_cwType ' Indicate the template you want to use from CW_template.html (integer)
Dim INC_department_id ' Limit items returned to these departments (array containing integers, find in manager)
Dim INC_division_id ' Limit items returned to these divisions (array containing integers, find in manager)
Dim INC_category_id ' Limit to a specific category (array containing integers, find in manager)
Dim INC_subcategory_id ' Limit to a specific subcategory (array containing integers, find in manager)
Dim INC_content_type_int ' Limit to a specific content type (array containing integers, find in manager)
Dim INC_content_type ' Limit to content of this type. 0 = webpage (array containing integers (or \d+-\d+), find in feel.pl)
Dim INC_featured ' Limit to featured items if set to 1, otherwise set to 0 or ""
Dim INC_orderBy ' Database field (and direction) on which to order the results
Dim num_department_ids '
Dim num_division_ids '
Dim num_category_ids '
Dim num_subcategory_ids '
Dim num_content_type_ints '
Dim num_content_types '
Dim INC_numItems ' Number of items to return in content window
Dim INC_showDesc ' Show the description of the item. Set to 1 for yes, 0 or "" for none.
Dim GLB_eventPop ' Use pop-up details for events. Set to 1 for yes, 0 or "" for no.
Dim GLB_egovURL ' URL for the egov apps
Dim GLB_dsn ' Database connection string
Dim GLB_pop
' Globally Used Variables (configurable)
'-----------------------------------------------------------------------------
GLB_egovURL = "http://cityofnovi.org/"
GLB_pop = 0
GLB_dsn = "Driver={MySQL ODBC 3.51 Driver}; Server=localhost; Database=mi_novi; UID=mi_novi; PWD=_H&sayEy?B"
' Define date values
'-----------------------------------------------------------------------------
c_mon = Right(Cstr(Month(Date)+100),2)
c_day = Right(Cstr(Day(Date)+100),2)
c_yea = Year(Date)
c_tsp = "{ts '" & c_yea & "-"& c_mon & "-" & c_day & " 00:00:00'}"
c_short = Month(Date) & "/" & Day(Date) & "/" & Year(Date)
c_full = formatDateTime(Now(), vbLongDate)
' Establish primary database connection
'-----------------------------------------------------------------------------
set objConn1 = server.createobject("adodb.connection")
objConn1.open GLB_dsn
' Useful functions and regular expressions
' ------------------------------------------------------------------------------
Set objPDF = New RegExp
objPDF.IgnoreCase = True
objPDF.Pattern = "^pdf$"
Set objHTM = New RegExp
objHTM.IgnoreCase = True
objHTM.Pattern = "^htm"
Function PCase(strInput) ' ---------------------------------------------------
Dim iPosition ' Our current position in the string (First character = 1)
Dim iSpace ' The position of the next space after our iPosition
Dim strOutput ' Our temporary string used to build the function's output
iPosition = 1
Do While InStr(iPosition, strInput, " ", 1) <> 0
iSpace = InStr(iPosition, strInput, " ", 1)
strOutput = strOutput & UCase(Mid(strInput, iPosition, 1))
strOutput = strOutput & LCase(Mid(strInput, iPosition + 1, iSpace - iPosition))
iPosition = iSpace + 1
Loop
strOutput = strOutput & UCase(Mid(strInput, iPosition, 1))
strOutput = strOutput & LCase(Mid(strInput, iPosition + 1))
PCase = strOutput
End Function ' ---------------------------------------------------------------
Function createSQL() '--------------------------------------------------------
selectSQL = "SELECT a.file_url, a.title, a.date_start, a.date_end, a.description, a.content_id, a.file_date, a.file_size, a.content_type_int " _
& "FROM main_search a " _
& "WHERE a.status = 1 AND " _
& "(a.expire_start IS NULL OR a.expire_start < " & c_tsp & ") AND " _
& "(a.expire_end IS NULL OR a.expire_end > " & c_tsp & ")"
i = 0
temp_sql = ""
For Each id In INC_department_id
temp_sql = temp_sql & "department_id LIKE '%|" & id & "|%' OR "
i = i + 1
Next
If len(temp_sql) > 0 Then
tOffset = len(temp_sql) - 4
selectSQL = selectSQL & " AND (" & Mid(temp_sql, 1, tOffset) & ")"
End If
num_department_ids = i
i = 0
temp_sql = ""
For Each id In INC_division_id
temp_sql = temp_sql & "division_id LIKE '%|" & id & "|%' OR "
i = i + 1
Next
If len(temp_sql) > 0 Then
tOffset = len(temp_sql) - 4
selectSQL = selectSQL & " AND (" & Mid(temp_sql, 1, tOffset) & ")"
End If
num_division_ids = i
i = 0
temp_sql = ""
For Each id In INC_category_id
temp_sql = temp_sql & "category_id LIKE '%|" & id & "|%' OR "
i = i + 1
Next
If len(temp_sql) > 0 Then
tOffset = len(temp_sql) - 4
temp_sql = temp_sql & " AND (" & Mid(temp_sql, 1, tOffset) & ")"
End If
num_category_ids = i
i = 0
temp_sql = ""
For Each id In INC_subcategory_id
temp_sql = temp_sql & "subcategory_id LIKE '%|" & id & "|%' OR "
i = i + 1
Next
If len(temp_sql) > 0 Then
tOffset = len(temp_sql) - 4
selectSQL = selectSQL & " AND (" & Mid(temp_sql, 1, tOffset) & ")"
End If
num_subcategory_ids = i
i = 0
temp_sql = ""
For Each id In INC_content_type
temp_sql = temp_sql & "content_type = " & id & " OR "
i = i + 1
Next
If len(temp_sql) > 0 Then
tOffset = len(temp_sql) - 4
selectSQL = selectSQL & " AND (" & Mid(temp_sql, 1, tOffset) & ")"
End If
num_content_types = i
i = 0
temp_sql = ""
For Each id In INC_content_type_int
temp_sql = temp_sql & "content_type_int LIKE '%|" & id & "|%' OR "
i = i + 1
Next
If len(temp_sql) > 0 Then
tOffset = len(temp_sql) - 4
selectSQL = selectSQL & " AND (" & Mid(temp_sql, 1, tOffset) & ")"
End If
num_content_type_ints = i
If INC_featured = 1 Then
selectSQL = selectSQL & " AND a.flag_featured = 1"
End If
selectSQL = selectSQL & " AND (a.date_end > " & c_tsp & " OR a.date_end IS NULL)"
If Not INC_orderBy = "" Then
selectSQL = selectSQL &" ORDER BY " & INC_orderBy & ""
End If
createSQL = selectSQL
End Function '----------------------------------------------------------------
Function getFDD() '-----------------------------------------------------------
If num_department_ids = 1 Then
tStr = INC_department_id(0)
If num_division_ids = 1 Then
tStr = tStr & "-" & INC_division_id(0)
Else
tStr = tStr & "-0"
End If
Else
tStr = ""
End If
getFDD = tStr
End Function '----------------------------------------------------------------
Function getFCS() '-----------------------------------------------------------
If num_category_ids = 1 Then
tStr = INC_category_id(0)
If num_subcategory_ids = 1 Then
tStr = tStr & "-" & INC_subcategory_id(0)
Else
tStr = tStr & "-0"
End If
Else
tStr = ""
End If
getFCS = tStr
End Function '----------------------------------------------------------------
%>
|
 |
 |
 |
|
|
Every day thousands of children wake up and are afraid to go to school. Not because they haven’t completed their homework, nor are they nervous to take a test, but because they are fearful of bullying. Bullying is rapidly becoming one of the leading concerns within schools and for law enforcement agencies. Bullying can lead to poor grades, school violence and teen suicide. The Novi Police Department, in partnership with all area schools, is dedicated to providing a safe, vibrant and enjoyable learning environment for all students.
Cyber bullying can be defined as the use of technology to degrade, harass or humiliate another person or group of people. Cyber bullying can be done through the internet, text messaging, chat rooms and personal web sites via My Space, Facebook and similar online message boards. It is important for parents and guardians to be aware of what their children are doing on the computer and to know who their children are communicating with and what they are saying. Parental awareness is the first step in preventing Cyber bullying. Bullying can range from hitting, shoving, name-calling, and threats to mocking others. It also can involve extorting money and prized possessions. Some kids bully by shunning others and spreading rumors about them. Bullies choose their victims for two main reasons – appearance and social status. Bullies pick on the people they think don't fit in, maybe because of how they look, how they act, their race or religion, their size, or their sexual orientation. Kids bully for a variety of reasons. Sometimes they pick on kids because they need a victim — someone who seems emotionally or physically weaker, or just acts or appears different in some way — to feel more important, popular, or in control. Although some bullies are bigger or stronger than their victims, this is not always the case. Sometimes kids torment others because that's the way they have been treated. They may think their behavior is normal because they come from backgrounds where everyone regularly gets angry, shouts, or calls names. Some popular TV shows even seem to promote meanness — people are "voted off," shunned, or ridiculed for their appearance or lack of talent. A bully likes attention and appears confident with high self esteem, when actually they are most likely extremely insecure. They may be physically aggressive, pro-violence, easily angered and impulsive. A bully likes to dominate and have power over people. Bullies are more likely to dislike others, perform poorly academically, instigate fights, and are more prone to be problematic in school. A recent study showed that boys who are school bullies in grades six through nine had at least one criminal conviction by age 24. Anyone can be a victim of bullying. As a parent or educator, there are warning signs to look for: If you suspect a child is a victim of bullying, it’s important to maintain open lines of communication and contact school officials. It may be tempting to tell the child to fight back; however, it's important to advise children not to respond to bullying by fighting or bullying back. This improper form of retaliation can quickly escalate into violence, trouble, and someone getting hurt. Instead, it's best to walk away from the situation, hang out with others, and tell an adult. Encourage children to: As responsible parents or guardians, you can lessen the impact of bullying. Encourage children to get together with friends who build their confidence. Help him/her meet playmates by joining clubs or sports programs and find activities which help a child feel confident and strong. Perhaps it's a self-defense class like martial arts, a sports program such as soccer, or an arts activity like dance. Prevention through education is one of the best ways to deter bullying before it begins. The Novi Police Department has taken a pro active approach to preventing bullying. Our Police Detectives and School Resource Officer have attended anti-bullying training and partnered with area schools to educate students about bullying and how to deal with it as a victim. Strong partnerships between schools, law enforcement agencies and parents are the key to stopping bullying. Together we must stop the silence and raise awareness for this rapidly growing concern in our society. For more information or to share a concern on bullying, please contact the Novi Police Department at 248-348-7100.
|
|
|
||||||||||||||||||||||||||||||
|
|
Copyright 2008, City of Novi, Michigan
|
