%@ LANGUAGE="VBSCRIPT" %>
<%'this script will display all committe members, the appointing authority... this scripts expects
'to get a cal_id parameter that is the database id of the particular committe
%>
Committees On InfoNet
<%
cmte_id = Request.QueryString("cal_id")
sqlselect = "select * from cmte_members where cmte_id=" & cmte_id & " order by name"
set rs=db.execute(sqlselect)
sqlselect1 = "select name,userid_chair,userid_cochair from cmte_name where id=" & cmte_id
set rs1=db.execute(sqlselect1)
name=TRIM(rs1("name"))
userid_chair=TRIM(rs1("userid_chair"))
userid_cochair=TRIM(rs1("userid_cochair"))
rs1.close
set rs1=nothing
%>
Membership of
<%=name%>
Chair :
|
<%=userid_chair%>
|
Co-Chair : |
<%=userid_cochair%>
|
Name
|
Appointing
Authority |
Status
|
 
<%Do while NOT rs.eof%>
<%=rs("name") %> |
<%=rs("appointed_by") %> |
<%=rs("Type") %> |
<% rs.movenext
loop
rs.close
db.close
set rs=nothing
set db=nothing
%>
©