<% getdeptinfo(request("dept")) %>

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

<%Param = replace(request("dept"), " ", "%20")%>

News | Divisions | Forums';return true" onmouseout="status='';return true">Forum | ', 'allies', 600, 400);" onmouseover="status='<%=request("dept")%> Allies';return true" onmouseout="status='';return true">Allies | Fixtures | ', 'serverStatus', 600, 400);" onmouseover="status='<%=request("dept")%> Servers';return true" onmouseout="status='';return true">Servers

<%=Desc%>

<% SQL = "sp_selectOverseer" dbstart 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 %>

Overseer
<%=CallSign%>	<%=ICQ%>	<%=Email%>

<%Param = replace(request("dept"), " ", "%20")%> <% SQL = "sp_selectAdvisor" dbstart cmd.Parameters.Append cmd.CreateParameter("RankID", adInteger,adParamInput , , 3) cmd.Parameters.Append cmd.CreateParameter("Division", adInteger,adParamInput , , 1) 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 %> <% SQL = "sp_countdivmembers" dbstart cmd.Parameters.Append cmd.CreateParameter("deptname", adVarChar, adParamInput, 40, Mid(request("dept"), 1, 40)) cmd.Parameters.Append cmd.CreateParameter("Division", adVarChar, adParamInput, 40, Mid("Euro", 1, 40)) set RS = cmd.execute i = RS("count") dbclose %> <% SQL = "sp_selectAdvisor" dbstart cmd.Parameters.Append cmd.CreateParameter("RankID", adInteger,adParamInput , , 3) cmd.Parameters.Append cmd.CreateParameter("Division", adInteger,adParamInput , , 2) 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 SQL = "sp_countdivmembers" dbstart cmd.Parameters.Append cmd.CreateParameter("deptname", adVarChar, adParamInput, 40, Mid(request("dept"), 1, 40)) cmd.Parameters.Append cmd.CreateParameter("Division", adVarChar, adParamInput, 40, Mid("US", 1, 40)) set RS = cmd.execute i = RS("count") dbclose %>

Divisions
European
Advisor
<%=CallSign%>	<%=ICQ%>	<%=Email%>
Members: <%=i%>
U.S.
Advisor
<%=CallSign%>	<%=ICQ%>	<%=Email%>
Members: <%=i%>