|
<%
' 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 '----------------------------------------------------------------
%>
|
 |
 |
 |
|
|
On October 31, thousands of costumed children will take to Novi streets looking for treats. The recommended trick or treat hours in Novi are between 6:00pm and 8:00pm. With all the excitement of Halloween, Police Chief David Molloy reminds residents that the major dangers of the evening come from falls and pedestrian/car accidents and it is extremely important to follow safety rules. "The men and women of the Novi Police Department always strive to partner with our residents to provide the children of Novi with the safest possible environment to celebrate the time honored tradition of trick-or-treating" said Chief Molloy. "If the following safety rules are adhered to, it will allow officers patrolling our neighborhoods to resolve problems before they arise."
Halloween Trick-or-Treating Safety Tips Children should: When walking in neighborhoods Children should:
Parents and adults should: Parents and adults should ensure the safety of pedestrian trick-or-treaters: And a few tips about pumpkins: Parents are encouraged to share these tips with their children to ensure a safe and enjoyable evening for the entire family.
|
|
|
||||||||||||||||||||||||||||||
Chief Molloy points out that Halloween poses special
risks to young pedestrians. Children engaged in "trick or treat"
activities frequently cross streets at mid-block rather than at
corners or crosswalks, putting them at risk for pedestrian injury.
Also, many parents overestimate children's street-crossing skills.
Children are likely to choose the shortest rather than the safest
route across streets, often darting out between parked cars. In
addition, young children do not evaluate potential traffic threats
effectively, cannot anticipate driver behavior, and process sensory
information more slowly than adults. 
|
|
Copyright 2008, City of Novi, Michigan
|
