<%
'###############################################################################
'## Snitz Forums 2000 v3.4.06
'###############################################################################
'## Copyright (C) 2000-06 Michael Anderson, Pierre Gorissen,
'## Huw Reddick and Richard Kinser
'##
'## 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 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, MA02111-1307, USA.
'##
'## Support can be obtained from our support forums at:
'## http://forum.snitz.com
'##
'## Correspondence and Marketing Questions can be sent to:
'## manderson@snitz.com
'##
'###############################################################################
'################################################################################
'##
'## Email All Users MOD 3.4b
'## By Kevin Whipp (http://the-nut.com)
'##
'################################################################################
%>
<%
if Session(strCookieURL & "Approval") <> "15916941253" then
scriptname = split(request.servervariables("SCRIPT_NAME"),"/")
Response.Redirect "admin_login.asp?target=" & scriptname(ubound(scriptname))
end if
if lcase(strEmail) <> "1" then
Response.Write " You do not have E-mail enabled.
" & vbNewLine
WriteFooterShort
Response.End
end if
if Request.Form("Method_Type") = "Send_EMail" then
Err_Msg = ""
txtSubject = trim(Request.Form("Subject"))
txtMessage = trim(Request.Form("Message"))
if txtSubject = "" then
Err_Msg = Err_Msg & "You Must enter a Subject."
end if
if txtMessage = "" then
Err_Msg = Err_Msg & "You Must enter a Message."
end if
if Err_Msg = "" then
strSql = "SELECT M_NAME, M_EMAIL, M_LEVEL "
strSql = strSql & " FROM " & strMemberTablePrefix & "MEMBERS"
strSql = strSql & " WHERE M_STATUS = " & 1
if Request.Form("optin") = 1 then
strSql = strSql & " AND M_RECEIVE_EMAIL = " & 1
end if
Select Case Request.Form("limitmods")
Case 1
strSql = strSql & " AND M_LEVEL = " & 2
Case 2
strSql = strSql & " AND M_LEVEL = " & 3
Case 3
strSql = strSql & " AND M_LEVEL >= " & 2
End Select
if Request.Form("strInitial") = 1 then
Initial = split("A|B|C|D|E|F","|")
strSql = strSql & " AND (M_NAME LIKE '" & Initial(0) & "%'"
for icnt = 1 to ubound(Initial)
strSql = strSql & " OR M_NAME LIKE '" & Initial(icnt) & "%'"
next
strSql = strSql & ")"
elseif Request.Form("strInitial") = 2 then
Initial = split("G|H|I|J|K|L|M","|")
strSql = strSql & " AND (M_NAME LIKE '" & Initial(0) & "%'"
for icnt = 1 to ubound(Initial)
strSql = strSql & " OR M_NAME LIKE '" & Initial(icnt) & "%'"
next
strSql = strSql & ")"
elseif Request.Form("strInitial") = 3 then
Initial = split("N|O|P|Q|R|S","|")
strSql = strSql & " AND (M_NAME LIKE '" & Initial(0) & "%'"
for icnt = 1 to ubound(Initial)
strSql = strSql & " OR M_NAME LIKE '" & Initial(icnt) & "%'"
next
strSql = strSql & ")"
elseif Request.Form("strInitial") = 4 then
Initial = split("T|U|V|W|X|Y|Z","|")
strSql = strSql & " AND (M_NAME LIKE '" & Initial(0) & "%'"
for icnt = 1 to ubound(Initial)
strSql = strSql & " OR M_NAME LIKE '" & Initial(icnt) & "%'"
next
strSql = strSql & ")"
end if
set rsMail = Server.CreateObject("ADODB.Recordset")
rsMail.Open strSql, my_Conn, 0, 1, &H0001
if rsMail.EOF then
recMemberCount = ""
else
allMemberData = rsMail.GetRows(-1)
recMemberCount = UBound(allMemberData, 2)
end if
rsMail.Close
set rsMail = Nothing
server.scriptTimeout = 10000
if recMemberCount <> "" then
mM_NAME = 0
mM_EMAIL = 1
mM_LEVEL = 2
Response.Write " Sending E-Mail
" & vbNewLine
for RowCount = 0 to recMemberCount
Member_Name = allMemberData(mM_NAME,RowCount)
Member_EMail = allMemberData(mM_EMAIL,RowCount)
Member_Level = allMemberData(mM_LEVEL,RowCount)
strRecipientsName = Member_Name
strRecipients = Member_EMail
strFromName = strForumTitle
strFrom = strSender
strSubject = txtSubject
if Request.Form("emailfooter") = 1 then
strMessage = txtMessage & vbNewLine & vbNewLine
strMessage = strMessage & "----------" & vbNewLine
strMessage = strMessage & "You received this message from " & strForumTitle & " because you are "
Select Case Member_Level
Case 1
strMessage = strMessage & "a member "
Case 2
strMessage = strMessage & "a moderator "
Case 3
strMessage = strMessage & "an administrator "
End Select
strMessage = strMessage & "of the forums." & vbNewLine
strMessage = strMessage & "Your username is: " & Member_Name & vbNewLine
strMessage = strMessage & "The forums are located at " & strForumURL & "."
Else
strMessage = txtMessage
End If
%>
<%
next
If recMemberCount = 0 Then
Response.Write " Sent " & (recMemberCount + 1) & " E-Mail
" & vbNewLine
Else
Response.Write " Sent " & (recMemberCount + 1) & " E-Mails
" & vbNewLine
End If
else
Response.Write " No Members found
" & vbNewLine
end if
else
Response.Write " There Was A Problem With Your E-mail
" & vbNewLine & _
" " & vbNewLine & _
" " & vbNewLine & _
" | " & vbNewLine & _
"
" & vbNewLine & _
"
" & vbNewLine & _
" Go Back To Enter Data
" & vbNewLine
end if
else
Response.Write " " & vbNewLine
end if
%>