<% Option Explicit Dim sql, se, users, username, rs, SQLsats, rsUsers, by, rsRoot, ser, rsForums, SQLsats1 username = Request.Cookies("username") %> Firegamez Community - Statestik

  <% ser=request("ser") if ser="" then ser=username end if %>
Firegamez Community

Start<%if username <> "" then Response.Write("
Inbox") end if%>
Fire Forum
Chat <%if username <> "" then%>
Egen sida <%end if%> <%if username <> "" then Response.Write("
Klotterplank") end if%>
Statestik
<%if username <> "" then Response.Write("Logga ut") end if%>

Statestik
Antal medlemar: <%SQL = "SELECT Count(*) From users" Set rs = conn.Execute(SQL)%> <%=RS.Fields(0) %>

Trådar i forumen: <% SQL = "SELECT sum(topics) From forums " Set rs = conn.Execute(SQL)%> <%=RS.Fields(0) %>

Inlägg i forumen: <% SQL = "SELECT sum(posts) From forums " Set rs = conn.Execute(SQL)%> <%=RS.Fields(0) %>

Meddelanden: <%SQL = "SELECT Count(*) From messages" Set rs = conn.Execute(SQL)%> <%=RS.Fields(0) %>

Antal Gb inlägg: <%SQL = "SELECT Count(*) From gb" Set rs = conn.Execute(SQL)%> <%=RS.Fields(0) %>

Antal Db inlägg: <%SQL = "SELECT Count(*) From dagbok" Set rs = conn.Execute(SQL)%> <%=RS.Fields(0) %>

De 10 som har skrivit mest i forumen <% se=request("se") if se="" then se=username end if %><% SQLsats = "SELECT TOP 10 * FROM users ORDER BY posts DESC, username" Set Rs = Conn.Execute(SQLsats) Do Until Rs.EOF Response.Write "" Response.Write "" Response.Write "" Response.Write "" Rs.MoveNext Loop %>

Användare

Inlägg
"& Rs("username") & "" & Rs("posts") & "
 		5 nyaste medlemarna <% SQLsats = "SELECT TOP 5 * FROM users ORDER BY blevmedlem DESC, username" Set Rs = Conn.Execute(SQLsats) Do Until Rs.EOF Response.Write "" Response.Write "" Response.Write "" Response.Write "" Rs.MoveNext Loop Rs.Close Conn.Close Set RS = nothing Set Conn = nothing %>
Användare

Blev medlem
" & Rs("username") & "" & Rs("blevmedlem") & "