<% dbstart set Conn = server.CreateObject("ADODB.Connection") Conn.Open ConnectionString set cmd = server.CreateObject("ADODB.Command") set RS = server.CreateObject("ADODB.RecordSet") cmd.ActiveConnection = Conn TodaysDate = Date SQL = "select count(*) as count from Login where LoginTime LIKE '" & TodaysDate & "%'" cmd.CommandText = SQL set RS = cmd.Execute LoginsToday = RS("count") set cmd = server.CreateObject("ADODB.Command") set RS = server.CreateObject("ADODB.RecordSet") cmd.ActiveConnection = Conn TodaysDate = Date SQL = "select count(*) as count from Login" cmd.CommandText = SQL set RS = cmd.Execute Logins = RS("count") set cmd = server.CreateObject("ADODB.Command") set RS = server.CreateObject("ADODB.RecordSet") cmd.ActiveConnection = Conn TodaysDate = Date SQL = "select count(*) as count from MemberInfo" cmd.CommandText = SQL set RS = cmd.Execute NumberMembers = RS("count") Conn.Close %> Mëtälü§ Grävï§: Clan Info
    C L A N   I N F O R M A T I O N Site Home Clan Info 

General Info
Guidelines and Expectations
Founded: 01.02.01
 
 
Clan Statistics
Total Members: <%=NumberMembers%>
Applicants: <% SQL = "sp_getApplicants" dbstart set RS = cmd.execute do while not RS.EOF ID = RS("ID") CallSign = RS("CallSign")%> <%=CallSign%>
<% RS.movenext loop %>
Logins: Total Logins: <%=Logins%>
  Logins Today: <%=LoginsToday%>
   Departments: <% SQL = "sp_selectDepts" dbstart set RS = cmd.Execute do while not RS.EOF DeptName = RS("DepartmentName") Param = replace(DeptName, " ", "%20")%> <%=DeptName%>
<% RS.movenext loop dbclose %> Others: Negotiating

   Communications: #MG (Dynamix)

   Clan Tag: {MG}

    Problems with MG? Click here for help.