<% '################################################################################# '## Copyright (C) 2000 Michael Anderson and Pierre Gorissen '## '## 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 Snitz Forums 2000 '## must remain intact in the scripts and in the outputted HTML '## The "powered by" text/logo with a link back to '## http://forum.snitz.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 support forums at: '## http://forum.snitz.com '## '## Correspondence and Marketing Questions can be sent to: '## reinhold@bigfoot.com '## '## or '## '## Snitz Communications '## C/O: Michael Anderson '## PO Box 200 '## Harpswell, ME 04079 '################################################################################# '## Part of the TASKS Mod by: Freeman II scfff2@hotmail.com ## '################################################################################# %> <% If Session(strCookieURL & "Approval") = "15916941253" Then %> <% if request.querystring("mode")= "add" then Tsubject = request.form("subject") Tsubject = chkstring(Tsubject,"SQLString") Tbody = request.form("body") Tbody = chkstring(Tbody,"SQLString") Tpriority = request.form("priority") Tpriority = Cint( Tpriority ) Tmpduedate = request.form("dueDate") Tassignedto = request.form("assignedto") Tassignedto = Cint(Tassignedto) if Tsubject = "" then %>

No subject.

<%elseif Tbody = "" then %>

No body.

">Back

<%elseif NOT IsDate(Tmpduedate) then %>

Invalid Date.

">Back

<%else Tduedate = DateToStr(request.form("dueDate")) '## Forum_SQL - Do DB Update strSql = "INSERT INTO " & strTablePrefix & "MOD_TASKS (" strSql = strSql & "SUBJECT" strSql = strSql & ", BODY" strSql = strSql & ", PRIORITY" strSql = strSql & ", COMPLETED" strSql = strSql & ", DUE_DATE" strSql = strSql & ", MEMBER_ID" strSql = strSql & ", SHOW" strSql = strSql & ") VALUES (" strSql = strSql & "'" & Tsubject & "'" strSql = strSql & ", '" & Tbody & "'" strSql = strSql & ", '" & Tpriority & "'" strSql = strSql & ", " & 0 strSql = strSql & ", '" & Tduedate & "'" strSql = strSql & ", '" & Tassignedto & "'" strSql = strSql & ", " & 1 strSql = strSql & ")" cSubject = "New Task" cMsg = "You have been assigned a new task, click " & strForumURL & "mod_tasks.asp to view" my_Conn.Execute (strSql) call SendPMToModerators(cSubject,cMsg , Tassignedto, -1, false) %>

Task Added
Back

<%end if%> <%end if%> <% if not request.querystring("mode")= "add" then%>

All Forums

Admin Section

Moderator Tasks

Add New Task

Subject:

Body:

Forum Code on

Priority	Due Date	Assigned to

Back

<% rs.Close set rs = nothing end if WriteFooter Else scriptname = split(request.servervariables("SCRIPT_NAME"),"/") Response.Redirect "admin_login.asp?target=" & scriptname(ubound(scriptname)) End IF %>