<% '~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ 'This file is used to fill a combo box with committee names using a recordset defined in the calling file. '~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ %>

<%If bInit <> False then%> - Select a Committee - <%End If%> <%While Not rsComm.EOF%> <%If Clng(rsComm.Fields("COMID").Value) = COMID then%> "><%=rsComm.Fields("COMNAME").Value%> <%Else%> "><%=rsComm.Fields("COMNAME").Value%> <%End If%> <% rsComm.MoveNext Wend%>

Select a committee.