| |
<%
'============ 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("RosterName")%><%if rs2("MemberPosition")<>"" then%>, <%=rs2("MemberPosition")%><%end if%> |
|
 |
<%rs2.MoveNext
loop%>
| |
<%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 ===========================================================
%>
|
|
