The Forum has been Updated
The code has been upgraded to the latest .NET core version. Please check instructions in the Community Announcements about migrating your account.
Rather than having to visit another page and do something to test email settings, I added a button and email test to this. See the bits in red.
Code:
<%
'#################################################################################
'## Snitz Forums 2000 v3.4.07
'#################################################################################
'## Copyright (C) 2000-09 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, MA 02111-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
'##
'#################################################################################
%>
<!--#INCLUDE FILE="config.asp"-->
<!--#INCLUDE FILE="inc_sha256.asp"-->
<!--#INCLUDE FILE="inc_header.asp" -->
<!--#INCLUDE FILE="inc_func_admin.asp" -->
<!--#INCLUDE FILE="inc_func_member.asp" -->
<%
if Session(strCookieURL & "Approval") <> "15916941253" then
scriptname = split(request.servervariables("SCRIPT_NAME"),"/")
Response.Redirect "admin_login.asp?target=" & scriptname(ubound(scriptname))
end if
Response.Write " <table border=""0"" width=""100%"" align=""center"">" & vbNewLine & _
" <tr>" & vbNewLine & _
" <td width=""33%"" align=""left"" nowrap><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>" & vbNewLine & _
" " & getCurrentIcon(strIconFolderOpen,"","") & " <a href=""default.asp"">All Forums</a><br />" & vbNewLine & _
" " & getCurrentIcon(strIconBar,"","") & getCurrentIcon(strIconFolderOpen,"","") & " <a href=""admin_home.asp"">Admin Section</a><br />" & vbNewLine & _
" " & getCurrentIcon(strIconBlank,"","") & getCurrentIcon(strIconBar,"","") & getCurrentIcon(strIconFolderOpenTopic,"","") & " E-mail Server Configuration<br /></font></td>" & vbNewLine & _
" </tr>" & vbNewLine & _
" </table>" & vbNewLine
' ## Test Mail Below
If Request.Form("TestEMail") = "DoIt" and mLev > 3 Then
strRecipientsName = strDBNTUserName
strRecipients = strSender
strFrom = strSender
strFromName = strForumTitle
strsubject = strForumTitle & " EMail Configuration Test "
strMessage = "Hello " & strDBNTUserName & vbNewLine & vbNewLine
If Request.ServerVariables("HTTPS") = "on" Then
strHost="https://"
Else
strHost="http://"
End If
strMessage = strMessage & "Congratulations, the EMail server settings for " & strForumTitle & ", located at " & strForumURL & "admin_config_email.asp are properly configured." & vbNewLine & vbNewLine
%>
<!--#INCLUDE FILE="inc_mail.asp" -->
<%
End If
' ## Test Mail Above
if Request.Form("Method_Type") = "Write_Configuration" then
Err_Msg = ""
if Request.Form("strMailServer") = "" and Request.Form("strMailMode") <> "cdonts" and Request.Form("strEmail") = "1" then
Err_Msg = Err_Msg & "<li>You Must Enter the Address of your Mail Server</li>"
end if
if ((lcase(left(Request.Form("strMailServer"), 7)) = "http://") or (lcase(left(Request.Form("strMailServer"), 8)) = "https://")) and Request.Form("strEmail") = "1" then
Err_Msg = Err_Msg & "<li>Do not prefix the Mail Server Address with <b>http://</b>, <b>https://</b> or <b>file://</b></li>"
end if
if Request.Form("strSender") = "" then
Err_Msg = Err_Msg & "<li>You Must Enter the E-mail Address of the Forum Administrator</li>"
else
if EmailField(Request.Form("strSender")) = 0 and Request.Form("strSender") <> "" then
Err_Msg = Err_Msg & "<li>You Must enter a valid E-mail Address for the Forum Administrator</li>"
end if
end if
if Request.Form("strRestrictReg") = 1 and Request.Form("strEmailVal") = 0 then
Err_Msg = Err_Msg & "<li>Email Validation must be enabled in order to enable the Restrict Registration Option</li>"
end if
if not IsNumeric(Request.Form("intMaxPostsToEMail")) then
Err_Msg = Err_Msg & "<li>Number of posts to allow sending e-mail must be a number</li>"
end if
if Err_Msg = "" then
'## Forum_SQL
for each key in Request.Form
if left(key,3) = "str" or left(key,3) = "int" then
strDummy = SetConfigValue(1, key, ChkString(Request.Form(key),"SQLString"))
end if
next
Application(strCookieURL & "ConfigLoaded") = ""
' ## Test Mail Below
If Request.Form("TestMail") <> "Test EMail Config" Then
Response.Write " <p align=""center""><font face=""" & strDefaultFontFace & """ size=""" & strHeaderFontSize & """>Configuration Posted!</font></p>" & vbNewLine
Else
Response.Write " <p align=""center""><font face=""" & strDefaultFontFace & """ size=""" & strHeaderFontSize & """>Mail Sent!</font></p>" & vbNewLine
End If
Response.Write " <meta http-equiv=""Refresh"" content=""2; URL=admin_config_email.asp"">" & vbNewLine & _
" <p align=""center""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><a href=""admin_home.asp"">Return to Admin Home</font></a></p>" & vbNewLine
' ## Test Mail Above
else
Response.Write " <p align=""center""><font face=""" & strDefaultFontFace & """ size=""" & strHeaderFontSize & """ color=""" & strHiLiteFontColor & """>There Was A Problem With Your Details</font></p>" & vbNewLine & _
" <table align=""center"" border=""0"">" & vbNewLine & _
" <tr>" & vbNewLine & _
" <td><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strHiLiteFontColor & """><ul>" & Err_Msg & "</ul></font></td>" & vbNewLine & _
" </tr>" & vbNewLine & _
" </table>" & vbNewLine & _
" <p align=""center""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><a href=""JavaScript:history.go(-1)"">Go Back To Enter Data</a></font></p>" & vbNewLine
end if
else
Dim theComponent(20)
Dim theComponentName(20)
Dim theComponentValue(20)
'## the components
theComponent(0) = "ABMailer.Mailman"
theComponent(1) = "Persits.MailSender"
theComponent(2) = "SMTPsvg.Mailer"
theComponent(3) = "SMTPsvg.Mailer"
theComponent(4) = "CDONTS.NewMail"
theComponent(5) = "CDONTS.NewMail"
theComponent(6) = "CDO.Message"
theComponent(7) = "dkQmail.Qmail"
theComponent(8) = "Dundas.Mailer"
theComponent(9) = "Dundas.Mailer"
theComponent(10) = "Innoveda.MailSender"
theComponent(11) = "Geocel.Mailer"
theComponent(12) = "iismail.iismail.1"
theComponent(13) = "Jmail.smtpmail"
theComponent(14) = "Jmail.Message"
theComponent(15) = "MDUserCom.MDUser"
theComponent(16) = "ASPMail.ASPMailCtrl.1"
theComponent(17) = "ocxQmail.ocxQmailCtrl.1"
theComponent(18) = "SoftArtisans.SMTPMail"
theComponent(19) = "SmtpMail.SmtpMail.1"
theComponent(20) = "VSEmail.SMTPSendMail"
'## the name of the components
theComponentName(0) = "ABMailer v2.2+"
theComponentName(1) = "ASPEMail"
theComponentName(2) = "ASPMail"
theComponentName(3) = "ASPQMail"
theComponentName(4) = "CDONTS (IIS 3/4/5)"
theComponentName(5) = "Chili!Mail (Chili!Soft ASP)"
theComponentName(6) = "CDOSYS (IIS 5/5.1/6)"
theComponentName(7) = "dkQMail"
theComponentName(8) = "Dundas Mail (QuickSend)"
theComponentName(9) = "Dundas Mail (SendMail)"
theComponentName(10) = "FreeMailSender"
theComponentName(11) = "GeoCel"
theComponentName(12) = "IISMail"
theComponentName(13) = "JMail 3.x"
theComponentName(14) = "JMail 4.x"
theComponentName(15) = "MDaemon"
theComponentName(16) = "OCXMail"
theComponentName(17) = "OCXQMail"
theComponentName(18) = "SA-Smtp Mail"
theComponentName(19) = "SMTP"
theComponentName(20) = "VSEmail"
'## the value of the components
theComponentValue(0) = "abmailer"
theComponentValue(1) = "aspemail"
theComponentValue(2) = "aspmail"
theComponentValue(3) = "aspqmail"
theComponentValue(4) = "cdonts"
theComponentValue(5) = "chilicdonts"
theComponentValue(6) = "cdosys"
theComponentValue(7) = "dkqmail"
theComponentValue(8) = "dundasmailq"
theComponentValue(9) = "dundasmails"
theComponentValue(10) = "freemailsender"
theComponentValue(11) = "geocel"
theComponentValue(12) = "iismail"
theComponentValue(13) = "jmail"
theComponentValue(14) = "jmail4"
theComponentValue(15) = "mdaemon"
theComponentValue(16) = "ocxmail"
theComponentValue(17) = "ocxqmail"
theComponentValue(18) = "sasmtpmail"
theComponentValue(19) = "smtp"
theComponentValue(20) = "vsemail"
Response.Write " <form action=""admin_config_email.asp"" method=""post"" id=""Form1"" name=""Form1"">" & vbNewLine & _
" <input type=""hidden"" name=""Method_Type"" value=""Write_Configuration"">" & vbNewLine & _
" <table border=""0"" cellspacing=""0"" cellpadding=""0"" align=""center"">" & vbNewLine & _
" <tr>" & vbNewLine & _
" <td bgcolor=""" & strPopUpBorderColor & """>" & vbNewLine & _
" <table border=""0"" cellspacing=""1"" cellpadding=""1"">" & vbNewLine & _
" <tr valign=""top"">" & vbNewLine & _
" <td bgcolor=""" & strHeadCellColor & """ colspan=""2""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strHeadFontColor & """><b>E-mail Server Configuration</b></font></td>" & vbNewLine & _
" </tr>" & vbNewLine & _
" <tr valign=""top"">" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """ align=""right""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><b>Select E-mail Component:</b> </font></td>" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>" & vbNewLine & _
" <select name=""strMailMode"">" & vbNewLine
dim i, j
j = 0
for i=0 to UBound(theComponent)
if IsObjInstalled(theComponent(i)) then
Response.Write " <option value=""" & theComponentValue(i) & """" & chkSelect(strMailMode,theComponentValue(i)) & ">" & theComponentName(i) & "</option>" & vbNewline
else
j = j + 1
end if
next
if j > UBound(theComponent) then
Response.Write " <option value=""None"">No Compatible Component Found</option>" & vbNewline
end if
Response.Write " </select>" & vbNewLine & _
" <a href=""JavaScript:openWindow3('pop_config_help.asp?mode=email#email')"">" & getCurrentIcon(strIconSmileQuestion,"","") & "</a></font></td>" & vbNewLine & _
" </tr>" & vbNewLine & _
" <tr valign=""top"">" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """ align=""right""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><b>E-mail Mode:</b> </font></td>" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>" & vbNewLine & _
" On: <input type=""radio"" class=""radio"" name=""strEmail"" value=""1"""
if j > UBound(theComponent) then Response.Write(" disabled") else if lcase(strEmail) <> "0" then Response.Write(" checked")
Response.Write "> " & vbNewLine & _
" Off: <input type=""radio"" class=""radio"" name=""strEmail"" value=""0"""
if j > UBound(theComponent) then Response.Write(" checked") else if lcase(strEmail) = "0" then Response.Write(" checked")
Response.Write ">" & vbNewLine & _
" <a href=""JavaScript:openWindow3('pop_config_help.asp?mode=email#email')"">" & getCurrentIcon(strIconSmileQuestion,"","") & "</a></font></td>" & vbNewLine & _
" </tr>" & vbNewLine & _
" <tr valign=""top"">" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """ align=""right""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><b>E-mail Server Address:</b> </font></td>" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """>" & vbNewLine & _
" <input type=""text"" name=""strMailServer"" size=""40"" value=""" & strMailServer & """>" & vbNewLine & _
" <a href=""JavaScript:openWindow3('pop_config_help.asp?mode=email#mailserver')"">" & getCurrentIcon(strIconSmileQuestion,"","") & "</a></td>" & vbNewLine & _
" </tr>" & vbNewLine & _
" <tr valign=""top"">" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """ align=""right""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><b>Administrator E-mail Address:</b> </font></td>" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """>" & vbNewLine & _
" <input type=""text"" name=""strSender"" size=""40"" value=""" & strSender & """>" & vbNewLine & _
" <a href=""JavaScript:openWindow3('pop_config_help.asp?mode=email#sender')"">" & getCurrentIcon(strIconSmileQuestion,"","") & "</a></td>" & vbNewLine & _
" </tr>" & vbNewLine & _
" <tr valign=""top"">" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """ align=""right""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><b>Require Unique E-mail:</b> </font></td>" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>" & vbNewLine & _
" On: <input type=""radio"" class=""radio"" name=""strUniqueEmail"" value=""1""" & chkRadio(strUniqueEmail,1,true) & "> " & vbNewLine & _
" Off: <input type=""radio"" class=""radio"" name=""strUniqueEmail"" value=""0""" & chkRadio(strUniqueEmail,1,false) & ">" & vbNewLine & _
" <a href=""JavaScript:openWindow3('pop_config_help.asp?mode=email#UniqueEmail')"">" & getCurrentIcon(strIconSmileQuestion,"","") & "</a></font></td>" & vbNewLine & _
" </tr>" & vbNewLine & _
" <tr valign=""top"">" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """ align=""right""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><b>E-mail Validation:</b> </font></td>" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>" & vbNewLine & _
" On: <input type=""radio"" class=""radio"" name=""strEmailVal"" value=""1""" & chkRadio(strEmailVal,1,true) & "> " & vbNewLine & _
" Off: <input type=""radio"" class=""radio"" name=""strEmailVal"" value=""0""" & chkRadio(strEmailVal,1,false) & ">" & vbNewLine & _
" <a href=""JavaScript:openWindow3('pop_config_help.asp?mode=email#EmailVal')"">" & getCurrentIcon(strIconSmileQuestion,"","") & "</a></font></td>" & vbNewLine & _
" </tr>" & vbNewLine & _
" <tr valign=""top"">" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """ align=""right""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><b>Filter known spam domains:</b> </font></td>" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>" & vbNewLine & _
" On: <input type=""radio"" class=""radio"" name=""strFilterEMailAddresses"" value=""1""" & chkRadio(strFilterEMailAddresses,1,true) & "> " & vbNewLine & _
" Off: <input type=""radio"" class=""radio"" name=""strFilterEMailAddresses"" value=""0""" & chkRadio(strFilterEMailAddresses,1,false) & ">" & vbNewLine & _
" <a href=""JavaScript:openWindow3('pop_config_help.asp?mode=email#EmailFilter')"">" & getCurrentIcon(strIconSmileQuestion,"","") & "</a></font></td>" & vbNewLine & _
" </tr>" & vbNewLine & _
" <tr valign=""top"">" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """ align=""right""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><b>Restrict Registration:</b> </font></td>" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>" & vbNewLine & _
" On: <input type=""radio"" class=""radio"" name=""strRestrictReg"" value=""1""" & chkRadio(strRestrictReg,1,true) & "> " & vbNewLine & _
" Off: <input type=""radio"" class=""radio"" name=""strRestrictReg"" value=""0""" & chkRadio(strRestrictReg,1,false) & ">" & vbNewLine & _
" <a href=""JavaScript:openWindow3('pop_config_help.asp?mode=email#RestrictReg')"">" & getCurrentIcon(strIconSmileQuestion,"","") & "</a></font></td>" & vbNewLine & _
" </tr>" & vbNewLine & _
" <tr valign=""top"">" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """ align=""right""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><b>Require Logon for sending Mail:</b> </font></td>" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>" & vbNewLine & _
" On: <input type=""radio"" class=""radio"" name=""strLogonForMail"" value=""1""" & chkRadio(strLogonForMail,1,true) & "> " & vbNewLine & _
" Off: <input type=""radio"" class=""radio"" name=""strLogonForMail"" value=""0""" & chkRadio(strLogonForMail,1,false) & ">" & vbNewLine & _
" <a href=""JavaScript:openWindow3('pop_config_help.asp?mode=email#LogonForMail')"">" & getCurrentIcon(strIconSmileQuestion,"","") & "</a></font></td>" & vbNewLine & _
" </tr>" & vbNewLine & _
" <tr valign=""top"">" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """ align=""right""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><b>Number of posts to allow sending e-mail:</b> </font></td>" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>" & vbNewLine & _
" <input type=""text"" name=""intMaxPostsToEMail"" size=""40"" maxlength=""10"" value=""" & intMaxPostsToEMail & """>" & vbNewLine & _
" <a href=""JavaScript:openWindow3('pop_config_help.asp?mode=email#MaxPostsToEMail')"">" & getCurrentIcon(strIconSmileQuestion,"","") & "</a></font></td>" & vbNewLine & _
" </tr>" & vbNewLine & _
" <tr valign=""top"">" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """ align=""right""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><b>Error if they don't have enough posts:</b> </font></td>" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>" & vbNewLine & _
" <input type=""text"" name=""strNoMaxPostsToEMail"" size=""40"" maxlength=""255"" value=""" & strNoMaxPostsToEMail & """>" & vbNewLine & _
" <a href=""JavaScript:openWindow3('pop_config_help.asp?mode=email#NoMaxPostsToEMail')"">" & getCurrentIcon(strIconSmileQuestion,"","") & "</a></font></td>" & vbNewLine & _
" </tr>" & vbNewLine & _
" <tr valign=""top"">" & vbNewLine
' ## Test Mail Below (Note: Remove the & _ from the line above)
Response.Write " <td bgColor=""" & strPopUpTableColor & """ colspan=""2"" align=""center""><input type=""submit"" value=""Submit New Config"" id=""submit1"" name=""submit1""> <input type=""reset"" value=""Reset Old Values"" id=""reset1"" name=""reset1"">" & vbNewLine
If Err_Msg="" Then
Response.Write " <input type=""hidden"" name=""TestEMail"" value=""DoIt"">" & vbNewLine & _
" <input type=""submit"" value=""Test EMail Config"" name=""TestMail"">" & vbNewLine
End If
Response.Write " </td>" & vbNewLine
' ## Test Mail Above (Note: Add Response.Write to the line below)
Response.Write " </tr>" & vbNewLine & _
" </table>" & vbNewLine & _
" </td>" & vbNewLine & _
" </tr>" & vbNewLine & _
" </table>" & vbNewLine & _
" </form>" & vbNewLine
end if
WriteFooter
Response.End
function IsObjInstalled(strClassString)
on error resume next
'## initialize default values
IsObjInstalled = false
Err.Clear
'## testing code
dim xTestObj
set xTestObj = Server.CreateObject(strClassString)
if Err.Number = 0 then
IsObjInstalled = true
end if
'## cleanup
set xTestObj = nothing
Err.Clear
on error goto 0
end function
%>
lblNoReplies