<% Dim intCount intCount = 0 objCommand.CommandText = "ContactList" objCommand.CommandType = adCmdStoredProc Set objRS = objCommand.Execute Response.write "

" Response.write "" Response.write "" While NOT objRS.EOF If intCount = 9 Then Response.write " Position/Title Name " End If Response.write "" objRS.MoveNext intCount = intCount + 1 Wend Response.write " Position/Title Name " & objRS("Position") & " " & objRS("Name") & " " Response.write "

" objRS.Close Set objRS = Nothing Set objCommand = Nothing %>

If you would like  to email a member of the committee please click on the persons name below,

for  general enquiries please click  here