<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!--#include virtual="/Connections/ConnStMary.asp" -->
<%
Dim Recordset1__MMColParam
Recordset1__MMColParam = "6"
If (Request("MM_EmptyValue") <> "") Then 
  Recordset1__MMColParam = Request("MM_EmptyValue")
End If
%>
<!--#include virtual="/Connections/ConnectionStMarys.asp" -->
<%
Dim Recordset1
Dim Recordset1_cmd
Dim Recordset1_numRows

Set Recordset1_cmd = Server.CreateObject ("ADODB.Command")
Recordset1_cmd.ActiveConnection = MM_ConnStMary_STRING
Recordset1_cmd.CommandText = "SELECT * FROM MinistriesandActivities WHERE xID = ?" 
Recordset1_cmd.Prepared = true
Recordset1_cmd.Parameters.Append Recordset1_cmd.CreateParameter("param1", 5, 1, -1, Recordset1__MMColParam) ' adDouble

Set Recordset1 = Recordset1_cmd.Execute
Recordset1_numRows = 0
%>
<%
Dim Recordset2
Dim Recordset2_cmd
Dim Recordset2_numRows

Set Recordset2_cmd = Server.CreateObject ("ADODB.Command")
Recordset2_cmd.ActiveConnection = MM_ConnStMary_STRING
Recordset2_cmd.CommandText = "SELECT * FROM [1SubLink]" 
Recordset2_cmd.Prepared = true

Set Recordset2 = Recordset2_cmd.Execute
Recordset2_numRows = 0
%>
<%
Dim Recordset3
Dim Recordset3_cmd
Dim Recordset3_numRows

Set Recordset3_cmd = Server.CreateObject ("ADODB.Command")
Recordset3_cmd.ActiveConnection = MM_ConnStMary_STRING
Recordset3_cmd.CommandText = "SELECT * FROM MainLinks" 
Recordset3_cmd.Prepared = true

Set Recordset3 = Recordset3_cmd.Execute
Recordset3_numRows = 0
%>
<%
Dim Recordset4__MMColParam
Recordset4__MMColParam = "2"
If (Request("MM_EmptyValue") <> "") Then 
  Recordset4__MMColParam = Request("MM_EmptyValue")
End If
%>
<%
Dim Recordset4
Dim Recordset4_cmd
Dim Recordset4_numRows

Set Recordset4_cmd = Server.CreateObject ("ADODB.Command")
Recordset4_cmd.ActiveConnection = MM_ConnStMary_STRING
Recordset4_cmd.CommandText = "SELECT * FROM MainLinks WHERE xID = ?" 
Recordset4_cmd.Prepared = true
Recordset4_cmd.Parameters.Append Recordset4_cmd.CreateParameter("param1", 5, 1, -1, Recordset4__MMColParam) ' adDouble

Set Recordset4 = Recordset4_cmd.Execute
Recordset4_numRows = 0
%>
<%
Dim Recordset5__MMColParam
Recordset5__MMColParam = "3"
If (Request("MM_EmptyValue") <> "") Then 
  Recordset5__MMColParam = Request("MM_EmptyValue")
End If
%>
<%
Dim Recordset5
Dim Recordset5_cmd
Dim Recordset5_numRows

Set Recordset5_cmd = Server.CreateObject ("ADODB.Command")
Recordset5_cmd.ActiveConnection = MM_ConnStMary_STRING
Recordset5_cmd.CommandText = "SELECT * FROM MainLinks WHERE xID = ?" 
Recordset5_cmd.Prepared = true
Recordset5_cmd.Parameters.Append Recordset5_cmd.CreateParameter("param1", 5, 1, -1, Recordset5__MMColParam) ' adDouble

Set Recordset5 = Recordset5_cmd.Execute
Recordset5_numRows = 0
%>
<%
Dim Recordset6__MMColParam
Recordset6__MMColParam = "4"
If (Request("MM_EmptyValue") <> "") Then 
  Recordset6__MMColParam = Request("MM_EmptyValue")
End If
%>
<%
Dim Recordset6
Dim Recordset6_cmd
Dim Recordset6_numRows

Set Recordset6_cmd = Server.CreateObject ("ADODB.Command")
Recordset6_cmd.ActiveConnection = MM_ConnStMary_STRING
Recordset6_cmd.CommandText = "SELECT * FROM MainLinks WHERE xID = ?" 
Recordset6_cmd.Prepared = true
Recordset6_cmd.Parameters.Append Recordset6_cmd.CreateParameter("param1", 5, 1, -1, Recordset6__MMColParam) ' adDouble

Set Recordset6 = Recordset6_cmd.Execute
Recordset6_numRows = 0
%>
<%
Dim Recordset7__MMColParam
Recordset7__MMColParam = "5"
If (Request("MM_EmptyValue") <> "") Then 
  Recordset7__MMColParam = Request("MM_EmptyValue")
End If
%>
<%
Dim Recordset7
Dim Recordset7_numRows

Set Recordset7 = Server.CreateObject("ADODB.Recordset")
Recordset7.ActiveConnection = MM_ConnectionStMarys_STRING
Recordset7.Source = "SELECT * FROM MainLinks WHERE xID = " + Replace(Recordset7__MMColParam, "'", "''") + ""
Recordset7.CursorType = 0
Recordset7.CursorLocation = 2
Recordset7.LockType = 1
Recordset7.Open()

Recordset7_numRows = 0
%>
<%
Dim Recordset8__MMColParam
Recordset8__MMColParam = "6"
If (Request("MM_EmptyValue") <> "") Then 
  Recordset8__MMColParam = Request("MM_EmptyValue")
End If
%>
<%
Dim Recordset8
Dim Recordset8_numRows

Set Recordset8 = Server.CreateObject("ADODB.Recordset")
Recordset8.ActiveConnection = MM_ConnectionStMarys_STRING
Recordset8.Source = "SELECT * FROM MainLinks WHERE xID = " + Replace(Recordset8__MMColParam, "'", "''") + ""
Recordset8.CursorType = 0
Recordset8.CursorLocation = 2
Recordset8.LockType = 1
Recordset8.Open()

Recordset8_numRows = 0
%>
<%
Dim Recordset9__MMColParam
Recordset9__MMColParam = "7"
If (Request("MM_EmptyValue") <> "") Then 
  Recordset9__MMColParam = Request("MM_EmptyValue")
End If
%>
<%
Dim Recordset9
Dim Recordset9_numRows

Set Recordset9 = Server.CreateObject("ADODB.Recordset")
Recordset9.ActiveConnection = MM_ConnectionStMarys_STRING
Recordset9.Source = "SELECT * FROM MainLinks WHERE xID = " + Replace(Recordset9__MMColParam, "'", "''") + ""
Recordset9.CursorType = 0
Recordset9.CursorLocation = 2
Recordset9.LockType = 1
Recordset9.Open()

Recordset9_numRows = 0
%>
<%
Dim Recordset10__MMColParam
Recordset10__MMColParam = "8"
If (Request("MM_EmptyValue") <> "") Then 
  Recordset10__MMColParam = Request("MM_EmptyValue")
End If
%>
<%
Dim Recordset10
Dim Recordset10_numRows

Set Recordset10 = Server.CreateObject("ADODB.Recordset")
Recordset10.ActiveConnection = MM_ConnectionStMarys_STRING
Recordset10.Source = "SELECT * FROM MainLinks WHERE xID = " + Replace(Recordset10__MMColParam, "'", "''") + ""
Recordset10.CursorType = 0
Recordset10.CursorLocation = 2
Recordset10.LockType = 1
Recordset10.Open()

Recordset10_numRows = 0
%>
<%
Dim Recordset11__MMColParam
Recordset11__MMColParam = "9"
If (Request("MM_EmptyValue") <> "") Then 
  Recordset11__MMColParam = Request("MM_EmptyValue")
End If
%>
<%
Dim Recordset11
Dim Recordset11_numRows

Set Recordset11 = Server.CreateObject("ADODB.Recordset")
Recordset11.ActiveConnection = MM_ConnectionStMarys_STRING
Recordset11.Source = "SELECT * FROM MainLinks WHERE xID = " + Replace(Recordset11__MMColParam, "'", "''") + ""
Recordset11.CursorType = 0
Recordset11.CursorLocation = 2
Recordset11.LockType = 1
Recordset11.Open()

Recordset11_numRows = 0
%>
<%
Dim Recordset12__MMColParam
Recordset12__MMColParam = "10"
If (Request("MM_EmptyValue") <> "") Then 
  Recordset12__MMColParam = Request("MM_EmptyValue")
End If
%>
<%
Dim Recordset12
Dim Recordset12_numRows

Set Recordset12 = Server.CreateObject("ADODB.Recordset")
Recordset12.ActiveConnection = MM_ConnectionStMarys_STRING
Recordset12.Source = "SELECT * FROM MainLinks WHERE xID = " + Replace(Recordset12__MMColParam, "'", "''") + ""
Recordset12.CursorType = 0
Recordset12.CursorLocation = 2
Recordset12.LockType = 1
Recordset12.Open()

Recordset12_numRows = 0
%>
<%
Dim RsBulletin__MMColParam
RsBulletin__MMColParam = "11"
If (Request("MM_EmptyValue") <> "") Then 
  RsBulletin__MMColParam = Request("MM_EmptyValue")
End If
%>
<%
Dim RsBulletin
Dim RsBulletin_cmd
Dim RsBulletin_numRows

Set RsBulletin_cmd = Server.CreateObject ("ADODB.Command")
RsBulletin_cmd.ActiveConnection = MM_ConnStMary_STRING
RsBulletin_cmd.CommandText = "SELECT * FROM MainLinks WHERE xID = ?" 
RsBulletin_cmd.Prepared = true
RsBulletin_cmd.Parameters.Append RsBulletin_cmd.CreateParameter("param1", 5, 1, -1, RsBulletin__MMColParam) ' adDouble

Set RsBulletin = RsBulletin_cmd.Execute
RsBulletin_numRows = 0
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
<title>Main Page</title>



<link href="../main.css" rel="stylesheet" type="text/css" />
</head>


<script type="text/javascript" language="JavaScript">
<!---
// Use Freely as long as following disclaimer is intact ::
//---------------------------------------------------------------
// Cross Browser Multi-Orientation Menu v1.5 17th August 2004
// This script written by Rik Comery. www.ricom.co.uk
// For support, visit the "Resources" section at www.ricom.co.uk           
// All rights reserved.   
// Featured in the SimplytheBest DHTML Scripts Library at http://simplythebest.net/scripts/


//  MENU ITEMS //
// DUPLICATE THIS ENTIRE SECTION FOR MULTIPLE MENUS.  PLEASE SEE THE INSTRUCTIONS FILE FOR DETAILS ///   
var Menu1 = new Array ()
var subMenu1 = new Array ()

   Menu1[0] = new Array("<%=(RsBulletin.Fields.Item("MainLink").Value)%>", "<%=(RsBulletin.Fields.Item("MainLinkURL").Value)%>","_top", "left")
     subMenu1[0] = new Array()
     subMenu1[0][0] = new Array ("<%=(RsBulletin.Fields.Item("Sublink1").Value)%>", "<%=(RsBulletin.Fields.Item("Sublink1URL").Value)%>","_top")

   Menu1[1] = new Array("<%=(Recordset3.Fields.Item("MainLink").Value)%>", "<%=(Recordset3.Fields.Item("MainLinkURL").Value)%>","_top", "left")
   
     subMenu1[1] = new Array()
     subMenu1[1][0] = new Array ("<%=(Recordset3.Fields.Item("SubLink1").Value)%>", "<%=(Recordset3.Fields.Item("SubLink1URL").Value)%>","_top")
	 
     subMenu1[1][1] = new Array ("<%=(Recordset3.Fields.Item("SubLink2").Value)%>", "<%=(Recordset3.Fields.Item("SubLink2URL").Value)%>","_top")
	 
     subMenu1[1][2] = new Array ("<%=(Recordset3.Fields.Item("SubLink3").Value)%>", "<%=(Recordset3.Fields.Item("SubLink3URL").Value)%>","_top")
	 
	 subMenu1[1][3] = new Array ("<%=(Recordset3.Fields.Item("SubLink4").Value)%>", "<%=(Recordset3.Fields.Item("SubLink4URL").Value)%>","_top")
		 
     subMenu1[1][4] = new Array ("<%=(Recordset3.Fields.Item("SubLink5").Value)%>", "<%=(Recordset3.Fields.Item("SubLink5URL").Value)%>","_top")
	 subMenu1[1][5] = new Array ("<%=(Recordset3.Fields.Item("SubLink6").Value)%>", "<%=(Recordset3.Fields.Item("SubLink6URL").Value)%>","_top")
	 subMenu1[1][6] = new Array ("<%=(Recordset3.Fields.Item("SubLink7").Value)%>", "<%=(Recordset3.Fields.Item("SubLink7URL").Value)%>","_top")


   Menu1[2] = new Array("<%=(Recordset4.Fields.Item("MainLink").Value)%>", "<%=(Recordset4.Fields.Item("MainLinkURL").Value)%>","_top", "left")
     subMenu1[2] = new Array()
     subMenu1[2][0] = new Array ("<%=(Recordset4.Fields.Item("SubLink1").Value)%>", "<%=(Recordset4.Fields.Item("SubLink1URL").Value)%>","_top")	 
     subMenu1[2][1] = new Array ("<%=(Recordset4.Fields.Item("SubLink2").Value)%>", "<%=(Recordset4.Fields.Item("SubLink2URL").Value)%>","_top")	 	
     subMenu1[2][2] = new Array ("<%=(Recordset4.Fields.Item("SubLink3").Value)%>", "<%=(Recordset4.Fields.Item("SubLink3URL").Value)%>","_top")	 
     subMenu1[2][3] = new Array ("<%=(Recordset4.Fields.Item("SubLink4").Value)%>", "<%=(Recordset4.Fields.Item("SubLink4URL").Value)%>","_top")	 
     subMenu1[2][4] = new Array ("<%=(Recordset4.Fields.Item("SubLink5").Value)%>", "<%=(Recordset4.Fields.Item("SubLink5URL").Value)%>","_top")	 
     subMenu1[2][5] = new Array ("<%=(Recordset4.Fields.Item("SubLink6").Value)%>", "<%=(Recordset4.Fields.Item("SubLink6URL").Value)%>","_top")	 
     subMenu1[2][6] = new Array ("<%=(Recordset4.Fields.Item("SubLink7").Value)%>", "<%=(Recordset4.Fields.Item("SubLink7URL").Value)%>","_top")	 
     subMenu1[2][7] = new Array ("<%=(Recordset4.Fields.Item("SubLink8").Value)%>", "<%=(Recordset4.Fields.Item("SubLink8URL").Value)%>","_top")	 
     subMenu1[2][8] = new Array ("<%=(Recordset4.Fields.Item("SubLink9").Value)%>", "<%=(Recordset4.Fields.Item("SubLink9URL").Value)%>","_top")	 
     subMenu1[2][9] = new Array ("<%=(Recordset4.Fields.Item("SubLink10").Value)%>", "<%=(Recordset4.Fields.Item("SubLink10URL").Value)%>","_top")	 
     subMenu1[2][10] = new Array ("<%=(Recordset4.Fields.Item("SubLink11").Value)%>", "<%=(Recordset4.Fields.Item("SubLink11URL").Value)%>","_top")
     subMenu1[2][11] = new Array ("<%=(Recordset4.Fields.Item("SubLink12").Value)%>", "<%=(Recordset4.Fields.Item("SubLink12URL").Value)%>","_top")	 
	 	 	  	 	 	 	 	 	 	 	 	  

   Menu1[3] = new Array("<%=(Recordset5.Fields.Item("MainLink").Value)%>", "<%=(Recordset5.Fields.Item("MainLinkURL").Value)%>", "left")
     subMenu1[3] = new Array()
     subMenu1[3][0] = new Array ("<%=(Recordset5.Fields.Item("SubLink1").Value)%>", "<%=(Recordset5.Fields.Item("SubLink1URL").Value)%>","_top")	
     subMenu1[3][1] = new Array ("<%=(Recordset5.Fields.Item("SubLink2").Value)%>", "<%=(Recordset5.Fields.Item("SubLink2URL").Value)%>","_top")	
     subMenu1[3][2] = new Array ("<%=(Recordset5.Fields.Item("SubLink3").Value)%>", "<%=(Recordset5.Fields.Item("SubLink3URL").Value)%>","_top")	
     subMenu1[3][3] = new Array ("<%=(Recordset5.Fields.Item("SubLink4").Value)%>", "<%=(Recordset5.Fields.Item("SubLink4URL").Value)%>","_top")	 
     subMenu1[3][4] = new Array ("<%=(Recordset5.Fields.Item("SubLink5").Value)%>", "<%=(Recordset5.Fields.Item("SubLink5URL").Value)%>","_top")
     subMenu1[3][5] = new Array ("<%=(Recordset5.Fields.Item("SubLink6").Value)%>", "<%=(Recordset5.Fields.Item("SubLink6URL").Value)%>","_top")
     subMenu1[3][6] = new Array ("<%=(Recordset5.Fields.Item("SubLink7").Value)%>", "<%=(Recordset5.Fields.Item("SubLink7URL").Value)%>","_top")	
     subMenu1[3][7] = new Array ("<%=(Recordset5.Fields.Item("SubLink8").Value)%>", "<%=(Recordset5.Fields.Item("SubLink8URL").Value)%>","_top")	
     subMenu1[3][8] = new Array ("<%=(Recordset5.Fields.Item("SubLink9").Value)%>", "<%=(Recordset5.Fields.Item("SubLink9URL").Value)%>","_top")	
     subMenu1[3][9] = new Array ("<%=(Recordset5.Fields.Item("SubLink10").Value)%>", "<%=(Recordset5.Fields.Item("SubLink10URL").Value)%>","_top")		    	 	 
		 	 	 	 	 	 	 	 	 	 	 	 

   Menu1[4] = new Array("<%=(Recordset6.Fields.Item("MainLink").Value)%>", "<%=(Recordset6.Fields.Item("MainLinkURL").Value)%>","_top", "right")
     subMenu1[4] = new Array()
     subMenu1[4][0] = new Array ("<%=(Recordset6.Fields.Item("SubLink1").Value)%>", "<%=(Recordset6.Fields.Item("SubLink1URL").Value)%>","_top")
     subMenu1[4][1] = new Array ("<%=(Recordset6.Fields.Item("SubLink2").Value)%>", "<%=(Recordset6.Fields.Item("SubLink2URL").Value)%>","_top")
     subMenu1[4][2] = new Array ("<%=(Recordset6.Fields.Item("SubLink3").Value)%>", "<%=(Recordset6.Fields.Item("SubLink3URL").Value)%>","_top")
     subMenu1[4][3] = new Array ("<%=(Recordset6.Fields.Item("SubLink4").Value)%>", "<%=(Recordset6.Fields.Item("SubLink4URL").Value)%>","_top")
     subMenu1[4][4] = new Array ("<%=(Recordset6.Fields.Item("SubLink5").Value)%>", "<%=(Recordset6.Fields.Item("SubLink5URL").Value)%>","_top")	 	
     subMenu1[4][5] = new Array ("<%=(Recordset6.Fields.Item("SubLink6").Value)%>", "<%=(Recordset6.Fields.Item("SubLink6URL").Value)%>","_top")	 	  

   Menu1[5] = new Array("<%=(Recordset7.Fields.Item("MainLink").Value)%>", "<%=(Recordset7.Fields.Item("SubLink1URL").Value)%>","_top", "left")
     subMenu1[5] = new Array()
     subMenu1[5][0] = new Array ("<%=(Recordset7.Fields.Item("SubLink1").Value)%>", "<%=(Recordset7.Fields.Item("SubLink1URL").Value)%>","_top")	 	
     subMenu1[5][1] = new Array ("<%=(Recordset7.Fields.Item("SubLink2").Value)%>", "<%=(Recordset7.Fields.Item("SubLink2URL").Value)%>","_top")	
     subMenu1[5][2] = new Array ("<%=(Recordset7.Fields.Item("SubLink3").Value)%>", "<%=(Recordset7.Fields.Item("SubLink3URL").Value)%>","_top")	
     subMenu1[5][3] = new Array ("<%=(Recordset7.Fields.Item("SubLink4").Value)%>", "<%=(Recordset7.Fields.Item("SubLink4URL").Value)%>","_top")	


   Menu1[6] = new Array("<%=(Recordset8.Fields.Item("MainLink").Value)%>", "<%=(Recordset8.Fields.Item("MainLinkURL").Value)%>","_top", "right")
     subMenu1[6] = new Array()
     subMenu1[6][0] = new Array ("<%=(Recordset8.Fields.Item("SubLink1").Value)%>", "<%=(Recordset8.Fields.Item("SubLink1URL").Value)%>","_top")
     subMenu1[6][1] = new Array ("<%=(Recordset8.Fields.Item("SubLink2").Value)%>", "<%=(Recordset8.Fields.Item("SubLink2URL").Value)%>","_top")
     subMenu1[6][2] = new Array ("<%=(Recordset8.Fields.Item("SubLink3").Value)%>", "<%=(Recordset8.Fields.Item("SubLink3URL").Value)%>","_top")
     subMenu1[6][3] = new Array ("<%=(Recordset8.Fields.Item("SubLink4").Value)%>", "<%=(Recordset8.Fields.Item("SubLink4URL").Value)%>","_top")
     subMenu1[6][4] = new Array ("<%=(Recordset8.Fields.Item("SubLink5").Value)%>", "<%=(Recordset8.Fields.Item("SubLink5URL").Value)%>","_top")	


   Menu1[7] = new Array("<%=(Recordset9.Fields.Item("MainLink").Value)%>", "<%=(Recordset9.Fields.Item("MainLinkURL").Value)%>","_top", "right")
     subMenu1[7] = new Array()
     subMenu1[7][0] = new Array ("<%=(Recordset9.Fields.Item("SubLink1").Value)%>", "<%=(Recordset9.Fields.Item("SubLink1URL").Value)%>","_top")
     subMenu1[7][1] = new Array ("<%=(Recordset9.Fields.Item("SubLink2").Value)%>", "<%=(Recordset9.Fields.Item("SubLink2URL").Value)%>","_top")
     subMenu1[7][2] = new Array ("<%=(Recordset9.Fields.Item("SubLink3").Value)%>", "<%=(Recordset9.Fields.Item("SubLink3URL").Value)%>","_top")

   Menu1[8] = new Array("<%=(Recordset10.Fields.Item("MainLink").Value)%>", "<%=(Recordset10.Fields.Item("MainLinkURL").Value)%>","_top", "right")
     subMenu1[8] = new Array()
     subMenu1[8][0] = new Array ("<%=(Recordset10.Fields.Item("SubLink1").Value)%>", "<%=(Recordset10.Fields.Item("SubLink1URL").Value)%>","_top")
     subMenu1[8][1] = new Array ("<%=(Recordset10.Fields.Item("SubLink2").Value)%>", "<%=(Recordset10.Fields.Item("SubLink2URL").Value)%>","_top")
     subMenu1[8][2] = new Array ("<%=(Recordset10.Fields.Item("SubLink3").Value)%>", "<%=(Recordset10.Fields.Item("SubLink3URL").Value)%>","_top")
	 
   Menu1[9] = new Array("<%=(Recordset11.Fields.Item("MainLink").Value)%>", "<%=(Recordset11.Fields.Item("MainLinkURL").Value)%>","_top", "right")
     subMenu1[9] = new Array()
     subMenu1[9][0] = new Array ("<%=(Recordset11.Fields.Item("SubLink1").Value)%>", "<%=(Recordset11.Fields.Item("SubLink1URL").Value)%>","_top")
     subMenu1[9][1] = new Array ("<%=(Recordset11.Fields.Item("SubLink2").Value)%>", "<%=(Recordset11.Fields.Item("SubLink2URL").Value)%>","_top")
     subMenu1[9][2] = new Array ("<%=(Recordset11.Fields.Item("SubLink3").Value)%>", "<%=(Recordset11.Fields.Item("SubLink3URL").Value)%>","_top")		 
     subMenu1[9][3] = new Array ("<%=(Recordset11.Fields.Item("SubLink4").Value)%>", "<%=(Recordset11.Fields.Item("SubLink4URL").Value)%>","_top")	
     subMenu1[9][4] = new Array ("<%=(Recordset11.Fields.Item("SubLink5").Value)%>", "<%=(Recordset11.Fields.Item("SubLink5URL").Value)%>","_top")
     subMenu1[9][5] = new Array ("<%=(Recordset11.Fields.Item("SubLink6").Value)%>", "<%=(Recordset11.Fields.Item("SubLink6URL").Value)%>","_top")	 	 


   Menu1[10] = new Array("<%=(Recordset12.Fields.Item("MainLink").Value)%>", "<%=(Recordset12.Fields.Item("MainLinkURL").Value)%>","_top", "right")
     subMenu1[10] = new Array()
     subMenu1[10][0] = new Array ("<%=(Recordset12.Fields.Item("SubLink1").Value)%>", "<%=(Recordset12.Fields.Item("SubLink1URL").Value)%>","_top")
     subMenu1[10][1] = new Array ("<%=(Recordset12.Fields.Item("SubLink2").Value)%>", "<%=(Recordset12.Fields.Item("SubLink2URL").Value)%>","_top")	 	
     subMenu1[10][2] = new Array ("<%=(Recordset12.Fields.Item("SubLink3").Value)%>", "<%=(Recordset12.Fields.Item("SubLink3URL").Value)%>","_top")	 
     subMenu1[10][3] = new Array ("<%=(Recordset12.Fields.Item("SubLink4").Value)%>", "<%=(Recordset12.Fields.Item("SubLink4URL").Value)%>","_top")	 
     subMenu1[10][4] = new Array ("<%=(Recordset12.Fields.Item("SubLink5").Value)%>", "<%=(Recordset12.Fields.Item("SubLink5URL").Value)%>","_top")	 
     subMenu1[10][5] = new Array ("<%=(Recordset12.Fields.Item("SubLink6").Value)%>", "<%=(Recordset12.Fields.Item("SubLink6URL").Value)%>","_top")	 
     subMenu1[10][6] = new Array ("<%=(Recordset12.Fields.Item("SubLink7").Value)%>", "<%=(Recordset12.Fields.Item("SubLink7URL").Value)%>","_top")	 
     subMenu1[10][7] = new Array ("<%=(Recordset12.Fields.Item("SubLink8").Value)%>", "<%=(Recordset12.Fields.Item("SubLink8URL").Value)%>","_top")	 
     subMenu1[10][8] = new Array ("<%=(Recordset12.Fields.Item("SubLink9").Value)%>", "<%=(Recordset12.Fields.Item("SubLink9URL").Value)%>","_top")	 
     subMenu1[10][9] = new Array ("<%=(Recordset12.Fields.Item("SubLink10").Value)%>", "<%=(Recordset12.Fields.Item("SubLink10URL").Value)%>","_top")	 
     subMenu1[10][10] = new Array ("<%=(Recordset12.Fields.Item("SubLink11").Value)%>", "<%=(Recordset12.Fields.Item("SubLink11URL").Value)%>","_top")
     subMenu1[10][11] = new Array ("<%=(Recordset12.Fields.Item("SubLink12").Value)%>", "<%=(Recordset12.Fields.Item("SubLink12URL").Value)%>","_top")		 
	 	 	 	 	 

/// FORMAT MENU  ///
menuStyle = "3d"                                  // Menu Style (flat, 3d)
cellPadding = "5"                                   // Cell Padding
cellBorder = 0                                     // Border width (for no border, enter 0)  THIS VALUE APPLIES TO ALL MENUS
verticalOffset = "-170"                                // Vertical offset of Sub Menu. 
horizontalOffset = "30"                              // Horizontal offset of Sub Menu. 
subMenuDelay = .5                                      // Time sub menu stays visible for (in seconds). THIS VALUE APPLIES TO ALL MENUS
subIndicate = 1                                     // Show if a sub menu is present (use 0 for "no")  THIS VALUE APPLIES TO ALL MENUS
indicator = ">" // Symbol to show if a sub menu is present (subIndicate must be to set to 1)
                                                    // Use standard HTML <img> tag. You can use a character instead of an image. 
                                                    // e.g.      indicator = ">"
// Main Menu Items
menuWidth = "0"                  // Width of menu item.  Use 0 for default
borderColor = "white"            // Border Colour (flat mode only)
borderHighlight = "#97BBD3"      // Border Highlight Colour (3d mode only)
borderShadow = "#31556D"         // Border Shadow Colour (3d mode only)
menuBackground = "#003366"       // Cell Background Colour
menuHoverBackground = "#003366"    // Cell Background Colour on mouse rollover
fontFace = "arial"               // Font Face
fontColour = "#FFFFFF"           // Font Colour
fontHoverColour = "#cc9999"      // Font Colour on mouse rollover
fontSize = "9pt"                 // Font Size
fontDecoration = "none"          // Style of the link text (none, underline, overline, line-through)
fontWeight = "Bold"            // Font Weight (normal, bold)

// Sub Menu Items
smenuWidth = "0"                 // Width of sub menu item.  Use 0 for default
sborderColor = "Black"           // Border Colour (flat mode only)
sborderHighlight = "#E9E9E2"     // Border Highlight Colour (3d mode only)
sborderShadow = "#83837C"        // Border Shadow Colour (3d mode only)
smenuBackground = "#003366"        // Cell Background Colour
smenuHoverBackground = "#cc9999" // Cell Background Colour on mouse rolloverr
sfontFace = "arial"              // Font Face
sfontColour = "white"          // Font Colour
sfontHoverColour = "#000066"     // Font Colour on mouse rollover
sfontSize = "8pt"                // Font Size
sfontDecoration = "none"         // Style of the link text (none, underline, overline, line-through)
sfontWeight = "bold"           // Font Weight (normal, bold)

quantity = 1
/// END FORMAT MENU  ////

/// DO NOT EDIT BELOW THIS LINE  ///
// Browser Sniffer
var isIE = (document.getElementById && document.all)?true:false;
var isNS4 = (document.layers)?true:false;
var isNS6 = (document.getElementById && !document.all)?true:false;
var timer;
var obj = (isIE)?"document.all":"document.getElementById"
// Menu Styles
function createStyles(quant){
styleBorder=(menuStyle.split(",")[quant-1].toLowerCase() == "flat")?cellBorder:0 
  document.writeln ('<style>');
  document.writeln ('.rcMenuStatic'+quant+' {font-family:'+fontFace.split(",")[quant-1]+';font-size:'+fontSize.split(",")[quant-1]+';color:'+fontColour.split(",")[quant-1]+';font-weight:'+fontWeight.split(",")[quant-1]+';background-color:'+menuBackground.split(",")[quant-1]+'; cursor:hand; text-decoration:'+fontDecoration.split(",")[quant-1]+'}');
  document.writeln ('.rcMenuHover'+quant+'  {font-family:'+fontFace.split(",")[quant-1]+';font-size:'+fontSize.split(",")[quant-1]+';color:'+fontHoverColour.split(",")[quant-1]+';font-weight:'+fontWeight.split(",")[quant-1]+';background-color:'+menuHoverBackground.split(",")[quant-1]+'; cursor:hand; text-decoration:'+fontDecoration.split(",")[quant-1]+'}');
  document.writeln ('.rcSubMenuStatic'+quant+' {font-family:'+sfontFace.split(",")[quant-1]+';font-size:'+sfontSize.split(",")[quant-1]+';color:'+sfontColour.split(",")[quant-1]+';font-weight:'+sfontWeight.split(",")[quant-1]+';text-decoration:'+sfontDecoration.split(",")[quant-1]+';background-color:'+smenuBackground.split(",")[quant-1]+'; cursor:hand}');
  document.writeln ('.rcSubMenuHover'+quant+'  {font-family:'+sfontFace.split(",")[quant-1]+';font-size:'+sfontSize.split(",")[quant-1]+';color:'+sfontHoverColour.split(",")[quant-1]+';font-weight:'+sfontWeight.split(",")[quant-1]+';text-decoration:'+sfontDecoration.split(",")[quant-1]+';background-color:'+smenuHoverBackground.split(",")[quant-1]+'; cursor:hand}');
  document.writeln ('</style>');
}
// Build and show the main menu items
function showMenus(quant,definedOrientation)
{
  createStyles(quant);
  if(definedOrientation!=""){orientation=definedOrientation}
  if (orientation.toLowerCase() == "vertical"){document.writeln ('<table border="0" cellpadding="0" cellspacing="'+styleBorder+'" bgColor="'+borderColor.split(",")[quant-1]+'">')}
  else{document.writeln ('<table border="0" cellpadding="0" cellspacing="'+styleBorder+'" bgColor="'+borderColor.split(",")[quant-1]+'"><tr>')}  
  for (x=0; x<eval("Menu"+quant).length; x++)
  {
    if (orientation.toLowerCase()=="vertical") document.writeln('<tr>')
    document.writeln ('<td width="'+menuWidth+'" onclick="tdMouseClick(\''+quant+'mainLink'+x+'\')" onMouseOver="hoverMenu(); popDown(\''+quant+'\','+x+', \''+quant+'button'+x+'\',\''+orientation+'\'); " onMouseOut="clearMenu('+quant+','+x+')" ')
    if (menuStyle.split(",")[quant-1].toLowerCase() == "3d"){document.writeln ('style="border-left:'+cellBorder+'px solid '+borderHighlight.split(",")[quant-1]+';border-top:'+cellBorder+'px solid '+borderHighlight.split(",")[quant-1]+';border-right:'+cellBorder+'px solid '+borderShadow.split(",")[quant-1]+';border-bottom:'+cellBorder+'px solid '+borderShadow.split(",")[quant-1]+';"');}        
    document.writeln ('><div id="'+quant+'button'+x+'"><table border="0" cellpadding="'+cellPadding.split(",")[quant-1]+'" cellspacing="0" width="100%"><tr><td class="rcMenuStatic'+quant+'" id="'+quant+'cell'+x+'" nowrap>');
    document.writeln ('<a id="'+quant+'mainLink'+x+'" href="'+eval("Menu"+quant)[x][1]+'" target="'+eval("Menu"+quant)[x][2]+'" class="rcMenuStatic'+quant+'">'+eval("Menu"+quant)[x][0]+'</a></td>');
    if (subIndicate == 1&&eval("subMenu"+quant)[x].length>=1){
      document.writeln('<td class="rcMenuStatic'+quant+'" id="'+quant+'cell'+x+'a" align="right">');
      document.writeln ('<a id="'+quant+'mainLink'+x+'a" href="'+eval("Menu"+quant)[x][1]+'" target="'+eval("Menu"+quant)[x][2]+'" class="rcMenuStatic'+quant+'">'+indicator+'</a></td>');}
    document.writeln ('</tr></table></div></td>');    
    if (orientation.toLowerCase()=="vertical") document.writeln('</tr>')
  }
  if (orientation.toLowerCase() == "vertical"){document.writeln ('</table>');}
  else{document.writeln ('</tr></table>');}   
// Build the sub menu items
  for (x=0; x<eval("Menu"+quant).length; x++)
  { 
    if (eval("subMenu"+quant)[x].length > 0)
    {     
      document.writeln ('<div id="'+quant+'MENU'+x+'" style="visibility:hidden; position:absolute; z-index:2" >');
      document.writeln ('<table width="'+smenuWidth.split(",")[quant-1]+'" border="0" cellpadding="'+cellPadding.split(",")[quant-1]+'" cellspacing="'+styleBorder+'" bgColor="'+sborderColor.split(",")[quant-1]+'">');
      for (y=0; y<eval("subMenu"+quant)[x].length; y++)
      {
        document.writeln ('<tr>');
        if (eval("subMenu"+quant)[x][y][1].indexOf("#") != -1)
        {
          document.writeln ('<td bgColor="'+eval("subMenu"+quant)[x][y][2]+'" id="'+quant+'subMenu'+x+y+'" onMouseOver="hoverMenu(); highlightMenu(\'sub\','+x+','+y+',\'\','+quant+')" nowrap')
          if (menuStyle.split(",")[quant-1].toLowerCase() == "3d"){document.writeln ('style="border-left:'+cellBorder+'px solid '+sborderHighlight.split(",")[quant-1]+';border-top:'+cellBorder+'px solid '+sborderHighlight.split(",")[quant-1]+';border-right:'+cellBorder+'px solid '+sborderShadow.split(",")[quant-1]+';border-bottom:'+cellBorder+'px solid '+sborderShadow.split(",")[quant-1]+';"');}
          document.writeln ('><p style="font-family:'+sfontFace.split(",")[quant-1]+'; font-size:'+sfontSize.split(",")[quant-1]+'; color:'+eval("subMenu"+quant)[x][y][1]+'"id="'+quant+'subLink'+x+y+'">'+eval("subMenu"+quant)[x][y][0]+'</p></td></tr>');
        }
        else
        {
          document.writeln ('<td id="'+quant+'subMenu'+x+y+'" class="rcSubMenuStatic'+quant+'" onMouseOver="hoverMenu(); highlightMenu(\'sub\','+x+','+y+',\'\','+quant+')" onMouseOut="clearMenu('+quant+','+x+');" onclick="tdMouseClick(\''+quant+'subLink'+x+y+'\')" nowrap')
          if (menuStyle.split(",")[quant-1].toLowerCase() == "3d"){document.writeln ('style="border-left:'+cellBorder+'px solid '+sborderHighlight.split(",")[quant-1]+';border-top:'+cellBorder+'px solid '+sborderHighlight.split(",")[quant-1]+';border-right:'+cellBorder+'px solid '+sborderShadow.split(",")[quant-1]+';border-bottom:'+cellBorder+'px solid '+sborderShadow.split(",")[quant-1]+';"');}
          document.writeln ('><a id="'+quant+'subLink'+x+y+'" href="'+eval("subMenu"+quant)[x][y][1]+'" target="'+eval("subMenu"+quant)[x][y][2]+'" class="rcSubMenuStatic'+quant+'">'+eval("subMenu"+quant)[x][y][0]+'</a></td></tr>');
        }
      }

      document.writeln ('</table></div>');
    }
  }
} 
// Change colour or menu and submenu items when the mouse hovers over.  
function highlightMenu(element,mainMenu,dropMenu,state,quant)
{
  hoverMenu();
  state=(state == "hover")?"rcMenuHover"+quant:"rcMenuStatic"+quant
  if (element == "sub")
  {
    for (x=0; x < eval("subMenu"+quant)[mainMenu].length; x++)
    {
      if (eval("subMenu"+quant)[mainMenu][x][1].indexOf("#") == -1){
        eval(obj+'("'+quant+'subMenu'+mainMenu+x+'").className = "rcSubMenuStatic'+quant+'"')
        eval(obj+'("'+quant+'subLink'+mainMenu+x+'").className = "rcSubMenuStatic'+quant+'"')
      }
    } 
    if (eval("subMenu"+quant)[mainMenu][dropMenu][1].indexOf("#") == -1)  {
      eval(obj+'("'+quant+'subMenu'+mainMenu+dropMenu+'").className="rcSubMenuHover'+quant+'"')
      eval(obj+'("'+quant+'subLink'+mainMenu+dropMenu+'").className="rcSubMenuHover'+quant+'"')
    }
  }
  else
  {
    eval(obj+'("'+quant+'cell'+mainMenu+'").className = "'+state+'"')
    eval(obj+'("'+quant+'mainLink'+mainMenu+'").className = "'+state+'"')
    if (subIndicate == 1&&eval("subMenu"+quant)[mainMenu].length>=1)
    {
      eval(obj+'("'+quant+'cell'+mainMenu+'a").className = "'+state+'"')
      eval(obj+'("'+quant+'mainLink'+mainMenu+'a").className = "'+state+'"')
    }
  }
}
// Find positioning for sub menus
function getOffset(obj, dim) 
{
  if(dim=="left") 
  {     
    oLeft = obj.offsetLeft;    
    while(obj.offsetParent!=null) 
    {    
      oParent = obj.offsetParent     
      oLeft += oParent.offsetLeft 
      obj = oParent 	
    }
    return oLeft
  }
  else if(dim=="top")
  {
    oTop = obj.offsetTop;
    while(obj.offsetParent!=null) 
    {
      oParent = obj.offsetParent
      oTop += oParent.offsetTop
      obj = oParent 	
    }
    return oTop
  }
  else if(dim=="width")
  {
    oWidth = obj.offsetWidth
    return oWidth
  }  
  else if(dim=="height")
  {
    oHeight = obj.offsetHeight
    return oHeight
  }    
  else
  {
    alert("Error: invalid offset dimension '" + dim + "' in getOffset()")
    return false;
  }
}
// Show sub menus
function popDown(quant, param, id, orientation)
{
  var cellBorderOffset = (isNS6)?cellBorder:eval(cellBorder*2)
  var browserAdjustment = (isNS6)?cellBorder:0
  var menu;
  var button;

  if (id)
  {    
    getOffset(eval(obj+'(id)'),'left');
    getOffset(eval(obj+'(id)'),'top');    
    getOffset(eval(obj+'(id)'),'width');  
    getOffset(eval(obj+'(id)'),'height');
    
    if (eval("Menu"+quant+"["+param+"][3]")=="right" && eval("subMenu"+quant+"["+param+"].length")>0) 
    { 
      oLeft=oLeft  
      oLeft=oLeft+oWidth; 
      getOffset(eval(obj+'("'+quant+'MENU'+param+'")'),'width');
      oLeft=oLeft-oWidth ;
      alignAdjustment = cellBorder*2 + 1
    }
    else 
    {
      alignAdjustment = 0
      oLeft=oLeft
    }    
  }  

  
  n = 0;    
  while (n < eval("Menu"+quant).length)
  {          
    menu = quant+"MENU"+n
    if (param == n)
    {

      theObj = eval(obj+'(menu)');
      if (theObj)
      {
         theObj.style.visibility = "visible"
          if (orientation.toLowerCase()=="vertical"){
            theObj.style.left=(menuStyle.split(",")[quant-1].toLowerCase()=="flat")?oLeft+oWidth+cellBorder+parseInt(horizontalOffset.split(",")[quant-1]):oLeft+oWidth+cellBorderOffset+parseInt(horizontalOffset.split(",")[quant-1]);
            theObj.style.top=(menuStyle.split(",")[quant-1].toLowerCase()=="flat")?oTop-cellBorder+parseInt(verticalOffset.split(",")[quant-1]):oTop+parseInt(verticalOffset.split(",")[quant-1])-browserAdjustment}
          else{
            theObj.style.left=(menuStyle.split(",")[quant-1].toLowerCase()=="flat")?oLeft-cellBorder+parseInt(horizontalOffset.split(",")[quant-1])+alignAdjustment:oLeft+parseInt(horizontalOffset.split(",")[quant-1])-browserAdjustment+alignAdjustment;
            theObj.style.top=(menuStyle.split(",")[quant-1].toLowerCase()=="flat")?oTop+oHeight+cellBorder+parseInt(verticalOffset.split(",")[quant-1]):oTop+oHeight+cellBorderOffset+parseInt(verticalOffset.split(",")[quant-1]);}
        }
      
       highlightMenu('main',n,'','hover',quant)
       if (eval("subMenu"+quant)[param].length > 0)
       {
         for (x=0; x<eval("subMenu"+quant)[param].length; x++)
         {
           if(eval("subMenu"+quant)[param][x][1].indexOf("#") == -1){
             eval (obj+'("'+quant+'subMenu'+param+x+'").className = "rcSubMenuStatic'+quant+'"')
             eval (obj+'("'+quant+'subLink'+param+x+'").className = "rcSubMenuStatic'+quant+'"')  
           }       
         }
       }
    }
    else 
    {  
      for (x=1; x<quantity+1; x++)
      {       
        menu = x+"MENU"+n   
        //alert(menu)     
        if (eval(obj+'(menu)'))
        {
          eval(obj+'(menu).style.visibility = "hidden"')            
        }
        highlightMenu ('main',n,'','static',quant)
      }
    }

    n++
  }  
}
// Re-set timer for sub menus
function hoverMenu()
{
  if(timer)
  clearTimeout(timer)
}
// Set timer for sub menus
function clearMenu(quant,menu)
{
  setDelay = subMenuDelay*1000
  delay = (eval("subMenu"+quant)[menu].length > 0)?setDelay:1
  
  timer = setTimeout("popDown("+quant+","+(eval("Menu"+quant).length + 1)+")",delay)
}
// when you click the box, perform the same function as if the user had clicked the hyperlink
function tdMouseClick(theElement)
{
  eval(obj+'(theElement).click()')
}
//-->
</script>









<body>
<div id="Layer3"></div>





<div id="Layer2">
  <p><a href="../Index.asp" class="style1">Home </a> <br />
    <br />
      <script type="text/javascript" language="JavaScript">showMenus(1,'Vertical')</script>
  </p>
  <p>&nbsp;  </p>
</div>
<div id="Layer1">
  <p><%=(Recordset1.Fields.Item("xBody").Value)%></p>
</div>
<div id="Layer4"></div>
</body>
</html>
<%
Recordset1.Close()
Set Recordset1 = Nothing
%>
<%
Recordset2.Close()
Set Recordset2 = Nothing
%>
<%
Recordset3.Close()
Set Recordset3 = Nothing
%>
<%
Recordset4.Close()
Set Recordset4 = Nothing
%>
<%
Recordset5.Close()
Set Recordset5 = Nothing
%>
<%
Recordset6.Close()
Set Recordset6 = Nothing
%>
<%
Recordset7.Close()
Set Recordset7 = Nothing
%>
<%
Recordset8.Close()
Set Recordset8 = Nothing
%>
<%
Recordset9.Close()
Set Recordset9 = Nothing
%>
<%
Recordset10.Close()
Set Recordset10 = Nothing
%>
<%
Recordset11.Close()
Set Recordset11 = Nothing
%>
<%
Recordset12.Close()
Set Recordset12 = Nothing
%>
<%
RsBulletin.Close()
Set RsBulletin = Nothing
%>