<%@ Language=VBScript %> <% if session("DIRECTORYACCESS") <>"Yes" and Request.QueryString("Type")="Full" then Response.Redirect "login.asp" end if %> Canadian Pony Club Youth Directory <% RequestType = Request.QueryString("Type") '** 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 Personal_Info.*, [FirstName] & ' ' & [LastName] AS FullName, Regional_Positions.*FROM Personal_Info INNER JOIN Regional_Positions ON Personal_Info.ID = Regional_Positions.ID WHERE (((Personal_Info.Region)<>'Unknown') AND ((InStr(1,[Position],'youth'))>'0')) AND [Priority]=100 ORDER BY Personal_Info.Region, Personal_Info.LastName, Personal_Info.FirstName;" rsThisCommittee.CursorType = adOpenStatic rsThisCommittee.LockType = adLockReadOnly rsThisCommittee.Open %>
" 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

Branch Youth Representatives

To keep this directory accurate and up to date, please send all changes as soon as they happen to your Branch DC who will pass them onto the Regional Chair.

<% '** Show entries LeftSide=1 Do While Not rsThisCommittee.EOF if LeftSide=1 then Response.Write "
<% =rsThisCommittee("Region") %> - <% =rsThisCommittee("Branch") %>
<% =rsThisCommittee("FullName") %>
<%if RequestType = "Full" then Response.Write "
" & rsThisCommittee("Street") & "
" & rsThisCommittee("City") & "
" & rsThisCommittee("PostalCode") & "
Phone: " & rsThisCommittee("telephone") & "
Cell: " & rsThisCommittee("Cell") & "
    Fax: " & rsThisCommittee("Fax") & "
Email: " & rsThisCommittee("Email1") & "
     " & rsThisCommittee("Email2") & "" else Testing=rsThisCommittee("Email1") if isnull(Testing) then ContactData=rsThisCommittee("telephone") else ContactData="" & rsThisCommittee("Email1") & "" end if Response.Write ContactData end if if LeftSide=1 then LeftSide=0 else LeftSide=1 end if %>