<%@ Language=VBScript %> Alexandria Cosmopolitan Rotary Club













 

COMMITTEES

 

Home l About Us l Roster l Committees I News I Events l Newsletter I Projects I Contact Us

 
 
  <% '============ Beginning of ASP code (Inclusion inside a tag) ======================= '============ View members in committee from database =================================== Dim CommitteeID CommitteeID=cint(Request.QueryString("CommitteeID")) Set rs1 = Server.CreateObject ("ADODB.Recordset") rs1.ActiveConnection = OBJdbConnection rs1.Open "select * from Committees where CommitteeID="&CommitteeID if not rs1.eof then %>
<%=rs1("CommitteeName")%>
<% Set rs2 = Server.CreateObject ("ADODB.Recordset") rs2.ActiveConnection = OBJdbConnection rs2.open "SELECT committees.CommitteeID, committees.CommitteeName, roster.RosterName, members.MemberPosition FROM roster INNER JOIN (committees INNER JOIN members ON committees.CommitteeID = members.CommitteeID) ON roster.RosterID = members.RosterID WHERE (((committees.CommitteeID)="&CommitteeID&")) ORDER BY roster.RosterName;" if not rs2.eof then %> <%do while not rs2.eof%> <%rs2.MoveNext loop%>
- <%=rs2("RosterName")%><%if rs2("MemberPosition")<>"" then%>,  <%=rs2("MemberPosition")%><%end if%>
 
<%else%>

No members are assigned to this committee yet, please check again at a later time.

 
<%end if else%>

This committee has been deleted or moved. We are sorry for the inconvenience.

 
<% end if rs1.close rs2.close set OBJdbConnection = Nothing '============ End of ASP code =========================================================== %>
 
     
 
  Copyright 2005 Alexandria Cosmopolitan Rotary Club.
Powered by: ClubWeb v1.0