<%@LANGUAGE="VBSCRIPT"%> <% Dim WOTMExec Dim WOTMExec_cmd Dim WOTMExec_numRows Set WOTMExec_cmd = Server.CreateObject ("ADODB.Command") WOTMExec_cmd.ActiveConnection = MM_portal_STRING WOTMExec_cmd.CommandText = "SELECT * FROM WOTMExecOfficers" WOTMExec_cmd.Prepared = true Set WOTMExec = WOTMExec_cmd.Execute WOTMExec_numRows = 0 %> <% Dim GrandCouncil Dim GrandCouncil_cmd Dim GrandCouncil_numRows Set GrandCouncil_cmd = Server.CreateObject ("ADODB.Command") GrandCouncil_cmd.ActiveConnection = MM_portal_STRING GrandCouncil_cmd.CommandText = "SELECT * FROM GrandCouncil ORDER BY LName ASC" GrandCouncil_cmd.Prepared = true Set GrandCouncil = GrandCouncil_cmd.Execute GrandCouncil_numRows = 0 %> <% Dim AcadFriend Dim AcadFriend_cmd Dim AcadFriend_numRows Set AcadFriend_cmd = Server.CreateObject ("ADODB.Command") AcadFriend_cmd.ActiveConnection = MM_portal_STRING AcadFriend_cmd.CommandText = "SELECT * FROM AcademyOfFriendship ORDER BY LName ASC" AcadFriend_cmd.Prepared = true Set AcadFriend = AcadFriend_cmd.Execute AcadFriend_numRows = 0 %> <% Dim ColRegents Dim ColRegents_cmd Dim ColRegents_numRows Set ColRegents_cmd = Server.CreateObject ("ADODB.Command") ColRegents_cmd.ActiveConnection = MM_portal_STRING ColRegents_cmd.CommandText = "SELECT * FROM CollegeOfRegents ORDER BY LName ASC" ColRegents_cmd.Prepared = true Set ColRegents = ColRegents_cmd.Execute ColRegents_numRows = 0 %> <% Dim StarRecorder Dim StarRecorder_cmd Dim StarRecorder_numRows Set StarRecorder_cmd = Server.CreateObject ("ADODB.Command") StarRecorder_cmd.ActiveConnection = MM_portal_STRING StarRecorder_cmd.CommandText = "SELECT * FROM StarRecorderBoard ORDER BY LName ASC" StarRecorder_cmd.Prepared = true Set StarRecorder = StarRecorder_cmd.Execute StarRecorder_numRows = 0 %> <% Dim WOTMRitual Dim WOTMRitual_cmd Dim WOTMRitual_numRows Set WOTMRitual_cmd = Server.CreateObject ("ADODB.Command") WOTMRitual_cmd.ActiveConnection = MM_portal_STRING WOTMRitual_cmd.CommandText = "SELECT * FROM WOTMAdvisoryBoard ORDER BY LName ASC" WOTMRitual_cmd.Prepared = true Set WOTMRitual = WOTMRitual_cmd.Execute WOTMRitual_numRows = 0 %> <% Dim HLooper1__numRows HLooper1__numRows = -4 Dim HLooper1__index HLooper1__index = 0 WOTMExec_numRows = WOTMExec_numRows + HLooper1__numRows %> <% Dim HLooper2__numRows HLooper2__numRows = -4 Dim HLooper2__index HLooper2__index = 0 GrandCouncil_numRows = GrandCouncil_numRows + HLooper2__numRows %> <% Dim HLooper3__numRows HLooper3__numRows = -4 Dim HLooper3__index HLooper3__index = 0 AcadFriend_numRows = Moosehearthaven_numRows + HLooper3__numRows %> <% Dim HLooper4__numRows HLooper4__numRows = -4 Dim HLooper4__index HLooper4__index = 0 ColRegents_numRows = ColRegents_numRows + HLooper4__numRows %> <% Dim HLooper5__numRows HLooper5__numRows = -4 Dim HLooper5__index HLooper5__index = 0 StarRecorder_numRows = StarRecorder_numRows + HLooper5__numRows %> <% Dim HLooper6__numRows HLooper6__numRows = -4 Dim HLooper6__index HLooper6__index = 0 WOTMRitual_numRows = WOTMRitual_numRows + HLooper6__numRows %> <% Dim MM_paramName %> <% ' *** Go To Record and Move To Record: create strings for maintaining URL and Form parameters Dim MM_keepNone Dim MM_keepURL Dim MM_keepForm Dim MM_keepBoth Dim MM_removeList Dim MM_item Dim MM_nextItem ' create the list of parameters which should not be maintained MM_removeList = "&index=" If (MM_paramName <> "") Then MM_removeList = MM_removeList & "&" & MM_paramName & "=" End If MM_keepURL="" MM_keepForm="" MM_keepBoth="" MM_keepNone="" ' add the URL parameters to the MM_keepURL string For Each MM_item In Request.QueryString MM_nextItem = "&" & MM_item & "=" If (InStr(1,MM_removeList,MM_nextItem,1) = 0) Then MM_keepURL = MM_keepURL & MM_nextItem & Server.URLencode(Request.QueryString(MM_item)) End If Next ' add the Form variables to the MM_keepForm string For Each MM_item In Request.Form MM_nextItem = "&" & MM_item & "=" If (InStr(1,MM_removeList,MM_nextItem,1) = 0) Then MM_keepForm = MM_keepForm & MM_nextItem & Server.URLencode(Request.Form(MM_item)) End If Next ' create the Form + URL string and remove the intial '&' from each of the strings MM_keepBoth = MM_keepURL & MM_keepForm If (MM_keepBoth <> "") Then MM_keepBoth = Right(MM_keepBoth, Len(MM_keepBoth) - 1) End If If (MM_keepURL <> "") Then MM_keepURL = Right(MM_keepURL, Len(MM_keepURL) - 1) End If If (MM_keepForm <> "") Then MM_keepForm = Right(MM_keepForm, Len(MM_keepForm) - 1) End If ' a utility function used for adding additional parameters to these strings Function MM_joinChar(firstItem) If (firstItem <> "") Then MM_joinChar = "&" Else MM_joinChar = "" End If End Function %> WOTM Contacts: Directors, Departments, Committees
         


 
 
 
2013-2014 Moose International Officers, Boards & Committees
 

Women of the Moose Executives

<% startrw = 0 endrw = HLooper1__index numberColumns = 4 numrows = -1 while((numrows <> 0) AND (Not WOTMExec.EOF)) startrw = endrw + 1 endrw = endrw + numberColumns %> <% While ((startrw <= endrw) AND (Not WOTMExec.EOF)) %> <% startrw = startrw + 1 WOTMExec.MoveNext() Wend %> <% numrows=numrows-1 Wend %> <% WOTMExec.Close() Set WOTMExec = Nothing %>

" width="125" height="157" />

" class="Content10Bold"><%=(WOTMExec.Fields.Item("FName").Value)%> <%=(WOTMExec.Fields.Item("MInitial").Value)%>  <%=(WOTMExec.Fields.Item("LName").Value)%> <%=(WOTMExec.Fields.Item("Suffix").Value)%>

<%=(WOTMExec.Fields.Item("6").Value)%>
<%=(WOTMExec.Fields.Item("2").Value)%>
" class="BoldBlu12"> <%=(WOTMExec.Fields.Item("Email").Value)%>

Grand Council

<% startrw = 0 endrw = HLooper2__index numberColumns = 4 numrows = -1 while((numrows <> 0) AND (Not GrandCouncil.EOF)) startrw = endrw + 1 endrw = endrw + numberColumns %> <% While ((startrw <= endrw) AND (Not GrandCouncil.EOF)) %> <% startrw = startrw + 1 GrandCouncil.MoveNext() Wend %> <% numrows=numrows-1 Wend %>

" width="125" height="157" />

"><%=(GrandCouncil.Fields.Item("FName").Value)%>  <%=(GrandCouncil.Fields.Item("MInitial").Value)%> <%=(GrandCouncil.Fields.Item("LName").Value)%>  <%=(GrandCouncil.Fields.Item("Suffix").Value)%>
<%=(GrandCouncil.Fields.Item("6").Value)%>
<%=(GrandCouncil.Fields.Item("2").Value)%>
" class="Content10"> <%=(GrandCouncil.Fields.Item("Email").Value)%>

Academy of Friendship Board

<% startrw = 0 endrw = HLooper3__index numberColumns = 4 numrows = -1 while((numrows <> 0) AND (Not AcadFriend.EOF)) startrw = endrw + 1 endrw = endrw + numberColumns %> <% While ((startrw <= endrw) AND (Not AcadFriend.EOF)) %> <% startrw = startrw + 1 AcadFriend.MoveNext() Wend %> <% numrows=numrows-1 Wend %>

" width="125" height="157" />

"><%=(AcadFriend.Fields.Item("FName").Value)%>  <%=(AcadFriend.Fields.Item("MInitial").Value)%> <%=(AcadFriend.Fields.Item("LName").Value)%>  <%=(AcadFriend.Fields.Item("Suffix").Value)%>
<%=(AcadFriend.Fields.Item("6").Value)%>
<%=(AcadFriend.Fields.Item("2").Value)%>
" class="Content10"> <%=(AcadFriend.Fields.Item("Email").Value)%>

Deputy Grand Regents

College of Regents Board

<% startrw = 0 endrw = HLooper4__index numberColumns = 4 numrows = -1 while((numrows <> 0) AND (Not ColRegents.EOF)) startrw = endrw + 1 endrw = endrw + numberColumns %> <% While ((startrw <= endrw) AND (Not ColRegents.EOF)) %> <% startrw = startrw + 1 ColRegents.MoveNext() Wend %> <% numrows=numrows-1 Wend %>

" width="125" height="157" />

"><%=(ColRegents.Fields.Item("FName").Value)%>  <%=(ColRegents.Fields.Item("MInitial").Value)%> <%=(ColRegents.Fields.Item("LName").Value)%>  <%=(ColRegents.Fields.Item("Suffix").Value)%>
<%=(ColRegents.Fields.Item("6").Value)%>
<%=(ColRegents.Fields.Item("2").Value)%>
" class="Content10"> <%=(ColRegents.Fields.Item("Email").Value)%>

Star Recorder Board

<% startrw = 0 endrw = HLooper5__index numberColumns = 4 numrows = -1 while((numrows <> 0) AND (Not StarRecorder.EOF)) startrw = endrw + 1 endrw = endrw + numberColumns %> <% While ((startrw <= endrw) AND (Not StarRecorder.EOF)) %> <% startrw = startrw + 1 StarRecorder.MoveNext() Wend %> <% numrows=numrows-1 Wend %>

" width="125" height="157" />

"><%=(StarRecorder.Fields.Item("FName").Value)%>  <%=(StarRecorder.Fields.Item("MInitial").Value)%> <%=(StarRecorder.Fields.Item("LName").Value)%>  <%=(StarRecorder.Fields.Item("Suffix").Value)%>
<%=(StarRecorder.Fields.Item("6").Value)%>
<%=(StarRecorder.Fields.Item("2").Value)%>
" class="Content10"> <%=(StarRecorder.Fields.Item("Email").Value)%>

Ritual Committee

<% startrw = 0 endrw = HLooper6__index numberColumns = 4 numrows = -1 while((numrows <> 0) AND (Not WOTMRitual.EOF)) startrw = endrw + 1 endrw = endrw + numberColumns %> <% While ((startrw <= endrw) AND (Not WOTMRitual.EOF)) %> <% startrw = startrw + 1 WOTMRitual.MoveNext() Wend %> <% numrows=numrows-1 Wend %>

" width="125" height="157" />

"><%=(WOTMRitual.Fields.Item("FName").Value)%>  <%=(WOTMRitual.Fields.Item("MInitial").Value)%> <%=(WOTMRitual.Fields.Item("LName").Value)%>  <%=(WOTMRitual.Fields.Item("Suffix").Value)%>
<%=(WOTMRitual.Fields.Item("6").Value)%>
<%=(WOTMRitual.Fields.Item("2").Value)%>
" class="Content10"> <%=(WOTMRitual.Fields.Item("Email").Value)%>

Chapter Analysts

Grand Regents of the Women of the Moose
       
 
<% WOTMExec.Close() Set WOTMExec = Nothing %> <% GrandCouncil.Close() Set GrandCouncil = Nothing %> <% AcadFriend.Close() Set AcadFriend = Nothing %> <% ColRegents.Close() Set ColRegents = Nothing %> <% StarRecorder.Close() Set StarRecorder = Nothing %> <% WOTMRitual.Close() Set WOTMRitual = Nothing %> <% membership.Close() Set membership = Nothing %> <% SupremeForum.Close() Set SupremeForum = Nothing %> <% PilgrimCouncil.Close() Set PilgrimCouncil = Nothing %> <% MLCouncil.Close() Set MLCouncil = Nothing %> <% Legal.Close() Set Legal = Nothing %> <% Loss.Close() Set Loss = Nothing %> <% CommScv.Close() Set CommScv = Nothing %> <% Judiciary.Close() Set Judiciary = Nothing %> <% GovRel.Close() Set GovRel = Nothing %> <% Activity.Close() Set Activity = Nothing %> <% Comm.Close() Set Comm = Nothing %>