<%@ Language=VBScript%> <%Response.Buffer = True%> Committee Reporting Results <% Dim strSQL Dim commname dim cnt cnt = 0 strSQL = "SELECT comm1.comname, member.term, faculty.L_name, faculty.F_name " strSQL = strSQL + "FROM comm1, member, faculty WHERE comm1.COMID = MEMBER.COMID " strSQL = strSQL + "AND MEMBER.USER_ID = faculty.USER_ID GROUP BY comm1.comname, faculty.L_name, faculty.F_name, member.term" dbNVS.Open set myRS = Server.CreateObject("ADODB.Recordset") myRS.ActiveConnection = dbNVS myRS.Open strSQL, dbNVS %>

Committee and Member Listing

<% If not myRS.EOF Then commname = CStr(myRS.Fields("comname").Value) Else commname = "No committees are available to display" end if %> <% While NOT myRS.EOF If commname = CStr(myRS.Fields("comname").Value) then %> <% cnt = cnt+1 myRS.MoveNext Else commname = CStr(myRS.Fields("comname").Value)%> <% End If Wend set myRS = Nothing dbNVS.Close %>
MEMBERTERM
---------------
<%=commname%>
<%=CStr(myRS.Fields("F_Name").Value) + " " + CStr(myRS.Fields("L_Name").Value)%><%=CStr(myRS.Fields("term").Value)%>
 
<%=commname%>