Welcome to the Local Business in () Township

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% Dim RStownship__MMColParam RStownship__MMColParam = "1" If (Request.QueryString("Go") <> "") Then RStownship__MMColParam = Request.QueryString("Go") End If %> <% Dim RStownship Dim RStownship_numRows Set RStownship = Server.CreateObject("ADODB.Recordset") RStownship.ActiveConnection = MM_township_STRING RStownship.Source = "SELECT * FROM Township WHERE Township_Name = '" + Replace(RStownship__MMColParam, "'", "''") + "'" RStownship.CursorType = 0 RStownship.CursorLocation = 2 RStownship.LockType = 1 RStownship.Open() RStownship_numRows = 0 %> <% Dim RScemetery__MMColParam RScemetery__MMColParam = "1" If (Request.QueryString("Go") <> "") Then RScemetery__MMColParam = Request.QueryString("Go") End If %> <% Dim RScemetery Dim RScemetery_numRows Set RScemetery = Server.CreateObject("ADODB.Recordset") RScemetery.ActiveConnection = MM_township_STRING RScemetery.Source = "SELECT Cemetery_Township, Cemetery_Name FROM Cemetery WHERE Cemetery_Township = '" + Replace(RScemetery__MMColParam, "'", "''") + "' Union SELECT Cemetery_Township, Cemetery_Name FROM Cemetery WHERE Cemetery_Township = '" + Replace(RScemetery__MMColParam, "'", "''") + "'" RScemetery.CursorType = 0 RScemetery.CursorLocation = 2 RScemetery.LockType = 1 RScemetery.Open() RScemetery_numRows = 0 %> <% Dim RScategory__MMColParam RScategory__MMColParam = "1" If (Request.QueryString("Go") <> "") Then RScategory__MMColParam = Request.QueryString("Go") End If %> <% Dim RScategory Dim RScategory_numRows Set RScategory = Server.CreateObject("ADODB.Recordset") RScategory.ActiveConnection = MM_township_STRING RScategory.Source = "SELECT * FROM Category WHERE Category_Township = '" + Replace(RScategory__MMColParam, "'", "''") + "' ORDER BY Category_Category ASC" RScategory.CursorType = 0 RScategory.CursorLocation = 2 RScategory.LockType = 1 RScategory.Open() RScategory_numRows = 0 %> <% Dim RShall__MMColParam RShall__MMColParam = "1" If (Request.QueryString("Go") <> "") Then RShall__MMColParam = Request.QueryString("Go") End If %> <% Dim RShall Dim RShall_numRows Set RShall = Server.CreateObject("ADODB.Recordset") RShall.ActiveConnection = MM_township_STRING RShall.Source = "SELECT * FROM Hall WHERE Hall_Township = '" + Replace(RShall__MMColParam, "'", "''") + "'" RShall.CursorType = 0 RShall.CursorLocation = 2 RShall.LockType = 1 RShall.Open() RShall_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = -1 Repeat1__index = 0 RScategory_numRows = RScategory_numRows + Repeat1__numRows %> Welcome to the Local Business in () Township

<%=(RStownship.Fields.Item("Township_Name").Value)%>
Township

Welcome to <%=(RStownship.Fields.Item("Township_County").Value)%> County in Michigan's Upper Peninsula

<%=(RStownship.Fields.Item("Township_Name").Value)%> Township Established <%=(RStownship.Fields.Item("Township_Established").Value)%>

')" onmouseover="cursor='hand'; this.style.background='#D8E4F8'" onMouseOut="this.style.background='#f5f5f5'"> " target="_self" >> First Page

')" onmouseover="cursor='hand'; this.style.background='#4d7d5b'" onMouseOut="this.style.background='#f5f5f5'"> " target="_self" >> Local Business

> Real Estate

')" onmouseover="cursor='hand'; this.style.background='#D8E4F8'" onMouseOut="this.style.background='#f5f5f5'"> " target="_self" >> Elected Officials

')" onmouseover="cursor='hand'; this.style.background='#D8E4F8'" onMouseOut="this.style.background='#f5f5f5'"> " target="_self" >> Township Employees

')" onmouseover="cursor='hand'; this.style.background='#D8E4F8'" onMouseOut="this.style.background='#f5f5f5'"> " target="_self" >> Fire Department

')" onmouseover="cursor='hand'; this.style.background='#D8E4F8'" onMouseOut="this.style.background='#f5f5f5'"> " target="_self" >> Election Information

')" onmouseover="cursor='hand'; this.style.background='#D8E4F8'" onMouseOut="this.style.background='#f5f5f5'"> " target="_self" >> Meeting Minutes

')" onmouseover="cursor='hand'; this.style.background='#D8E4F8'" onMouseOut="this.style.background='#f5f5f5'"> " target="_self" >> Township Hall

')" onmouseover="cursor='hand'; this.style.background='#D8E4F8'" onMouseOut="this.style.background='#f5f5f5'"> " target="_self" >> Township Events

')" onmouseover="cursor='hand'; this.style.background='#D8E4F8'" onMouseOut="this.style.background='#f5f5f5'"> " target="_self" >> Township Newsletter

')" onmouseover="cursor='hand'; this.style.background='#D8E4F8'" onMouseOut="this.style.background='#f5f5f5'"> " target="_self" >> Township History

')" onmouseover="cursor='hand'; this.style.background='#D8E4F8'" onMouseOut="this.style.background='#f5f5f5'"> " target="_self" >> <%=(RScemetery.Fields.Item("Cemetery_Name").Value)%> Cemetery

')" onmouseover="cursor='hand'; this.style.background='#D8E4F8'" onMouseOut="this.style.background='#f5f5f5'"> " target="_self" >> Local Attractions

')" onmouseover="cursor='hand'; this.style.background='#D8E4F8'" onMouseOut="this.style.background='#f5f5f5'"> " target="_self" >> Fish Report

')" onmouseover="cursor='hand'; this.style.background='#D8E4F8'" onMouseOut="this.style.background='#f5f5f5'"> " target="_self" >> Trail Report

')" onmouseover="cursor='hand'; this.style.background='#D8E4F8'" onMouseOut="this.style.background='#f5f5f5'"> " target="_self" >> Circle Tour

<% If Not RScategory.EOF Or Not RScategory.BOF Then %> <% While ((Repeat1__numRows <> 0) AND (NOT RScategory.EOF)) %>

&Category=<%=(RScategory.Fields.Item("Category_Category").Value)%>')" onmouseover="cursor='hand'; this.style.background='#D8E4F8'" onMouseOut="this.style.background='#f5f5f5'"> &Category=<%=(RScategory.Fields.Item("Category_Category").Value)%>" target="_self" >> <%=(RScategory.Fields.Item("Category_Category").Value)%>

<% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 RScategory.MoveNext() Wend %> <% End If ' end Not RScategory.EOF Or NOT RScategory.BOF %>

')" onmouseover="cursor='hand'; this.style.background='#D8E4F8'" onMouseOut="this.style.background='#f5f5f5'"> " target="_self" >> Download Forms & Documents

')" onmouseover="cursor='hand'; this.style.background='#D8E4F8'" onMouseOut="this.style.background='#f5f5f5'"> " target="_self" >> Contact Information

Welcome to <%=(RStownship.Fields.Item("Township_Name").Value)%> Township's Hall !

" width="450">

Plans for new Hall addition

<%=(RShall.Fields.Item("Hall_Info").Value)%>

<% RStownship.Close() Set RStownship = Nothing %> <% RScemetery.Close() Set RScemetery = Nothing %> <% RScategory.Close() Set RScategory = Nothing %> <% RShall.Close() Set RShall = Nothing %>