<% ' 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 '---------------------------------------------------------------- %>

Skip to ContentGo to Site Map

Services Banner
 

cityofnovi.org
Search
              Advanced Search...
HomeSite MapHelpRSS Feeds
At the Council
View Current City Council Meeting Agenda
Live Meeting Videos
View City Council Meeting Videos
Viewing Pleasure
View Channel 13 Program Video Archives
View City Snapshot Event Image Slideshows
Recreation
Engage! City Recreation Guide
Parks and Recreation Online Registration
Buy Theatre Tickets Online
Novi Parks Foundation
Research / Lookup
Community Maps
Employment Opportunities
Code of Ordinances
Forms and Permits
Tax and Assessing Lookup
Water & Sewer Billing Lookup
Road Construction Updates
Join our Mailing Lists
Employees only
eWeb

Monthly image of activity in Novi.  Click here to go to the calendar page.

 

   Assessing Business & Neighborhood Relations Cable TV City Clerk City Manager Community Development
Emergency Preparedness Engineering Finance Fire Human Resources Library Maps Parks, Recreation & Forestry
Police Public Works Purchasing Senior Center/Services Treasurer Utilities (Water & Sewer) Youth Services

 

Click here to learn more about the Homeland Security System
Be A Prepared Citizen!  Click here for more information.
Emergency Preparedness/CERT
  Siren Test Calendar and Map
 Police Send feeback on the Police website here.
Residential/Commercial Security Survey
Home Watch Program
Citizens Police Academy Application
Bullet Point Overview   Bullet Point 52nd District Court - 1st Division   Bullet Point Administration Clicking on the link to the left with bring up more related pages.
Bullet Point Ask the Sergeant   Bullet Point Community Programs Clicking on the link to the left with bring up more related pages.   Bullet Point Emergency Preparedness
Bullet Point File / Obtain a Police Report   Bullet Point General Services Division Clicking on the link to the left with bring up more related pages.
Bullet Point Indoor Gun Range & Training Facility   Bullet Point Uniform Division Clicking on the link to the left with bring up more related pages.
Contact the Police Department

 

Cyber safety for Kids Online: A Parent's Guide
March 2006

 Printer Friendly
 Back to Messages from the Chief

(The information below is provided by the National Crime Prevention Council)

Getting Started

  • Explain that although a person may be alone in a room using the computer, once logged on to the Internet, he or she is no longer alone. People skilled in using the Internet can find out who you are and where you are. They can even tap into information in your computer.
     
  • Set aside time to explore the Internet together. If your child has some computer experience, let him or her take the lead. Visit areas of the World Wide Web that have special sites for children.
     
  • Young boy using laptop computerControlling access

    The best tool a child has for screening material found on the Internet is his or her brain. Teach children about exploitation, pornography, hate literature, excessive violence, and other issues that concern you, so they know how to respond when they see this material.

    Chose a commercial online service that offers parental control features. These features can block contact that is not clearly marked as appropriate for children; chat rooms, bulletin boards, news groups, and discussion groups; or access to the Internet entirely.

    Purchase blocking software and design your own safety system. Different packages can block sites by name, search for unacceptable words and block access to sites containing those words, block entire categories of material, and prevent children from giving out personal information.

    Monitor your children when they're online and monitor the time they spend on line. If a child becomes uneasy or defensive when you walk into the room or when you linger, this could be a sign that he or she is up to something unusual or even forbidden.

Tell Your Children...

  • To always let you know immediately if they find something scary or threatening on the Internet.
  • Never to give out their name, address, telephone number, password, school name, parent's name, or any other personal information.
  • Never to agree to meet face to face with someone they've met online.
  • Never to respond to messages that have bad words or seem scary or just weird.
  • Never to enter an area that charges for services without asking you first.
  • Never send a picture of themselves to anyone without your permission.

What You Can Do in the Community

  • Make sure that access to the Internet at your children's school is monitored by adults.
  • Know you children's friends and their parents. If your child's friend has Internet access at home, talk to the parents about the rules they have established. Find out if the children are monitored while they are online.
  • Make sure your child's school has an Acceptable Use Policy (AUP). This policy should include a list of acceptable and unacceptable activities or resources, information on "netiquette" (etiquette on the Internet), consequences for violations, and a place for you and your child to sign. Your family can design its own AUP for the home computer.
  • If your child receives threatening email or pornographic material, save the offensive material and contact the user's Internet service provider and your local law enforcement agency.
  • If you come across sites that are inappropriate for children when you are surfing the Net, send the addresses to online services that offer parental control features or to sites advertising protection software to add to their list to be reviewed for inclusion or exclusion. Even if you don't subscribe to the service or own the protection software, you can help protect children.

 

 

 

 

 

Click here to read a message from the Police Chief
Click here for Police Press Releases

Police Districts Map

Click here to File / Obtain Police Reports

Commend a Police Department Employee

The Briefing Room Cable Program

Community Emergency Response Team

 

 

  Copyright 2008, City of Novi, Michigan
The City of Novi, Michigan, 45175 West 10 Mile Road, Novi, Michigan  48375, 248-347-0456
Hours of Operation: Monday - Friday, 8:00am - 5:00pm
Government  |  City Services  |  Community  |  Doing Business  |  Reference  |  City Directory  |  Agendas/Minutes  |  Event Calendar
Home  |  Site Map  |  Help  |  Search
Contact the City of Novi webmaster by clicking here.
If you are experiencing technical problems with our website, please report them here.
Site Use Policy
Site Design, Development and
Maintenance by
Municipal Web Services...Bringing the World to Your Corner of the World.  Click here to go to the Municipal Web Services website.

This website contains links to Adobe Acrobat PDF documents.  If you have trouble viewing these documents, click here to download the free Adobe Reader.
Adobe Reader icon.  Click here to download the Adobe Reader.

Our website is Section 508 compliant.
Accessible Logo

<% objConn1.Close Set objConn1 = nothing %>