<%
blnInsecurePage = true
If Not Request.QueryString("random") = "" Then
strSQL = "SELECT DISTINCT handle FROM ba97_sectors_archive ORDER BY RAND() LIMIT 0,1"
adoRS.Open strSQL
Do While Not adoRS.EOF
Response.Redirect("/stats.asp?handle=" & adoRS.fields("handle").value)
Loop
adoRS.Close
End If
strFilter = Left(Request.QueryString("filter"),4)
If strFilter = "" Then
strFilter = Left(Request.QueryString("year"),4)
End If
%>
<%
If Not strUser = "" And Request.QueryString("handle") = "false" Then
blnLoggedIn = true
blnChooseOther = true
ElseIf Not strUser = "" Then
blnLoggedIn = true
blnChooseOther = false
ElseIf Not Request.QueryString("handle") = "" Then
blnLoggedIn = false
blnChooseOther = false
Else
blnLoggedIn = false
blnChooseOther = true
End If
%>
<% If blnChooseOther Then %>
BA97 Calendar | Others' Stats
<% ElseIf blnLoggedIn = true And Request.QueryString("handle") = "" Then %>
BA97 Calendar | My Stats
<% Else %>
BA97 Calendar | Stats for <%= Request.QueryString("handle") %>
<% End If %>
<% If blnChooseOther = false Then %>
<% If Not Request.ServerVariables("SERVER_NAME") = "localhost" Then %>
<%
End If
Else
%>
<% If Not Request.ServerVariables("SERVER_NAME") = "localhost" Then %>
<% End If %>
<% End If %>
<% If blnChooseOther Then %>
<%
strSQL = "SELECT handle FROM ba97_users ORDER BY handle DESC"
adoRS.Open strSQL
Do While Not adoRS.EOF
strSearch = strSearch & "'" & LCase(adoRS.fields("handle").value) & "',"
adoRS.MoveNext
Loop
strSearch = Left(strSearch,Len(strSearch)-1)
adoRS.Close
%>
Whose stats do you want to view?
<% Else %>
<% If Not Request.QueryString("handle") = "" Then %>
<% Else %>
<% End If %>
<%
If Not Request.QueryString("handle") = "" Then
strUser = Left(Request.QueryString("handle"),32)
End If
strPermalink = "http://" & Request.ServerVariables("HTTP_HOST") _
& Request.ServerVariables("SCRIPT_NAME") & "?handle=" & strUser
If Not Request.QueryString("chart") = "" Then
strPermalink = strPermalink & "&chart=" & Left(Request.QueryString("chart"),32)
End If
If Not strFilter = "" Then
strPermalink = strPermalink & "&year=" & Left(strFilter,4)
End If
%>
<% If Not Request.QueryString("handle") = "" Then %>
<%
strURL = "/report.asp?handle=" & Request.QueryString("handle")
If Not strFilter = "" Then
strURL = strURL & "&year=" & strFilter
End If
%>
<%= Request.QueryString("handle") %> (see diary)
<% Else %>
<% End If %>
<%
blnChosen = false
For intCount = 0 To UBound(arrCharts)-1
strDiv = "" & vbcrlf
Next
%>
