<% '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 %>
<%=LanGuideMainPage%> » <%=LanAdminPanel%> » <%=LanGuideAdminPanelLogin%>

<%=LanAdminLogin%>

<%=LanDetailMemberName%>:

<%=LanDetailPassword%>:

<%=LanGuideMainPage%> » <%=LanAdminPanel%> » <%=LanGuideAdminPanelLogin%>
<% End Sub Sub Control MemberName = Request.Form("MemberName") Password = Request.Form("Password") If MemberName = "" Then Response.Write "" Response.End End If If Password = "" Then Response.Write "" Response.End End If SQL="Select MemberID, Password From iyzi_" & AdditionalTableWord & "Members Where MemberName = '" & OrganizeData(MemberName, "DBText") & "'" Set Member = Connection.Execute(SQL) If Member.Eof Then Response.Write "" Response.End End If MemberMemberID = Member("MemberID") MemberPassword = Member("Password") Member.Close Set Member = Nothing If MemberPassword <> Sha256(Password) Then Response.Write "" Response.End End If If InStr(SettingsAdmins, "-" & MemberMemberID & "-") = 0 Then Response.Write "" Response.End End If Session(SettingsCookieName & "AdminMemberID") = MemberMemberID Call Menu End Sub Sub Menu %>
<%=LanGuideMainPage%> » <%=LanAdminPanel%>
<%=LanHeaderMenu%>
<%=LanGeneralSettings%>
<%=LanGeneralSettings%>
<%=LanSmilies%>
<%=LanSmilies%>
<%=LanEmailSettings%>
<%=LanEmailSettings%>
<%=LanCategories%>
<%=LanCategories%>
<%=LanSecuritySettings%>
<%=LanSecuritySettings%>
<%=LanGuideMainPage%> » <%=LanAdminPanel%>
<% End Sub %>