<% '*********************************************************************** '** 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 '*********************************************************************** '** This Page Contains source code of Snitz Forums 2000 '*********************************************************************** '################################################################################# '## 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 '################################################################################# %><% server.scripttimeout = 6000 %> <%If Session(strCookieURL & "Approval") = "256697926329" and instr(strWebMaster,lcase(strAdmin1UserName)&",") <> 0 and not lcase(strAdmin1UserName) = "" and not lcase(strAdmin1UserName) = " " Then %> <% PageName = request.form("pagename") if PageName = "" then My_Sort = request.form("sortme") My_Order = request.form("order") My_Order2 = request.form("order2") if My_Sort = "" then Sort_Name = "All Users" elseif My_Sort = "1" then Sort_Name = "General Users Only" elseif My_Sort = "2" then Sort_Name = "Moderators Only" elseif My_Sort = "3" then Sort_Name = "Administrators Only" elseif My_Sort = "4" then Sort_Name = "Inactive - 6mo" My_Last = DateToStr(DateAdd("m", -6, now())) elseif My_Sort = "5" then Sort_Name = "Inactive - 1yr" My_Last = DateToStr(DateAdd("yyyy", -1, now())) elseif My_Sort = "6" then Sort_Name = "Never Posted" elseif My_Sort = "7" then Sort_Name = "Refuse Email" end if if My_Order = "" then Order_Name = "Username" elseif My_Order ="2" then Order_Name = "Ranking" elseif My_Order ="3" then Order_Name = "Posts" elseif My_Order ="4" then Order_Name = "Start Date" end if if My_Order2 = "" then Order_By = "Desc" elseif My_Order2 = "1" then Order_By = "Asc" end if If Request.form("reccount") = "" Then PageSize = 10 Else PageSize = Request.form("reccount") End If If PageSize = 1000000 then PageSize2 = "All" Else PageSize2 = PageSize End If If Request.form("pageno") = "" Then intPage = 1 Else intPage = Request.form("pageno") End If %> <% strSql = "SELECT * FROM " &strMemberTablePrefix & "MEMBERS " strSql = strSql & " WHERE " & strMemberTablePrefix & "MEMBERS.M_STATUS = " & 1 strSql = strSql & " AND " & strMemberTablePrefix & "MEMBERS.M_EMAIL <> " & "''" if My_Sort > "" then if My_Sort = "1" then strSql = strSql & " AND " & strMemberTablePrefix & "MEMBERS.M_LEVEL = " & 1 elseif My_Sort = "2" then strSql = strSql & " AND " & strMemberTablePrefix & "MEMBERS.M_LEVEL = " & 2 elseif My_Sort = "3" then strSql = strSql & " AND " & strMemberTablePrefix & "MEMBERS.M_LEVEL = " & 3 elseif My_Sort = "6" then strSql = strSql & " AND " & strMemberTablePrefix & "MEMBERS.M_POSTS = " & 0 elseif My_Sort = "7" then '--------------------------------------------------------------- strSql = strSql & " AND " & strMemberTablePrefix & "MEMBERS.M_RECMAIL = " & 1 elseif My_Sort = "4" or "5" then strSql = strSql & " AND " & strMemberTablePrefix & "MEMBERS.M_LASTPOSTDATE < '" & My_Last & "'" end if end if if My_Order = "2" then strSql = strSql & " ORDER BY " & strMemberTablePrefix & "MEMBERS.M_LEVEL " & Order_By elseif My_Order = "3" then strSql = strSql & " ORDER BY " & strMemberTablePrefix & "MEMBERS.M_POSTS " & Order_By elseif My_Order = "4" then strSql = strSql & " ORDER BY " & strMemberTablePrefix & "MEMBERS.M_DATE " & Order_By else strSql = strSql & " ORDER BY " & strMemberTablePrefix & "MEMBERS.M_NAME " & Order_By end if set rs = Server.CreateObject("ADODB.Recordset") rs.CursorLocation = 3 'adUseClient rs.CursorType = 3 'adOpenStatic rs.ActiveConnection = My_Conn rs.open strSql rs.PageSize = PageSize rs.CacheSize = rs.PageSize intPageCount = rs.PageCount intRecordCount = rs.RecordCount If CInt(intPage) > CInt(intPageCount) Then intPage = intPageCount If CInt(intPage) <= 0 Then intPage = 1 If intRecordCount > 0 Then rs.AbsolutePage = intPage intStart = rs.AbsolutePosition If CInt(intPage) = CInt(intPageCount) Then intFinish = intRecordCount Else intFinish = intStart + (rs.PageSize - 1) End if End If '--------------------/paging %>

Home

Admin Section

User Email List

Select user group:	Order by:	Ordering:
There are a total of <%=intRecordCount%> records in this group.	View page:	Per page:

Select Message: <% '------------------------------------ strSql = "SELECT * FROM " &strMemberTablePrefix & "SPAM WHERE ARCHIVE = '0'" set rsSP = Server.CreateObject("ADODB.Recordset") rsSP.open strSql, my_Conn, 3 %> <% if rsSP.EOF or rsSP.BOF then %> Create New Message <% else %> <% end if set rsSP = nothing %> or Manage Messages >

<% if rs.EOF or rs.BOF then %> <% else %> <% '-------------------------paging For intRecord = 1 to rs.PageSize MyRank = rs("M_LEVEL") if MyRank = 1 then MyRank = "General User" elseif MyRank = 2 then MyRank = "Moderator" elseif MyRank = 3 then MyRank = "Administrator" end if %> <% rs.MoveNext If rs.EOF Then Exit for Next %> <% end if %>

Mail	User Name	Email Address	Posts	Ranking	Registered
No Members Found
<% '--------Does user want spam? if rs("M_RECMAIL") = "1" then %> X <% else %> ">"> <% end if %>	"><% =rs("M_NAME") %>	"><% =rs("M_EMAIL") %>	<% =rs("M_POSTS") %>	<% =MyRank %>	<% =ChkDate(rs("M_DATE"))%>	&name=<% =rs("M_NAME") %>"> ')">

<% elseif pagename="send" then %> <% My_ID = request.form("id") Mail_All = request.form("Mail_All") if My_ID = "*" then THISESCUELL = "select * from " & strMemberTablePrefix & "MEMBERS where MEMBER_ID in (" & Mail_All & ")" THISESCUELL = THISESCUELL & " AND " & strMemberTablePrefix & "MEMBERS.M_STATUS = " & 1 THISESCUELL = THISESCUELL & " AND " & strMemberTablePrefix & "MEMBERS.M_EMAIL <> " & "''" else THISESCUELL = "select * from " & strMemberTablePrefix & "MEMBERS where MEMBER_ID in (" & My_ID & ")" THISESCUELL = THISESCUELL & " AND " & strMemberTablePrefix & "MEMBERS.M_STATUS = " & 1 THISESCUELL = THISESCUELL & " AND " & strMemberTablePrefix & "MEMBERS.M_EMAIL <> " & "''" end if strSQL= THISESCUELL set RS=Server.CreateObject("ADODB.Recordset") RS.Open strSQL, my_Conn, 1, 3 rs.MoveFirst while not rs.EOF strRecipientsName = RS.Fields("M_NAME") strRecipients = RS.Fields("M_email") strFrom = strSender strSubject = request.form("SUBJECT") strMessage = request.form("MESSAGE") strArchive = request.form("ARCHIVE") strL_DATE = DateToStr(now()) %> <% rs.MoveNext wend %>

Message Sent

The message was sent to the selected recipients. Click here to continue.

<% if request.form("save") <> "" then strSubject = replace(request.form("SUBJECT"),"'","''") strMessage = replace(request.form("MESSAGE"),"'","''") set conn = server.createobject ("adodb.connection") conn.open My_Conn conn.Execute "insert into " & strTablePrefix & "SPAM (SUBJECT, MESSAGE, F_SENT, ARCHIVE) values (" _ & "'" & strSubject & "', " _ & "'" & strMessage & "', " _ & "'" & strL_DATE & "', " _ & "'" & request.form("ARCHIVE") & "')" end if %> <% '---------end sending elseif pagename="compose" then '-------------Start composing %> <% myMSG = Request.Form("MSG") function getFormObject () if Request.ServerVariables("REQUEST_METHOD") = "GET" then set getFormObject=Request.QueryString else set getFormObject=Request.Form end if end function %> <% set oFormVars=GetFormObject() if inStr(ucase(oFormVars("Action")),"SELECTED") > 0 then selected=true if oFormVars("ID") = "" then %>

No Recipients Selected

<% response.end end if strSQL="select * from " & strMemberTablePrefix & "Members where MEMBER_ID in (" & request.form("id") & ")" strSql = strSql & " AND " & strMemberTablePrefix & "MEMBERS.M_STATUS = " & 1 strSql = strSql & " AND " & strMemberTablePrefix & "MEMBERS.M_EMAIL <> " & "''" else selected=false strSQL="select * from " & strMemberTablePrefix & "Members where MEMBER_ID in (" & request.form("Mail_All") & ")" strSql = strSql & " AND " & strMemberTablePrefix & "MEMBERS.M_STATUS = " & 1 strSql = strSql & " AND " & strMemberTablePrefix & "MEMBERS.M_EMAIL <> " & "''" end if set RS=Server.CreateObject("ADODB.Recordset") RS.Open strSQL, My_Conn, 1, 2 if myMSG <> "" then strSql2 = "SELECT * FROM " & strTablePrefix & "SPAM WHERE ID =" & myMSG set rsSP = Server.CreateObject("ADODB.Recordset") rsSP.open strSql2, My_Conn, 3 mySUBJECT = Server.HTMLEncode(rsSP("SUBJECT")) myMESSAGE = rsSP("MESSAGE") else end if Mail_All = request.form("Mail_All") %>

Send Message

Subject:
Message:
<%= myMESSAGE %>

Save this message? <% if selected then %>

This message will be sent to the following clients:

<% On Error Resume Next RS.MoveFirst do while Not RS.eof %> <% RS.MoveNext loop%>

>Username	>Email Address
">"><% =rs("M_NAME") %>	<% =rs("M_EMAIL") %>

<% else %>

This message will be sent all users.

<% end if %> <% else %>

Unknown Action

You have specified an unknown action. Please try again.

<% response.end end if %><% set rsSP = nothing set rs = nothing %><% else %> <%Response.Redirect "admin_login.asp" %> <% end iF %>