<%
'Copyright (C) 2004-2007 Canol Gökel
'
'This program is free software; you can redistribute it and/or
'modify it under the terms of the GNU General Public License
'as published by the Free Software Foundation; either version 2
'of the License, or (at your option) any later version.
'
'All copyright notices regarding iyzi Forum must remain intact in
'the scripts and in the outputted HTML.
'
'The "iyzi Forum" text with a link back to http://www.iyziforum.com
'in the footer of the pages MUST remain visible when the pages
'are viewed on the internet or intranet.
'
'This program is distributed in the hope that it will be useful,
'but WITHOUT ANY WARRANTY; without even the implied warranty of
'MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
'GNU General Public License for more details.
'
'You should have received a copy of the GNU General Public License
'along with this program; if not, write to the Free Software
'Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
'
'Support can be obtained from my web site at:
'http://www.iyziforum.com
'
'E-Mail: canol@canol.info
Response.Expires = 60
Response.Expiresabsolute = Now() - 1
Response.AddHeader "pragma","no-cache"
Response.AddHeader "cache-control","private"
Response.CacheControl = "no-cache"
%>
<%
Action = Request.QueryString("Action")
If InStr(SettingsAdmins, "-" & Session(SettingsCookieName & "AdminMemberID") & "-") <> 0 Then
Call Menu
ElseIf Action = "Control" Then
Call Control
Else
Call EnterPassword
End If
%>
<%
Connection.Close
Set Connection = Nothing
Sub EnterPassword
%>
<%
End Sub
Sub Control
MemberName = Request.Form("MemberName")
Password = Request.Form("Password")
If MemberName = "" Then
Response.Write "