<%
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("/map.asp?handle=" & adoRS.fields("handle").value)
Loop
adoRS.Close
End If
%>
<%
blnLoggedIn = false
If Not strUser = "" Then
blnLoggedIn = true
End If
blnChooseOther = true
If Request.QueryString("handle") = "" And blnLoggedIn = true Then
blnChooseOther = false
ElseIf Request.QueryString("handle") = "" And blnLoggedIn = false Then
blnChooseOther = true
ElseIf Request.QueryString("handle") = "false" Then
blnChooseOther = true
Else
blnChooseOther = false
End If
%>
<% If blnChooseOther Then %>
BA97 Calendar | Others' Maps
<% ElseIf blnLoggedIn = true And Request.QueryString("handle") = "" Then %>
BA97 Calendar | My Map
<% Else %>
BA97 Calendar | Map for <%= Request.QueryString("handle") %>
<% End If %>
<% If Not Request.QueryString("handle") = "" And Not Request.QueryString("handle") = "false" Then %>
<%
strPermalink = "http://" & Request.ServerVariables("HTTP_HOST") _
& Request.ServerVariables("SCRIPT_NAME") & "?handle=" _
& Left(Request.QueryString("handle"),32)
If Not Request.QueryString("year") = "" Then
strYearFilter = "&start=" & Left(Request.QueryString("year"),4) _
& "&finish=" & Left(Request.QueryString("year"),4)
End If
%>
<% ElseIf blnLoggedIn = true And blnChooseOther = false Then %>
<%
strPermalink = "http://" & Request.ServerVariables("HTTP_HOST") _
& Request.ServerVariables("SCRIPT_NAME") & "?handle=" _
& strUser
If Not Request.QueryString("year") = "" Then
strYearFilter = "?start=" & Left(Request.QueryString("year"),4) _
& "&finish=" & Left(Request.QueryString("year"),4)
End If
%>
<% Else %>
<% If Not Request.ServerVariables("SERVER_NAME") = "localhost" Then %>
<% End If %>
<% End If %>
<% If blnChooseOther = True 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
%>
