<% if request("div") = "euro" then Div = "Euro" else Div = "U.S." end if %> <% Param = replace(request("dept"), " ", "%20") getdeptinfo(request("dept")) %>

.gif">

Site Home Depts <%=request("dept")%> <%=request("div")%> Div

Below is the Roster for our <%=request("div")%> <%=request("dept")%> division.

<% SQL = "sp_selectAdvisor" if request("div") = "Euro" then divnum = 1 else divnum = 2 end if dbstart cmd.Parameters.Append cmd.CreateParameter("RankID", adInteger,adParamInput , , 3) cmd.Parameters.Append cmd.CreateParameter("Division", adInteger,adParamInput , , divnum) cmd.Parameters.Append cmd.CreateParameter("deptname", adVarChar, adParamInput, 40, Mid(request("dept"), 1, 40)) set RS = cmd.Execute if RS.EOF then ID = "-" CallSign = "-" ICQ = "-" Email = "-" else ID = RS("id") CallSign = RS("CallSign") if RS("ICQ") = -1 then ICQ = "unavailable" else ICQ = RS("ICQ") end if Email = RS("Email") end if dbclose %>

Advisor
<%=CallSign%>	<%=ICQ%>	<%=Email%>

<% SQL = "sp_selectAdvisor" dbstart cmd.Parameters.Append cmd.CreateParameter("RankID", adInteger,adParamInput , , 4) cmd.Parameters.Append cmd.CreateParameter("Division", adInteger,adParamInput , , divnum) cmd.Parameters.Append cmd.CreateParameter("deptname", adVarChar, adParamInput, 40, Mid(request("dept"), 1, 40)) set RS = cmd.execute %> <% do while not RS.EOF ID = RS("id") CallSign = RS("CallSign") ICQ = RS("ICQ") if RS("ICQ") = -1 then ICQ = "unavailable" else ICQ = RS("ICQ") end if Email = RS("Email") %> <% RS.MoveNext loop dbclose %>

Members
<%=CallSign%>	<%=ICQ%>	<%=EMail%>

<%SQL = "sp_selectAdvisor" dbstart cmd.Parameters.Append cmd.CreateParameter("RankID", adInteger,adParamInput , , 8) cmd.Parameters.Append cmd.CreateParameter("Division", adInteger,adParamInput , , divnum) cmd.Parameters.Append cmd.CreateParameter("deptname", adVarChar, adParamInput, 40, Mid(request("dept"), 1, 40)) set RS = cmd.execute %> <% do while not RS.EOF ID = RS("id") CallSign = RS("CallSign") ICQ = RS("ICQ") if RS("ICQ") = -1 then ICQ = "unavailable" else ICQ = RS("ICQ") end if Email = RS("Email") %> <% RS.MoveNext loop dbclose %>

Applicants
<%=CallSign%>	<%=ICQ%>	<%=Email%>