<%@ Language=VBScript %> <% if session("DIRECTORYACCESS") <>"Yes" and Request.QueryString("Type")="Full" then Response.Redirect "login.asp" end if %> Canadian Pony Club National Directory <% '** Create the recordset and connection adOpenStatic=3 adLockReadOnly=1 Set strConnect = Server.CreateObject("ADODB.Connection") Set rsThisCommittee = Server.CreateObject("ADODB.Recordset") strConnect.Open "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("/admin/db/NationalDirectory.mdb") & "" set rsThisCommittee.ActiveConnection = strConnect rsThisCommittee.Source = "SELECT National_Positions.*, Personal_Info.*, [FirstName] & ' ' & [LastName] AS FullName FROM Personal_Info INNER JOIN National_Positions ON Personal_Info.ID = National_Positions.ID WHERE (((National_Positions.[Report List])='Life Directors')) ORDER BY National_Positions.Priority, Personal_Info.LastName, Personal_Info.FirstName;" rsThisCommittee.CursorType = adOpenStatic rsThisCommittee.LockType = adLockReadOnly rsThisCommittee.Open %>
<% '** Show entries LeftSide=1 Do While Not rsThisCommittee.EOF if LeftSide=1 then Response.Write "" end if %> <% rsThisCommittee.MoveNext Loop if LeftSide=0 then Response.Write "" end if rsThisCommittee.Close %> <% strQuery="SELECT National_Positions.*, Personal_Info.*, [FirstName] & ' ' & [LastName] AS FullName FROM Personal_Info INNER JOIN National_Positions ON Personal_Info.ID = National_Positions.ID WHERE (((National_Positions.[Report List])='Life Members')) ORDER BY National_Positions.Priority, Personal_Info.LastName, Personal_Info.FirstName;" rsThisCommittee.Open strQuery,strConnect,adOpenStatic,adLockReadOnly LeftSide=1 Do While Not rsThisCommittee.EOF if LeftSide=1 then Response.Write "" end if %> <% rsThisCommittee.MoveNext Loop '** Clean Up rsThisCommittee.Close Set rsThisCommittee = Nothing strConnect.Close Set strConnect=Nothing %> <% if LeftSide=0 then Response.Write "" end if %>

Canadian Pony Club National Directory

Honourary Positions

To keep this directory accurate and up to date, please send all changes as soon as they happen to Directory@CanadianPonyClub.Org

Life Directors
<% =rsThisCommittee("FullName") %> <% if LeftSide=1 then LeftSide=0 else LeftSide=1 end if %>  

Life Members

<% =rsThisCommittee("FullName") %> <% if LeftSide=1 then Leftside=0 else LeftSide=1 end if %>
* = deceased