<% 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") Conn.Close %> The Ministry: 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: 24.06.00
 
 
Clan Statistics
Total Members: <%=countMembers%>
Applicants: <% SQL = "sp_getApplicants" dbstart set RS = cmd.execute do while not RS.EOF 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

   Chat Rooms: #TM (Dynamix)
TM Vox Comm

   Clan Tag: [TM]

    Problems with TM? Click here for help.