Welcome to the core of Mëtälü§ Grävï§: Our Departments.
We are aware that is not wise to limit ourselves to only one game these days, which is why we encourage our members to regularly open new Departments in order to keep up with the latest games...
| Admin Team |
| |
<%
SQL = "sp_selectAdmin"
dbstart
set RS = cmd.Execute
do while not RS.EOF
Rank = RS("RankName")
MemberID = RS("ID")
ICQ = RS("ICQ")
CallSign = RS("CallSign")
Email = RS("Email")
%>
| <%=Rank%> |
<%=CallSign%> |
<%=ICQ%> |
<%=EMail%> |
<%
RS.movenext
loop
dbclose
SQL = "sp_selectDepts"
dbstart
set RS = cmd.Execute
i = 0
do while not RS.EOF
redim preserve depts(i)
depts(i) = RS("DepartmentName")
i = i + 1
RS.movenext
loop
redim preserve depts(i)
depts(i) = "end"
dbclose
%>
<%
i = 0
do while depts(i)<>"end"
SQL = "sp_selectOverseer"
dbstart
cmd.Parameters.Append cmd.CreateParameter("deptname", adVarChar, adParamInput, 40, Mid(depts(i), 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_countMem"
dbstart
cmd.Parameters.Append cmd.CreateParameter("deptname", adVarChar, adParamInput, 40, Mid(depts(i), 1, 40))
set RS = cmd.Execute
Memnum = RS("count")
Param = replace(depts(i), " ", "%20")%>
<%
i = i + 1
loop
%>
|
Departments