<% '*********************************************************************** '** Copyright (C) 2001 - 2004 Max Yuan All Rights Reserved '** '** By using this program, you are agreeing to the terms of the '** GNU General Public License. '** '** 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 any later version. '** '** All copyright notices regarding MaxWebPortal must remain intact '** in the scripts and in the outputted HTML. '** The "powered by" text/logo with a link back to '** http://www.maxwebportal.com in the footer of the pages MUST '** remain visible when the pages are viewed on the internet or intranet. '** '** Support can be obtained from support forums at: '** http://www.maxwebportal.com '** '** Email: maxwebportal@hotmail.com '** ICQ: 148111300 '*********************************************************************** %> <% If Session(strCookieURL & "Approval") = "256697926329" Then %>
 Home
 Admin Section
 Events Manager

<%if request.QueryString("mode") = "action" then fAction = request.form("formAction") eventId = request.form("eventID") if trim(eventId) = "" then%>

No Event selected

">

">Back

<%else if fAction = "approve" then strSQL = "UPDATE " & strTablePrefix & "EVENTS SET PENDING = 0 WHERE EVENT_ID IN (" & eventId & ")" my_Conn.Execute (strSql) eMessage = "The selected event(s) have been approved." elseif fAction = "delete" then strSQL = "DELETE FROM " &strTablePrefix & "EVENTS WHERE EVENT_ID IN (" & eventId & ")" my_Conn.Execute (strSql) eMessage = "The selected event(s) have been deleted." else eMessage = "Error" end if%>

<% =eMessage %>

">

">Back

<% end if else %> <% strSQL = "SELECT EVENT_ID, DATE_ADDED, START_DATE, END_DATE, EVENT_TITLE, EVENT_DETAILS, PRIVATE, PENDING, ADDED_BY FROM " &strTablePrefix & "EVENTS WHERE PENDING <> 0 ORDER BY EVENT_ID ASC" Set rs = Server.CreateObject("ADODB.RecordSet") rs.open strSql, my_conn if rs.EOF or rs.BOF then%> <%else%> <%end if%>
Events Manager

No new events to approve.
<% do while not rs.EOF Select Case rs("PENDING") Case "1" strStatus = "New" Case "2" strStatus = "Update" Case else strStatus = "Error" End Select %> <% rs.movenext loop %>
Select All Status Title Start Date End Date Added By
"> <% =strStatus %> <% =chkString(Rs("EVENT_TITLE"), "display")%> <% =strToDate(Rs("START_DATE")) %> <% =strToDate(Rs("END_DATE"))%> "><% =getMemberName(rs("ADDED_BY"))%>
<% =formatStr(rs("Event_Details")) %>
Approve Selected   Delete Selected
Back to Admin Home
<% rs.Close set rs = nothing end if %> <% Else %><% Response.Redirect "admin_login.asp" %><% End If %>