<%@ 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'))='1')) 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

Regional Youth Representatives

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

<% '** Show entries LeftSide=1 Do While Not rsThisCommittee.EOF if LeftSide=1 then Response.Write "

<% =rsThisCommittee("Region") %>
<% =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 %>