Email content
Snitz™ Forums 2000https://forum.snitz.com/forumTopic/Posts/64385?pagenum=1
05 November 2025, 04:56
Topic
elvis711
Email content
29 March 2007, 11:37
Email content
29 March 2007, 11:37
New guy here--I inherited our forums and am in no way shape or form a programmer. I am wanting to know if it is possible to modify what is sent to subscribers when a post/reply is made?
Currently the forum subject is sent. My subscribers are asking if the forum "message" can include the actual message, instead of just the subject. Thanks for any assistance<
Replies ...
Shaggy
29 March 2007, 11:53
29 March 2007, 11:53
Yes, it's possible; the file you need to edit is inc_subscription.asp and a wuick search will provide you with a few topics explaining the changes that need to be made.
<
<
PPSSWeb
29 March 2007, 13:01
29 March 2007, 13:01
Below is the code I used in the past. I found that it encouraged people to NOT visit the forums though as they would just read the email and only go to the forums if they chose to reply, so I have removed it.
<
Code:
To add or modify the email subject/body for subscription notifications
Change the section of inc_subscription.asp starting at line 171 to
=====================================================================================================================
if LoopTopicID > 0 then
' strSubject = strForumTitle & " - Reply to a posting"
' strMessage = strMessage & MemberName & " has replied to a topic on " & strForumTitle & " that you requested notification to. "
strSubject = strForumTitle & " - Reply to a posting in " & ForumName & " - " & TopicName
strMessage = strMessage & MemberName & " has replied to the topic '" & TopicName & "' on the forum '" & ForumName & "' at " & strForumTitle & " that you requested notification on. " & vbNewline & vbNewline
strMessage = strMessage & "Subject: " & TopicName & vbNewline & vbNewline
' strMessage = strMessage & "Message: " & vbNewline & "==========================" & vbNewline
' strMessage = strMessage & StripCode(strNewMessage) & vbNewline & "==========================" & vbNewline & vbNewline & vbNewline
else
' strSubject = strForumTitle & " - New posting"
' strMessage = strMessage & MemberName & " has posted to the forum '" & ForumName & "' at " & strForumTitle & " that you requested notification on. "
strSubject = strForumTitle & " - New posting in " & ForumName & " - " & TopicName
strMessage = strMessage & MemberName & " has posted the following to the forum '" & ForumName & "' at " & strForumTitle & " that you requested notification on. " & vbNewline & vbNewline
strMessage = strMessage & "Subject: " & TopicName & vbNewline & vbNewline
' strMessage = strMessage & "Message: " & vbNewline & "==========================" & vbNewline
' strMessage = strMessage & StripCode(strNewMessage) & vbNewline & "==========================" & vbNewline & vbNewline & vbNewline
end if
else
' strSubject = strForumTitle & " - New posting"
' strMessage = strMessage & MemberName & " has posted to the category '" & CatName & "' at " & StrForumTitle & " that you requested notification on. "
strSubject = strForumTitle & " - New posting in " & ForumName & " - " & TopicName
strMessage = strMessage & MemberName & " has replied to the topic '" & TopicName & "' on the forum '" & ForumName & "' in the category '" & CatName & "' at " & strForumTitle & " that you requested notification on. " & vbNewline & vbNewline
strMessage = strMessage & "Subject: " & TopicName & vbNewline & vbNewline
' strMessage = strMessage & "Message: " & vbNewline & "==========================" & vbNewline
' strMessage = strMessage & StripCode(strNewMessage) & vbNewline & "==========================" & vbNewline & vbNewline & vbNewline
end if
else
strSubject = strForumTitle & " - New posting"
strMessage = strMessage & MemberName & " has posted to the " & strForumTitle & " board that you requested notification on. "
end if
' strMessage = strMessage & "Regarding the subject - " & TopicName & "." & vbNewline & vbNewline
strMessage = strMessage & "You can view the posting at " & strForumURL & "topic.asp?TOPIC_ID=" & TopicId & vbNewline
=====================================================================================================================
To remove html/forumcode from the email body for subscription notifications
Include the following function in the inc_subscription.asp file.
This removes all content between braces [] [/] and <></> repectively
======================================================================================================================
Function StripCode(ByVal fString)
if fString = "" or IsNull(fString) then
fString = " empty string test"
elseif strAllowForumCode = "1" then
'filter out forumcode
fStringLeft = ""
fFound = False
Do While InStr(fString, "[")
fFound = True
fStringLeft = fStringLeft & " " & Left(fString, InStr(fString, "[")-1)
fString = MID(fString, InStr(fString, "]") + 1)
Loop
StripCode = fStringLeft & fString
If Not fFound Then StripCode = fString
elseif strAllowHTML = "1" then
' filter out html code
fStringLeft = ""
fFound = False
Do While InStr(fString, "<")
fFound = True
fStringLeft = fStringLeft & " " & Left(fString, InStr(fString, "<")-1)
fString = MID(fString, InStr(fString, ">") + 1)
Loop
StripCode = fStringLeft & fString
If Not fFound Then StripCode = fString
end if
if strBadWordFilter = "1" then
fString = ChkBadWords(fString)
end if
StripCode = fString
End Function
elvis711
30 March 2007, 15:51
30 March 2007, 15:51
Thank you for your immediate and awesome response. I have passed this onto our developer.<
elvis711
01 October 2007, 17:16
01 October 2007, 17:16
AnonJr
01 October 2007, 17:38
01 October 2007, 17:38
There is no "attach" option, but you could save it as a .txt file and link to it. 
At the very least, use the [scrollcode] tags around your code...<
At the very least, use the [scrollcode] tags around your code...<
TastyNutz
03 October 2007, 00:00
03 October 2007, 00:00
If people want everything in email, why bother with a forum at all? A listserv will serve the purpose.<
elvis711
04 October 2007, 13:39
04 October 2007, 13:39
Only about a third of the people want just the e-mail, everyone else is ok navigating to the forum and reading the message<
AnonJr
04 October 2007, 13:41
04 October 2007, 13:41
Funny this would pop back up as I'm reading a chapter on "Tough Love"...<
sokkmonkey
24 October 2007, 18:14
I work with a group of diverse demographics and ages.. While 70% understand the forum concept.. 30% still think the internet is a series of tubes.. I need to make sure they get some forum posts because they forget to check/ log on/ whatever.<
24 October 2007, 18:14
Originally posted by TastyNutz
If people want everything in email, why bother with a forum at all? A listserv will serve the purpose.
I work with a group of diverse demographics and ages.. While 70% understand the forum concept.. 30% still think the internet is a series of tubes.. I need to make sure they get some forum posts because they forget to check/ log on/ whatever.<
desmo907
02 March 2010, 12:39
02 March 2010, 12:39
I tried adding the first set of code below; replacing the code from line 171-189 and got an internal server error. I am not a programmer so suspect I am doing something wrong.
Thoughts?
Thoughts?
Originally posted by PPSSWeb
Below is the code I used in the past. I found that it encouraged people to NOT visit the forums though as they would just read the email and only go to the forums if they chose to reply, so I have removed it.Code:<To add or modify the email subject/body for subscription notifications
Change the section of inc_subscription.asp starting at line 171 to
=====================================================================================================================
if LoopTopicID > 0 then
' strSubject = strForumTitle & " - Reply to a posting"
' strMessage = strMessage & MemberName & " has replied to a topic on " & strForumTitle & " that you requested notification to. "
strSubject = strForumTitle & " - Reply to a posting in " & ForumName & " - " & TopicName
strMessage = strMessage & MemberName & " has replied to the topic '" & TopicName & "' on the forum '" & ForumName & "' at " & strForumTitle & " that you requested notification on. " & vbNewline & vbNewline
strMessage = strMessage & "Subject: " & TopicName & vbNewline & vbNewline
' strMessage = strMessage & "Message: " & vbNewline & "==========================" & vbNewline
' strMessage = strMessage & StripCode(strNewMessage) & vbNewline & "==========================" & vbNewline & vbNewline & vbNewline
else
' strSubject = strForumTitle & " - New posting"
' strMessage = strMessage & MemberName & " has posted to the forum '" & ForumName & "' at " & strForumTitle & " that you requested notification on. "
strSubject = strForumTitle & " - New posting in " & ForumName & " - " & TopicName
strMessage = strMessage & MemberName & " has posted the following to the forum '" & ForumName & "' at " & strForumTitle & " that you requested notification on. " & vbNewline & vbNewline
strMessage = strMessage & "Subject: " & TopicName & vbNewline & vbNewline
' strMessage = strMessage & "Message: " & vbNewline & "==========================" & vbNewline
' strMessage = strMessage & StripCode(strNewMessage) & vbNewline & "==========================" & vbNewline & vbNewline & vbNewline
end if
else
' strSubject = strForumTitle & " - New posting"
' strMessage = strMessage & MemberName & " has posted to the category '" & CatName & "' at " & StrForumTitle & " that you requested notification on. "
strSubject = strForumTitle & " - New posting in " & ForumName & " - " & TopicName
strMessage = strMessage & MemberName & " has replied to the topic '" & TopicName & "' on the forum '" & ForumName & "' in the category '" & CatName & "' at " & strForumTitle & " that you requested notification on. " & vbNewline & vbNewline
strMessage = strMessage & "Subject: " & TopicName & vbNewline & vbNewline
' strMessage = strMessage & "Message: " & vbNewline & "==========================" & vbNewline
' strMessage = strMessage & StripCode(strNewMessage) & vbNewline & "==========================" & vbNewline & vbNewline & vbNewline
end if
else
strSubject = strForumTitle & " - New posting"
strMessage = strMessage & MemberName & " has posted to the " & strForumTitle & " board that you requested notification on. "
end if
' strMessage = strMessage & "Regarding the subject - " & TopicName & "." & vbNewline & vbNewline
strMessage = strMessage & "You can view the posting at " & strForumURL & "topic.asp?TOPIC_ID=" & TopicId & vbNewline
=====================================================================================================================
To remove html/forumcode from the email body for subscription notifications
Include the following function in the inc_subscription.asp file. This removes all content between braces [] [/] and <></> repectively
======================================================================================================================
Function StripCode(ByVal fString)
if fString = "" or IsNull(fString) then
fString = " empty string test"
elseif strAllowForumCode = "1" then
'filter out forumcode
fStringLeft = ""
fFound = False
Do While InStr(fString, "[")
fFound = True
fStringLeft = fStringLeft & " " & Left(fString, InStr(fString, "[")-1)
fString = MID(fString, InStr(fString, "]") + 1)
Loop
StripCode = fStringLeft & fString
If Not fFound Then StripCode = fString
elseif strAllowHTML = "1" then
' filter out html code
fStringLeft = ""
fFound = False
Do While InStr(fString, "<")
fFound = True
fStringLeft = fStringLeft & " " & Left(fString, InStr(fString, "<")-1)
fString = MID(fString, InStr(fString, ">") + 1)
Loop
StripCode = fStringLeft & fString
If Not fFound Then StripCode = fString
end if
if strBadWordFilter = "1" then
fString = ChkBadWords(fString)
end if
StripCode = fString
End Function
HuwR
02 March 2010, 12:44
02 March 2010, 12:44
could you maybe post a link to a text verssion of your edited file, someone can then look to see what needs changing
desmo907
02 March 2010, 12:51
02 March 2010, 12:51
My ISP had V xxx.06 but I updated to V xxx.07 and replaced the applicable files. However the inc_subscription.asp file is from V xxx.06
The Original file is here (I took out the edits above to get it working again):
http://windsorsoftball.com/inc_subscription.txt
I am trying to include the Topic reply in the email as some user may access certain topic updates (e.g., game status) on their cell (WAP) but it would be easier to just read the reply in the email than having then to sign in to the website to read the reply.
Thx in advance.
Thanks in advance.
The Original file is here (I took out the edits above to get it working again):
http://windsorsoftball.com/inc_subscription.txt
I am trying to include the Topic reply in the email as some user may access certain topic updates (e.g., game status) on their cell (WAP) but it would be easier to just read the reply in the email than having then to sign in to the website to read the reply.
Thx in advance.
Thanks in advance.
Originally posted by HuwR
could you maybe post a link to a text verssion of your edited file, someone can then look to see what needs changing
HuwR
03 March 2010, 02:02
03 March 2010, 02:02
Originally posted by HuwRWe can't tell you what went wrong if you take the edits out
could you maybe post a link to a text verssion of your edited file, someone can then look to see what needs changing
desmo907
03 March 2010, 10:17
The new file is here
http://windsorsoftball.com/inc_subscriptionNEW.txt
When i add this file I get a server 500 error.
I only added the first section above. The 2nd section (I was not sure where to put it) implies to strip out HTML code but we don't have that feature turned on. But do I need to use it to strip out the default Forum code?
Thanks!
03 March 2010, 10:17
The new file is here
http://windsorsoftball.com/inc_subscriptionNEW.txt
When i add this file I get a server 500 error.
I only added the first section above. The 2nd section (I was not sure where to put it) implies to strip out HTML code but we don't have that feature turned on. But do I need to use it to strip out the default Forum code?
Thanks!
HuwR
03 March 2010, 11:18
03 March 2010, 11:18
the server 500 error could be your browser, try turning OFF 'show friendly http errors' in tools|internet options|advanced
HuwR
03 March 2010, 11:24
03 March 2010, 11:24
you have not made the changes correctly, I suggest you redo them and take note of the code you are changing/replacing, in the snippet you posted the first line says [greenif LoopTopicID > 0 then[/green] yet the file you posted does not have this line at all, so you must have done something wrong.
desmo907
03 March 2010, 11:28
03 March 2010, 11:28
Thx. i went back in and did a fresh copy/paste..
Now I get this error:
Microsoft VBScript compilation error '800a0400'
Expected statement
/forum/inc_subscription.asp, line 212
end if
^
Maybe I am not clear on just how much code I should be replacing. I started on line 171 as indicated and replaced down to last line that matched.
Now I get this error:
Microsoft VBScript compilation error '800a0400'
Expected statement
/forum/inc_subscription.asp, line 212
end if
^
Maybe I am not clear on just how much code I should be replacing. I started on line 171 as indicated and replaced down to last line that matched.
Carefree
03 March 2010, 15:19
03 March 2010, 15:19
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
'##
'#################################################################################
sub ProcessSubscriptions (pMemberId, CatID, ForumId, TopicId, Moderation)
' DEM --> Added line to ignore the moderator/admin since they would be approving the post if
' ThisMemberId & MemberID are different....
ThisMemberID = MemberID
' -- If subscription is not allowed or e-mail is not turned on, exit
if strSubscription = 0 or strEmail = 0 then
exit sub
end if
StrSql = "SELECT C.CAT_SUBSCRIPTION, C.CAT_NAME, F.F_SUBJECT, F.F_SUBSCRIPTION, " & _
" T.T_SUBJECT, M.M_NAME " & _
" FROM " & strTablePrefix & "CATEGORY C, " & _
" " & strTablePrefix & "FORUM F, " & _
" " & strTablePrefix & "TOPICS T, " & _
" " & strMemberTablePrefix & "MEMBERS M " & _
" WHERE C.CAT_ID = " & CatID & " AND F.FORUM_ID = " & ForumID & _
" AND T.TOPIC_ID = " & TopicID & " AND M.MEMBER_ID = " & pMemberID
Set rsSub = Server.CreateObject("ADODB.Recordset")
rsSub.open strSql, my_Conn
' -- If No record is found, exit sub
if RsSub.Eof or RsSub.BOF then
rsSub.close
set rsSub = nothing
exit sub
else
' Pull the data from the recordset
allSubsData = rsSub.GetRows(adGetRowsRest)
SubCnt = UBound(allSubsData,2)
end if
rsSub.close
set rsSub = nothing
CatSubscription = allSubsData(0, 0)
CatName = allSubsData(1, 0)
ForumName = allSubsData(2, 0)
ForumSubscription = allSubsData(3, 0)
TopicName = allSubsData(4, 0)
MemberName = allSubsData(5, 0)
' -- If no subscriptions are allowed for the category or forum, exit sub
if CatSubscription = 0 or ForumSubscription = 0 then
exit sub
end if
' -- Set highest subscription level to check for...
' strSubscription 1 = whole board, 2 = by category, 3 = by forum, 4 = by topic
' CatSubscription 1 = whole category, 2 = by forum, 3 = by topic
' ForumSubscription 1 = whole forum, 2 = by topic
If strSubscription = 4 or CatSubscription = 3 or ForumSubscription = 2 then
SubLevel = "TOPIC"
Elseif strSubscription = 3 then
SubLevel = "FORUM"
ElseIf CatSubscription > 1 then
SubLevel = "FORUM"
Elseif StrSubscription > 1 then
SubLevel = "CATEGORY"
Else
SubLevel = "ALL"
End if
'## Emails all users who wish to receive a mail if a topic or reply has been made. This sub will
'## check for subscriptions based on the topic, forum, category and across the board. It will
'## ignore the posting member.
if Moderation <> "No" then
strSql = "SELECT MOD_ID from " & strTablePrefix & "MODERATOR"
Set modCheck = Server.CreateObject("ADODB.Recordset")
modCheck.open strSql, my_Conn
if modCheck.EOF or modCheck.BOF then
strUniqueModID = "none"
else
strUniqueModID = modCheck("Mod_ID")
end if
modCheck.Close
set modCheck = nothing
else
strUniqueModID = "none"
end if
strSql = "SELECT S.MEMBER_ID, S.CAT_ID, S.FORUM_ID, S.TOPIC_ID, M.M_NAME, M.M_EMAIL " & _
" FROM " & strTablePrefix & "SUBSCRIPTIONS S, " & strMemberTablePrefix & "MEMBERS M"
if Moderation <> "No" and strUniqueModID <> "none" then
strSql = strSql & ", " & strTablePrefix & "MODERATOR Mo"
end if
' -- The author nor the Moderator need to get notification on this topic....
strSql = strSql & " WHERE S.MEMBER_ID <> " & pMemberID & _
" AND S.MEMBER_ID <> " & ThisMemberID & _
" AND M.MEMBER_ID = S.MEMBER_ID" & _
" AND M.M_STATUS <> 0" & _
" AND (S.TOPIC_ID = " & TopicId ' Topic specific subscriptions...
' -- Check for Subscriptions against the Forum
if SubLevel <> "TOPIC" then
StrSql = StrSql & " OR (S.CAT_ID = " & CatID & " AND S.FORUM_ID = " & ForumID & " AND S.TOPIC_ID = 0)"
end if
' -- Check for Subscriptions against the Category
if SubLevel = "CATEGORY" or SubLevel = "ALL" then
StrSql = StrSql & " OR (S.CAT_ID = " & CatID & " AND S.FORUM_ID = 0 AND S.TOPIC_ID = 0)"
end if
' -- Check for Subscriptions against the Board
if SubLevel = "ALL" then
StrSql = StrSql & " OR (S.CAT_ID = 0 AND S.FORUM_ID = 0 AND S.TOPIC_ID = 0)"
end if
strSql = strSql & ")"
if Moderation <> "No" then
StrSql = StrSql & " AND ((M.M_LEVEL = 3"
if strUniqueModID = "none" then
StrSql = StrSql & "))"
else
StrSql = StrSql & " AND Mo.MOD_ID = " & strUniqueModID & ") OR (M.M_LEVEL = 2 AND S.MEMBER_ID = Mo.MEMBER_ID AND Mo.FORUM_ID = " & ForumId & "))"
end if
end if
set rsLoop = Server.CreateObject("ADODB.Recordset") : rsLoop.open strSql, my_Conn
if rsLoop.EOF or rsLoop.BOF then
rsLoop.close : set rsLoop = nothing : Exit Sub ' No subscriptions, exit....
else
' Pull the data from the recordset
allLoopData = rsLoop.GetRows(adGetRowsRest) : LoopCount = UBound(allLoopData,2)
rsLoop.close : set rsLoop = nothing
for iSub = 0 to LoopCount
LoopMemberID = allLoopData(0, iSub)
LoopCatID = allLoopData(1, iSub)
LoopForumID = allLoopData(2, iSub)
LoopTopicID = allLoopData(3, iSub)
LoopMemberName = allLoopData(4, iSub)
LoopMemberEmail = allLoopData(5, iSub)
if chkForumAccess(ForumID, LoopMemberID, false) <> FALSE then
strSql = "SELECT R_MESSAGE, REPLY_ID from " & strTablePrefix & "REPLY WHERE TOPIC_ID = " & LoopTopicID & " ORDER BY REPLY_ID DESC"
set rsRpl = my_Conn.Execute(strSql)
if not rsRpl.EOF then
strNewMessage=rsRpl("R_MESSAGE")
rsRpl.Close
else
strSql = "SELECT T_MESSAGE FROM " & strTablePrefix & "TOPICS WHERE TOPIC_ID=" & LoopTopicID
set rsMsg = my_Conn.Execute(strSql)
if not rsMsg.EOF then
strNewMessage=rsMsg("T_MESSAGE")
rsMsg.Close
end if
set rsMsg=Nothing
end if
strRecipientsName = LoopMemberName
strRecipients = LoopMemberEmail
strMessage = "Hello " & LoopMemberName & vbNewline & vbNewline
if LoopCatID > 0 then
if LoopTopicID > 0 then
strSubject = strForumTitle & " - Reply to a posting in " & ForumName & " - " & TopicName
strMessage = strMessage & MemberName & " has replied to the topic '" & TopicName & "' on the forum '" & ForumName & "' at " & strForumTitle & " that you requested notification on. " & vbNewline & vbNewline
strMessage = strMessage & "Subject: " & TopicName & vbNewline & vbNewline
strMessage = strMessage & "Message: " & vbNewline & "==========================" & vbNewline
strMessage = strMessage & strNewMessage & vbNewline & "==========================" & vbNewline & vbNewline & vbNewline
else
strSubject = strForumTitle & " - New posting in " & ForumName & " - " & TopicName
strMessage = strMessage & MemberName & " has posted the following to the forum '" & ForumName & "' at " & strForumTitle & " that you requested notification on. " & vbNewline & vbNewline
strMessage = strMessage & "Subject: " & TopicName & vbNewline & vbNewline
strMessage = strMessage & "Message: " & vbNewline & "==========================" & vbNewline
strMessage = strMessage & strNewMessage & vbNewline & "==========================" & vbNewline & vbNewline & vbNewline
end if
else
strSubject = strForumTitle & " - New posting in " & ForumName & " - " & TopicName
strMessage = strMessage & MemberName & " has replied to the topic '" & TopicName & "' on the forum '" & ForumName & "' in the category '" & CatName & "' at " & strForumTitle & " that you requested notification on. " & vbNewline & vbNewline
strMessage = strMessage & "Subject: " & TopicName & vbNewline & vbNewline
strMessage = strMessage & "Message: " & vbNewline & "==========================" & vbNewline
strMessage = strMessage & strNewMessage & vbNewline & "==========================" & vbNewline & vbNewline & vbNewline
end if
else
strSubject = strForumTitle & " - New posting"
strMessage = strMessage & MemberName & " has posted to the " & strForumTitle & " board that you requested notification on. "
end if
strMessage = strMessage & "You can view the posting at " & strForumURL & "topic.asp?TOPIC_ID=" & TopicId & vbNewline
%>
<!--#INCLUDE FILE="inc_mail.asp" -->
<%
next
end if
end sub
' PullSubscriptions - will return a list of the subcriptions that exist for a member
Function PullSubscriptions(sCatID, sForumID, sTopicID)
' -- if subscriptions or e-mail are not turned on, or the person is not logged in, exit...
If strSubscription = "0" or lcase(strEmail) <> "1" or mlev = 0 then
PullSubscriptions = "" : Exit Function
End if
' -- declare the variables used in this function
Dim BoardSubs, CatSubs, ForumSubs, TopicSubs, rsSub, SubCnt, allSubData, iSub
Dim SubCatID, SubForumID, SubTopicID
' -- build the appropriate sql statement...
subStrSQL = "SELECT CAT_ID, FORUM_ID, TOPIC_ID " & _
" FROM " & strTablePrefix & "SUBSCRIPTIONS" & _
" WHERE MEMBER_ID = " & MemberID
' GetCheck will return the correct SQL statement for the optional parameters....
subStrSQL = subStrSQL & GetCheck("CAT_ID", Clng(sCatID))
subStrSQL = subStrSQL & GetCheck("FORUM_ID", Clng(sForumID))
subStrSQL = subStrSQL & GetCheck("TOPIC_ID", Clng(sTopicID))
' -- execute the sql statement...
'Response.Write substrSql
'Response.End
Set rsSub = Server.CreateObject("ADODB.Recordset")
rsSub.open subStrSQL, my_Conn, adOpenForwardOnly, adLockReadOnly, adCmdText
if rsSub.EOF or rsSub.BOF then
' If none found, exit
SubCnt = ""
PullSubscriptions = ""
else
' Pull the data from the recordset
allSubData = rsSub.GetRows(adGetRowsRest)
SubCnt = UBound(allSubData,2)
end if
rsSub.Close
set rsSub = Nothing
if SubCnt = "" then
' If none found, exit
PullSubscriptions = ""
else
BoardSubs = "N"
CatSubs = 0
ForumSubs = 0
TopicSubs = 0
for iSub = 0 to SubCnt
SubCatID = allSubData(0, iSub)
SubForumID = allSubData(1, iSub)
SubTopicID = allSubData(2, iSub)
If SubCatID = 0 then
BoardSubs = "Y"
Elseif SubForumID = 0 then
If CatSubs > "" then CatSubs = CatSubs & ","
CatSubs = CatSubs & SubCatID
Elseif SubTopicID = 0 then
If ForumSubs > "" then ForumSubs = ForumSubs & ","
ForumSubs = ForumSubs & SubForumID
Else
If TopicSubs > "" then TopicSubs = TopicSubs & ","
TopicSubs = TopicSubs & SubTopicID
End If
next
PullSubscriptions = BoardSubs & ";" & CatSubs & ";" & ForumSubs & ";" & TopicSubs
end if
End Function
' GetCheck standardizes the handling of optional parameters in PullSubscriptions
Function GetCheck(ObjectName, ObjectID)
If ObjectID > 0 then
GetCheck = " AND " & ObjectName & " = " & ObjectID
Elseif ObjectID = -99 then
GetCheck = " AND " & ObjectName & " = 0"
Else
GetCheck = ""
End If
End Function
' Displays the appropriate link, icon and message(if appropriate) for subscriptions...
Function ShowSubLink (SubOption, CatID, ForumID, TopicID, ShowText)
Dim DefaultFont
DefaultFont = "<font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>"
' -- Declare variables...
Dim StandardLinkInfo, LinkText, LinkIcon, LinkLevel, LinkParam
if Instr(Request.ServerVariables("SCRIPT_NAME"),"post.asp") then
' -- Only show the checkboxes on the post page...
if SubOption = "S" then
ShowSubLink = "<input type=""checkbox"" name=""Tnotify"" value=""1"" />Check here to subscribe to this topic."
else
ShowSubLink = "<input type=""checkbox"" name=""Tnotify"" value=""0"" />Check here to unsubscribe from this topic."
end if
else
' -- Standard Link
StandardLinkInfo = "<a href=""Javascript:"
if SubOption = "U" then
StandardLinkInfo = StandardLinkInfo & "unsub_confirm"
else
StandardLinkInfo = StandardLinkInfo & "openWindow"
end if
StandardLinkInfo = StandardLinkInfo & "('pop_subscription.asp?SUBSCRIBE=" & SubOption & "&MEMBER_ID=" & MemberID & "&LEVEL="
' -- Get appropriate text and icon to display
LinkParam = ""
if CatID = 0 then
LinkLevel = "BOARD"
else
LinkParam = "&CAT_ID=" & CatID
if ForumID = 0 then
LinkLevel = "CAT"
else
LinkParam = LinkParam & "&FORUM_ID=" & ForumID
if TopicID = 0 then
LinkLevel = "FORUM"
else
LinkLevel = "TOPIC" : LinkParam = LinkParam & "&TOPIC_ID=" & TopicID
end if
end if
end if
if SubOption = "U" then
LinkIcon = strIconUnsubscribe
select case LinkLevel
case "BOARD" : LinkText = "Unsubscribe from this board"
case "CAT" : LinkText = "Unsubscribe from this category"
case "FORUM" : LinkText = "Unsubscribe from this forum"
case "TOPIC" : LinkText = "Unsubscribe from this topic"
end select
else
LinkIcon = strIconSubscribe
select case LinkLevel
case "BOARD" : LinkText = "Subscribe to this board"
case "CAT" : LinkText = "Subscribe to this category"
case "FORUM" : LinkText = "Subscribe to this forum"
case "TOPIC" : LinkText = "Subscribe to this topic"
end select
end if
ShowSubLink = StandardLinkInfo & LinkLevel & LinkParam & "')"">" & getCurrentIcon(LinkIcon, LinkText,"align=""absmiddle""" & dwStatus(LinkText)) & "</a>"
if ShowText <> "N" then
ShowSubLink = ShowSubLink & " " & StandardLinkInfo & LinkLevel & LinkParam & "')""" & dwStatus(LinkText) & ">" & DefaultFont & LinkText & "</font></a>"
end if
end if
end function
Function StripCode(ByVal fString)
if fString = "" or IsNull(fString) then
fString = " empty string test"
elseif strAllowForumCode = "1" then
'filter out forumcode
fStringLeft = ""
fFound = False
Do While InStr(fString, "[")
fFound = True
fStringLeft = fStringLeft & " " & Left(fString, InStr(fString, "[")-1)
fString = MID(fString, InStr(fString, "]") + 1)
Loop
StripCode = fStringLeft & fString
If Not fFound Then StripCode = fString
elseif strAllowHTML = "1" then
' filter out html code
fStringLeft = ""
fFound = False
Do While InStr(fString, "<")
fFound = True
fStringLeft = fStringLeft & " " & Left(fString, InStr(fString, "<")-1)
fString = MID(fString, InStr(fString, ">") + 1)
Loop
StripCode = fStringLeft & fString
If Not fFound Then StripCode = fString
end if
if strBadWordFilter = "1" then
fString = ChkBadWords(fString)
end if
StripCode = fString
End Function
Response.Write " <script language=""JavaScript"" type=""text/javascript"">" & vbNewLine & _
" <!--" & vbNewLine & _
" function unsub_confirm(link){" & vbNewLine & _
" var where_to= confirm(""Do you really want to Unsubscribe?"");" & vbNewLine & _
" if (where_to== true) {" & vbNewLine & _
" popupWin = window.open(link,'new_page','width=400,height=400')" & vbNewLine & _
" }" & vbNewLine & _
" }" & vbNewLine & _
" //-->" & vbNewLine & _
" </script>" & vbNewLine
%>
desmo907
03 March 2010, 15:46
03 March 2010, 15:46
Carefree,
I created a new inc_subscription file with your code however it does not send me the content of the "reply to the post". It seems it just reformat the original email reply that points to the post and the web site.
Your code emailed me:
Hello m
admin has replied to the topic 'Forum Registration & Getting Started' on the forum 'Forum Information' at Windsor Men's Softball League that you requested notification on. Subject: Forum Registration & Getting Started
You can view the posting at http://www.windsorsoftball.com/forum/topic.asp?TOPIC_ID=6
The original inc_subscription file emails me: Hello m
admin has replied to a topic on Windsor Men's Softball League that you requested notification to. Regarding the subject - Forum Registration & Getting Started.
You can view the posting at http://www.windsorsoftball.com/forum/topic.asp?whichpage=-1&TOPIC_ID=6
I created a new inc_subscription file with your code however it does not send me the content of the "reply to the post". It seems it just reformat the original email reply that points to the post and the web site.
Your code emailed me:
Hello m
admin has replied to the topic 'Forum Registration & Getting Started' on the forum 'Forum Information' at Windsor Men's Softball League that you requested notification on. Subject: Forum Registration & Getting Started
You can view the posting at http://www.windsorsoftball.com/forum/topic.asp?TOPIC_ID=6
The original inc_subscription file emails me: Hello m
admin has replied to a topic on Windsor Men's Softball League that you requested notification to. Regarding the subject - Forum Registration & Getting Started.
You can view the posting at http://www.windsorsoftball.com/forum/topic.asp?whichpage=-1&TOPIC_ID=6
Carefree
04 March 2010, 08:37
04 March 2010, 08:37
I left something out (commented code that needed to be included and uncommented). Try it again.
desmo907
04 March 2010, 08:54
04 March 2010, 08:54
I think its almost there but the message content is missing.
Now I see:
Hello m
admin has replied to the topic 'Forum Registration & Getting Started' on the forum 'Forum Information' at Windsor Men's Softball League that you requested notification on.
Subject: Forum Registration & Getting Started
Message:
==========================
empty string test
==========================
You can view the posting at http://www.windsorsoftball.com/forum/topic.asp?TOPIC_ID=6
Hello m
admin has replied to the topic 'Forum Registration & Getting Started' on the forum 'Forum Information' at Windsor Men's Softball League that you requested notification on.
Subject: Forum Registration & Getting Started
Message:
==========================
empty string test
==========================
You can view the posting at http://www.windsorsoftball.com/forum/topic.asp?TOPIC_ID=6
Carefree
04 March 2010, 14:27
04 March 2010, 14:27
I see what happened, the strNewMessage was never defined for the StripCode routine. I added in a bit to grab the topic text.
desmo907
04 March 2010, 14:39
04 March 2010, 14:39
Ouch. I copied in that new file and after I click "Post New Reply" to a topic I get this error:
Microsoft JET Database Engine error '80040e10'
No value given for one or more required parameters.
/forum/inc_subscription.asp, line 149
Microsoft JET Database Engine error '80040e10'
No value given for one or more required parameters.
/forum/inc_subscription.asp, line 149
Carefree
04 March 2010, 16:20
04 March 2010, 16:20
Fixed, left some code that should've been erased.
desmo907
04 March 2010, 16:41
04 March 2010, 16:41
Sorry to bother you again but still a problem.
I don't see a reference to the "HR" (horizontal rule) in the code either.
Hello m
admin has replied to the topic 'Forum Registration & Getting Started' on the forum 'Forum Information' at Windsor Men's Softball League that you requested notification on.
Subject: Forum Registration & Getting Started Message:
==========================
<hr noshade size="1">
==========================
You can view the posting at http://www.windsorsoftball.com/forum/topic.asp?TOPIC_ID=6
Hello m
admin has replied to the topic 'Forum Registration & Getting Started' on the forum 'Forum Information' at Windsor Men's Softball League that you requested notification on.
Subject: Forum Registration & Getting Started Message:
==========================
<hr noshade size="1">
==========================
You can view the posting at http://www.windsorsoftball.com/forum/topic.asp?TOPIC_ID=6
Carefree
05 March 2010, 18:33
05 March 2010, 18:33
I took out the stripcode call - see what you get. The HR is pulled from the message text coding.
desmo907
11 March 2010, 10:13
11 March 2010, 10:13
Sorry, problems again. Seems it added the original message (not the reply). :
------------------------------------------------------------------
Hello m
admin has replied to the topic 'Forum Registration & Getting Started' on the forum 'Forum Information' at Windsor Men's Softball League that you requested notification on.
Subject: Forum Registration & Getting Started Message:
==========================
<font face="Verdana">You can view the forums without registering. If you want to post a topic or reply to one, you need to Register (see menu at top of page). There are some required fields when registering. You will need to enter your Team name (or you can use "free agent" if you are not on a team) but you can later change it in your Profile.
After you register an email will be sent to the address you enter. <b> Be sure to check the JUNK/SPAM folder of your email client.</b> The email will have a link for you to click/copy in order to authenticate. Once you confirm, you can them sign in.
If you never receive the email (it should arrive within an hour) email forums@windsorsoftball.com and we can activate your account manually. In your email to us be sure to include your name, email address, the ID you used to register and any other applicable information (e.g., team name, free agent, phone number). <hr noshade size="1">
There are many features of the site (e.g., you can subscribe to forum topics). <hr noshade size="1"><b><font color="navy">Please be considerate with your posts.
Abuse will result in termination of your account and possible IP banning.</font id="navy"></b></font id="Verdana">
<hr noshade size="1">
Click here to Register:
http://windsorsoftball.com/forum/register.asp <hr noshade size="1">
==========================
You can view the posting at http://www.windsorsoftball.com/forum/topic.asp?TOPIC_ID=6
------------------------------------------------------------------
Hello m
admin has replied to the topic 'Forum Registration & Getting Started' on the forum 'Forum Information' at Windsor Men's Softball League that you requested notification on.
Subject: Forum Registration & Getting Started Message:
==========================
<font face="Verdana">You can view the forums without registering. If you want to post a topic or reply to one, you need to Register (see menu at top of page). There are some required fields when registering. You will need to enter your Team name (or you can use "free agent" if you are not on a team) but you can later change it in your Profile.
After you register an email will be sent to the address you enter. <b> Be sure to check the JUNK/SPAM folder of your email client.</b> The email will have a link for you to click/copy in order to authenticate. Once you confirm, you can them sign in.
If you never receive the email (it should arrive within an hour) email forums@windsorsoftball.com and we can activate your account manually. In your email to us be sure to include your name, email address, the ID you used to register and any other applicable information (e.g., team name, free agent, phone number). <hr noshade size="1">
There are many features of the site (e.g., you can subscribe to forum topics). <hr noshade size="1"><b><font color="navy">Please be considerate with your posts.
Abuse will result in termination of your account and possible IP banning.</font id="navy"></b></font id="Verdana">
<hr noshade size="1">
Click here to Register:
http://windsorsoftball.com/forum/register.asp <hr noshade size="1">
==========================
You can view the posting at http://www.windsorsoftball.com/forum/topic.asp?TOPIC_ID=6
Carefree
11 March 2010, 23:50
11 March 2010, 23:50
There is no reply.
desmo907
12 March 2010, 12:31
There is no reply on the topic now because I deleted it after I ran the test with the new asp page. After I replied to the post, it triggered the email to me with the content (only the original message)above.
I remove the replies later just to keep it clean :)
Thx
12 March 2010, 12:31
Originally posted by Carefree
There is no reply.
There is no reply on the topic now because I deleted it after I ran the test with the new asp page. After I replied to the post, it triggered the email to me with the content (only the original message)above.
I remove the replies later just to keep it clean :)
Thx
Carefree
12 March 2010, 22:42
12 March 2010, 22:42
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
'##
'#################################################################################
sub ProcessSubscriptions (pMemberId, CatID, ForumId, TopicId, Moderation)
' DEM --> Added line to ignore the moderator/admin since they would be approving the post if
' ThisMemberId & MemberID are different....
ThisMemberID = MemberID
' -- If subscription is not allowed or e-mail is not turned on, exit
if strSubscription = 0 or strEmail = 0 then
exit sub
end if
StrSql = "SELECT C.CAT_SUBSCRIPTION, C.CAT_NAME, F.F_SUBJECT, F.F_SUBSCRIPTION, " & _
" T.T_SUBJECT, M.M_NAME " & _
" FROM " & strTablePrefix & "CATEGORY C, " & _
" " & strTablePrefix & "FORUM F, " & _
" " & strTablePrefix & "TOPICS T, " & _
" " & strMemberTablePrefix & "MEMBERS M " & _
" WHERE C.CAT_ID = " & CatID & " AND F.FORUM_ID = " & ForumID & _
" AND T.TOPIC_ID = " & TopicID & " AND M.MEMBER_ID = " & pMemberID
Set rsSub = Server.CreateObject("ADODB.Recordset")
rsSub.open strSql, my_Conn
' -- If No record is found, exit sub
if RsSub.Eof or RsSub.BOF then
rsSub.close
set rsSub = nothing
exit sub
else
' Pull the data from the recordset
allSubsData = rsSub.GetRows(adGetRowsRest)
SubCnt = UBound(allSubsData,2)
end if
rsSub.close
set rsSub = nothing
CatSubscription = allSubsData(0, 0)
CatName = allSubsData(1, 0)
ForumName = allSubsData(2, 0)
ForumSubscription = allSubsData(3, 0)
TopicName = allSubsData(4, 0)
MemberName = allSubsData(5, 0)
' -- If no subscriptions are allowed for the category or forum, exit sub
if CatSubscription = 0 or ForumSubscription = 0 then
exit sub
end if
' -- Set highest subscription level to check for...
' strSubscription 1 = whole board, 2 = by category, 3 = by forum, 4 = by topic
' CatSubscription 1 = whole category, 2 = by forum, 3 = by topic
' ForumSubscription 1 = whole forum, 2 = by topic
If strSubscription = 4 or CatSubscription = 3 or ForumSubscription = 2 then
SubLevel = "TOPIC"
Elseif strSubscription = 3 then
SubLevel = "FORUM"
ElseIf CatSubscription > 1 then
SubLevel = "FORUM"
Elseif StrSubscription > 1 then
SubLevel = "CATEGORY"
Else
SubLevel = "ALL"
End if
'## Emails all users who wish to receive a mail if a topic or reply has been made. This sub will
'## check for subscriptions based on the topic, forum, category and across the board. It will
'## ignore the posting member.
if Moderation <> "No" then
strSql = "SELECT MOD_ID from " & strTablePrefix & "MODERATOR"
Set modCheck = Server.CreateObject("ADODB.Recordset")
modCheck.open strSql, my_Conn
if modCheck.EOF or modCheck.BOF then
strUniqueModID = "none"
else
strUniqueModID = modCheck("Mod_ID")
end if
modCheck.Close
set modCheck = nothing
else
strUniqueModID = "none"
end if
strSql = "SELECT S.MEMBER_ID, S.CAT_ID, S.FORUM_ID, S.TOPIC_ID, M.M_NAME, M.M_EMAIL " & _
" FROM " & strTablePrefix & "SUBSCRIPTIONS S, " & strMemberTablePrefix & "MEMBERS M"
if Moderation <> "No" and strUniqueModID <> "none" then
strSql = strSql & ", " & strTablePrefix & "MODERATOR Mo"
end if
' -- The author nor the Moderator need to get notification on this topic....
strSql = strSql & " WHERE S.MEMBER_ID <> " & pMemberID & _
" AND S.MEMBER_ID <> " & ThisMemberID & _
" AND M.MEMBER_ID = S.MEMBER_ID" & _
" AND M.M_STATUS <> 0" & _
" AND (S.TOPIC_ID = " & TopicId ' Topic specific subscriptions...
' -- Check for Subscriptions against the Forum
if SubLevel <> "TOPIC" then
StrSql = StrSql & " OR (S.CAT_ID = " & CatID & " AND S.FORUM_ID = " & ForumID & " AND S.TOPIC_ID = 0)"
end if
' -- Check for Subscriptions against the Category
if SubLevel = "CATEGORY" or SubLevel = "ALL" then
StrSql = StrSql & " OR (S.CAT_ID = " & CatID & " AND S.FORUM_ID = 0 AND S.TOPIC_ID = 0)"
end if
' -- Check for Subscriptions against the Board
if SubLevel = "ALL" then
StrSql = StrSql & " OR (S.CAT_ID = 0 AND S.FORUM_ID = 0 AND S.TOPIC_ID = 0)"
end if
strSql = strSql & ")"
if Moderation <> "No" then
StrSql = StrSql & " AND ((M.M_LEVEL = 3"
if strUniqueModID = "none" then
StrSql = StrSql & "))"
else
StrSql = StrSql & " AND Mo.MOD_ID = " & strUniqueModID & ") OR (M.M_LEVEL = 2 AND S.MEMBER_ID = Mo.MEMBER_ID AND Mo.FORUM_ID = " & ForumId & "))"
end if
end if
set rsLoop = Server.CreateObject("ADODB.Recordset") : rsLoop.open strSql, my_Conn
if rsLoop.EOF or rsLoop.BOF then
rsLoop.close : set rsLoop = nothing : Exit Sub ' No subscriptions, exit....
else
' Pull the data from the recordset
allLoopData = rsLoop.GetRows(adGetRowsRest) : LoopCount = UBound(allLoopData,2)
rsLoop.close : set rsLoop = nothing
for iSub = 0 to LoopCount
LoopMemberID = allLoopData(0, iSub)
LoopCatID = allLoopData(1, iSub)
LoopForumID = allLoopData(2, iSub)
LoopTopicID = allLoopData(3, iSub)
LoopMemberName = allLoopData(4, iSub)
LoopMemberEmail = allLoopData(5, iSub)
if chkForumAccess(ForumID, LoopMemberID, false) <> FALSE then
strSql = "SELECT R_MESSAGE, REPLY_ID from " & strTablePrefix & "REPLY WHERE TOPIC_ID = " & LoopTopicID & " ORDER BY REPLY_ID DESC"
set rsRpl = my_Conn.Execute(strSql)
if not rsRpl.EOF then
strNewMessage=rsRpl("R_MESSAGE")
rsRpl.Close
else
strSql = "SELECT T_MESSAGE FROM " & strTablePrefix & "TOPICS WHERE TOPIC_ID=" & LoopTopicID
set rsMsg = my_Conn.Execute(strSql)
if not rsMsg.EOF then
strNewMessage=rsMsg("T_MESSAGE")
rsMsg.Close
end if
set rsMsg=Nothing
end if
strRecipientsName = LoopMemberName
strRecipients = LoopMemberEmail
strMessage = "Hello " & LoopMemberName & vbNewline & vbNewline
if LoopCatID > 0 then
if LoopTopicID > 0 then
strSubject = strForumTitle & " - Reply to a posting in " & ForumName & " - " & TopicName
strMessage = strMessage & MemberName & " has replied to the topic '" & TopicName & "' on the forum '" & ForumName & "' at " & strForumTitle & " that you requested notification on. " & vbNewline & vbNewline
strMessage = strMessage & "Subject: " & TopicName & vbNewline & vbNewline
strMessage = strMessage & "Message: " & vbNewline & "==========================" & vbNewline
strMessage = strMessage & strNewMessage & vbNewline & "==========================" & vbNewline & vbNewline & vbNewline
else
strSubject = strForumTitle & " - New posting in " & ForumName & " - " & TopicName
strMessage = strMessage & MemberName & " has posted the following to the forum '" & ForumName & "' at " & strForumTitle & " that you requested notification on. " & vbNewline & vbNewline
strMessage = strMessage & "Subject: " & TopicName & vbNewline & vbNewline
strMessage = strMessage & "Message: " & vbNewline & "==========================" & vbNewline
strMessage = strMessage & strNewMessage & vbNewline & "==========================" & vbNewline & vbNewline & vbNewline
end if
else
strSubject = strForumTitle & " - New posting in " & ForumName & " - " & TopicName
strMessage = strMessage & MemberName & " has replied to the topic '" & TopicName & "' on the forum '" & ForumName & "' in the category '" & CatName & "' at " & strForumTitle & " that you requested notification on. " & vbNewline & vbNewline
strMessage = strMessage & "Subject: " & TopicName & vbNewline & vbNewline
strMessage = strMessage & "Message: " & vbNewline & "==========================" & vbNewline
strMessage = strMessage & strNewMessage & vbNewline & "==========================" & vbNewline & vbNewline & vbNewline
end if
else
strSubject = strForumTitle & " - New posting"
strMessage = strMessage & MemberName & " has posted to the " & strForumTitle & " board that you requested notification on. "
end if
strMessage = strMessage & "You can view the posting at " & strForumURL & "topic.asp?TOPIC_ID=" & TopicId & vbNewline
%>
<!--#INCLUDE FILE="inc_mail.asp" -->
<%
next
end if
end sub
' PullSubscriptions - will return a list of the subcriptions that exist for a member
Function PullSubscriptions(sCatID, sForumID, sTopicID)
' -- if subscriptions or e-mail are not turned on, or the person is not logged in, exit...
If strSubscription = "0" or lcase(strEmail) <> "1" or mlev = 0 then
PullSubscriptions = "" : Exit Function
End if
' -- declare the variables used in this function
Dim BoardSubs, CatSubs, ForumSubs, TopicSubs, rsSub, SubCnt, allSubData, iSub
Dim SubCatID, SubForumID, SubTopicID
' -- build the appropriate sql statement...
subStrSQL = "SELECT CAT_ID, FORUM_ID, TOPIC_ID " & _
" FROM " & strTablePrefix & "SUBSCRIPTIONS" & _
" WHERE MEMBER_ID = " & MemberID
' GetCheck will return the correct SQL statement for the optional parameters....
subStrSQL = subStrSQL & GetCheck("CAT_ID", Clng(sCatID))
subStrSQL = subStrSQL & GetCheck("FORUM_ID", Clng(sForumID))
subStrSQL = subStrSQL & GetCheck("TOPIC_ID", Clng(sTopicID))
' -- execute the sql statement...
'Response.Write substrSql
'Response.End
Set rsSub = Server.CreateObject("ADODB.Recordset")
rsSub.open subStrSQL, my_Conn, adOpenForwardOnly, adLockReadOnly, adCmdText
if rsSub.EOF or rsSub.BOF then
' If none found, exit
SubCnt = ""
PullSubscriptions = ""
else
' Pull the data from the recordset
allSubData = rsSub.GetRows(adGetRowsRest)
SubCnt = UBound(allSubData,2)
end if
rsSub.Close
set rsSub = Nothing
if SubCnt = "" then
' If none found, exit
PullSubscriptions = ""
else
BoardSubs = "N"
CatSubs = 0
ForumSubs = 0
TopicSubs = 0
for iSub = 0 to SubCnt
SubCatID = allSubData(0, iSub)
SubForumID = allSubData(1, iSub)
SubTopicID = allSubData(2, iSub)
If SubCatID = 0 then
BoardSubs = "Y"
Elseif SubForumID = 0 then
If CatSubs > "" then CatSubs = CatSubs & ","
CatSubs = CatSubs & SubCatID
Elseif SubTopicID = 0 then
If ForumSubs > "" then ForumSubs = ForumSubs & ","
ForumSubs = ForumSubs & SubForumID
Else
If TopicSubs > "" then TopicSubs = TopicSubs & ","
TopicSubs = TopicSubs & SubTopicID
End If
next
PullSubscriptions = BoardSubs & ";" & CatSubs & ";" & ForumSubs & ";" & TopicSubs
end if
End Function
' GetCheck standardizes the handling of optional parameters in PullSubscriptions
Function GetCheck(ObjectName, ObjectID)
If ObjectID > 0 then
GetCheck = " AND " & ObjectName & " = " & ObjectID
Elseif ObjectID = -99 then
GetCheck = " AND " & ObjectName & " = 0"
Else
GetCheck = ""
End If
End Function
' Displays the appropriate link, icon and message(if appropriate) for subscriptions...
Function ShowSubLink (SubOption, CatID, ForumID, TopicID, ShowText)
Dim DefaultFont
DefaultFont = "<font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>"
' -- Declare variables...
Dim StandardLinkInfo, LinkText, LinkIcon, LinkLevel, LinkParam
if Instr(Request.ServerVariables("SCRIPT_NAME"),"post.asp") then
' -- Only show the checkboxes on the post page...
if SubOption = "S" then
ShowSubLink = "<input type=""checkbox"" name=""Tnotify"" value=""1"" />Check here to subscribe to this topic."
else
ShowSubLink = "<input type=""checkbox"" name=""Tnotify"" value=""0"" />Check here to unsubscribe from this topic."
end if
else
' -- Standard Link
StandardLinkInfo = "<a href=""Javascript:"
if SubOption = "U" then
StandardLinkInfo = StandardLinkInfo & "unsub_confirm"
else
StandardLinkInfo = StandardLinkInfo & "openWindow"
end if
StandardLinkInfo = StandardLinkInfo & "('pop_subscription.asp?SUBSCRIBE=" & SubOption & "&MEMBER_ID=" & MemberID & "&LEVEL="
' -- Get appropriate text and icon to display
LinkParam = ""
if CatID = 0 then
LinkLevel = "BOARD"
else
LinkParam = "&CAT_ID=" & CatID
if ForumID = 0 then
LinkLevel = "CAT"
else
LinkParam = LinkParam & "&FORUM_ID=" & ForumID
if TopicID = 0 then
LinkLevel = "FORUM"
else
LinkLevel = "TOPIC" : LinkParam = LinkParam & "&TOPIC_ID=" & TopicID
end if
end if
end if
if SubOption = "U" then
LinkIcon = strIconUnsubscribe
select case LinkLevel
case "BOARD" : LinkText = "Unsubscribe from this board"
case "CAT" : LinkText = "Unsubscribe from this category"
case "FORUM" : LinkText = "Unsubscribe from this forum"
case "TOPIC" : LinkText = "Unsubscribe from this topic"
end select
else
LinkIcon = strIconSubscribe
select case LinkLevel
case "BOARD" : LinkText = "Subscribe to this board"
case "CAT" : LinkText = "Subscribe to this category"
case "FORUM" : LinkText = "Subscribe to this forum"
case "TOPIC" : LinkText = "Subscribe to this topic"
end select
end if
ShowSubLink = StandardLinkInfo & LinkLevel & LinkParam & "')"">" & getCurrentIcon(LinkIcon, LinkText,"align=""absmiddle""" & dwStatus(LinkText)) & "</a>"
if ShowText <> "N" then
ShowSubLink = ShowSubLink & " " & StandardLinkInfo & LinkLevel & LinkParam & "')""" & dwStatus(LinkText) & ">" & DefaultFont & LinkText & "</font></a>"
end if
end if
end function
Function StripCode(ByVal fString)
if fString = "" or IsNull(fString) then
fString = " empty string test"
elseif strAllowForumCode = "1" then
'filter out forumcode
fStringLeft = ""
fFound = False
Do While InStr(fString, "[")
fFound = True
fStringLeft = fStringLeft & " " & Left(fString, InStr(fString, "[")-1)
fString = MID(fString, InStr(fString, "]") + 1)
Loop
StripCode = fStringLeft & fString
If Not fFound Then StripCode = fString
elseif strAllowHTML = "1" then
' filter out html code
fStringLeft = ""
fFound = False
Do While InStr(fString, "<")
fFound = True
fStringLeft = fStringLeft & " " & Left(fString, InStr(fString, "<")-1)
fString = MID(fString, InStr(fString, ">") + 1)
Loop
StripCode = fStringLeft & fString
If Not fFound Then StripCode = fString
end if
if strBadWordFilter = "1" then
fString = ChkBadWords(fString)
end if
StripCode = fString
End Function
Response.Write " <script language=""JavaScript"" type=""text/javascript"">" & vbNewLine & _
" <!--" & vbNewLine & _
" function unsub_confirm(link){" & vbNewLine & _
" var where_to= confirm(""Do you really want to Unsubscribe?"");" & vbNewLine & _
" if (where_to== true) {" & vbNewLine & _
" popupWin = window.open(link,'new_page','width=400,height=400')" & vbNewLine & _
" }" & vbNewLine & _
" }" & vbNewLine & _
" //-->" & vbNewLine & _
" </script>" & vbNewLine
%>
desmo907
13 March 2010, 08:30
13 March 2010, 08:30
Now the site won't work and I get this in my browser:
Microsoft VBScript compilation error '800a0409'
Unterminated string constant
/forum/inc_subscription.asp, line 171
strSql = "SELECT T_MESSAGE FROM " & strTablePrefix & "TOPICS WHERE TOPIC_ID=" & LoopTopicID & "
-----------------------------------------------------------------------------------------------^
Microsoft VBScript compilation error '800a0409'
Unterminated string constant
/forum/inc_subscription.asp, line 171
strSql = "SELECT T_MESSAGE FROM " & strTablePrefix & "TOPICS WHERE TOPIC_ID=" & LoopTopicID & "
-----------------------------------------------------------------------------------------------^
Carefree
13 March 2010, 12:19
13 March 2010, 12:19
Delete the & " at the end of the line.
desmo907
13 March 2010, 16:57
13 March 2010, 16:57
Congrads and Thank you. This works well. I assume if anyone uses the formatting commands that code will just be embedded within the message as well but that's fine as many may not use it anyway.
Now I just need to figure out how to add another user variable to the Author column (it just shows the ID and Country and # of posts). I had changed one of the Member details "Occupation" to "Team" in various files and would like that to post under the ID.
Results are:
-------------------------------
Hello m
admin has replied to the topic 'Forum Registration & Getting Started' on the forum 'Forum Information' at Windsor Men's Softball League that you requested notification on.
Subject: Forum Registration & Getting Started Message:
==========================
Game is off
field under water
==========================
You can view the posting at http://www.windsorsoftball.com/forum/topic.asp?TOPIC_ID=6
Now I just need to figure out how to add another user variable to the Author column (it just shows the ID and Country and # of posts). I had changed one of the Member details "Occupation" to "Team" in various files and would like that to post under the ID.
Results are:
-------------------------------
Hello m
admin has replied to the topic 'Forum Registration & Getting Started' on the forum 'Forum Information' at Windsor Men's Softball League that you requested notification on.
Subject: Forum Registration & Getting Started Message:
==========================
Game is off
field under water
==========================
You can view the posting at http://www.windsorsoftball.com/forum/topic.asp?TOPIC_ID=6
Carefree
14 March 2010, 10:40
14 March 2010, 10:40
You should start a new topic with this request so people can search and follow it.
Now I just need to figure out how to add another user variable to the Author column (it just shows the ID and Country and # of posts). I had changed one of the Member details "Occupation" to "Team" in various files and would like that to post under the ID.
desmo907
14 March 2010, 12:04
14 March 2010, 12:04
I did here:
http://forum.snitz.com/forum/topic.asp?TOPIC_ID=69208
Thanks for the help.
http://forum.snitz.com/forum/topic.asp?TOPIC_ID=69208
Thanks for the help.
korray
19 September 2011, 11:11
19 September 2011, 11:11
hey I am new here. I just tried the code Carefree sent, but I get an empty message like below:
Message:
==========================
==========================
or:
Message:
==========================
empty string test
==========================
I am using the exact code you sent and running: [Snitz Forums 2000 Version 3.4.06]
can you please help or send me the latest version that inc_subscription.asp file? thanks a lot.
Message:
==========================
==========================
or:
Message:
==========================
empty string test
==========================
I am using the exact code you sent and running: [Snitz Forums 2000 Version 3.4.06]
can you please help or send me the latest version that inc_subscription.asp file? thanks a lot.
Carefree
19 September 2011, 15:51
That was quite some time ago, I'll look at it - but that code was for version 3.4.07 - I'll have to check differences.
This is 3.4.06 compatible.
19 September 2011, 15:51
This is 3.4.06 compatible.
Code:
<%
'###############################################################################
'##
'## Snitz Forums 2000 v3.4.07
'##
'###############################################################################
'##
'## Copyright © 2000-09 Michael Anderson, Pierre Gorissen,
'## Huw Reddick and Richard Kinser
'##
'## This program is free. You can redistribute and/or modify it under the
'## terms of the GNU General Public License as published by the Free Software
'## Foundation; either version 2 or (at your option) any later version.
'##'## All copyright notices regarding Snitz Forums 2000 must remain intact in
'## the scripts and in the HTML output. 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 an 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:
'##
'## Free Software Foundation, Inc.
'## 59 Temple Place, Suite 330
'## Boston, MA 02111-1307
'##
'## Support can be obtained from our support forums at:
'##
'## http://forum.snitz.com
'##
'## Correspondence and marketing questions can be sent to:
'##
'## manderson@snitz.com
'##
'###############################################################################
Sub ProcessSubScriptions (pMemberId, CatID, ForumId, TopicId, Moderation)
ThisMemberID = MemberID
If strSubscription = 0 or strEmail = 0 Then
Exit Sub
End If
strSql = "SELECT C.CAT_SUBSCRIPTION, C.CAT_NAME, F.F_SUBJECT, F.F_SUBSCRIPTION, T.T_SUBJECT, M.M_NAME " & _
" FROM " & strTablePrefix & "CATEGORY C, " & _
" " & strTablePrefix & "FORUM F, " & _
" " & strTablePrefix & "TOPICS T, " & _
" " & strMemberTablePrefix & "MEMBERS M " & _
" WHERE C.CAT_ID = " & CatID & " AND F.FORUM_ID = " & ForumID & _
" AND T.TOPIC_ID = " & TopicID & " AND M.MEMBER_ID = " & pMemberID
Set rsSub = Server.CreateObject("ADODB.Recordset")
rsSub.Open strSql, my_Conn
If not (RsSub.EOF or RsSub.BOF) Then
Set rsSub = Nothing
Exit Sub
Else
allSubsData = rsSub.GetRows(adGetRowsRest)
SubCnt = UBound(allSubsData,2)
rsSub.Close
Set rsSub = Nothing
End If
CatSubscription = allSubsData(0, 0)
CatName = allSubsData(1, 0)
ForumName = allSubsData(2, 0)
ForumSubscription = allSubsData(3, 0)
TopicName = allSubsData(4, 0)
MemberName = allSubsData(5, 0)
If CatSubscription = 0 or ForumSubscription = 0 Then
Exit Sub
End If
If strSubscription = 4 or CatSubscription = 3 or ForumSubscription = 2 Then
SubLevel = "TOPIC"
ElseIf strSubscription = 3 Then
SubLevel = "FORUM"
ElseIf CatSubscription > 1 Then
SubLevel = "FORUM"
ElseIf strSubscription > 1 Then
SubLevel = "CATEGORY"
Else
SubLevel = "ALL"
End If
If Moderation <> "No" Then
strSql = "SELECT MOD_ID from " & strTablePrefix & "MODERATOR"
Set modCheck = Server.CreateObject("ADODB.Recordset")
modCheck.Open strSql, my_Conn
If modCheck.EOF or modCheck.BOF Then
strUniqueModID = "none"
Else
strUniqueModID = modCheck("Mod_ID")
End If
modCheck.Close
Set modCheck = Nothing
Else
strUniqueModID = "none"
End If
strSql = "SELECT S.MEMBER_ID, S.CAT_ID, S.TOPIC_ID, S.FORUM_ID, S.LAST_EMAIL, M.M_EMAIL, M.M_NAME, M.M_LASTHEREDATE" & _
" FROM " & strTablePrefix & "SUBSCRIPTIONS S, " & strMemberTablePrefix & "MEMBERS M"
If Moderation <> "No" and strUniqueModID <> "none" Then
strSql = strSql & ", " & strTablePrefix & "MODERATOR Mo"
End If
strSql = strSql & " WHERE S.MEMBER_ID <> " & pMemberID & _
" AND S.MEMBER_ID <> " & ThisMemberID & _
" AND M.MEMBER_ID = S.MEMBER_ID" & _
" AND M.M_STATUS <> 0" & _
" AND (S.TOPIC_ID = " & TopicId
If SubLevel <> "TOPIC" Then
strSql = strSql & " OR (S.CAT_ID = " & CatID & " AND S.FORUM_ID = " & ForumID & " AND S.TOPIC_ID = 0)"
End If
If SubLevel = "CATEGORY" or SubLevel = "ALL" Then
strSql = strSql & " OR (S.CAT_ID = " & CatID & " AND S.FORUM_ID = 0 AND S.TOPIC_ID = 0)"
End If
If SubLevel = "ALL" Then
strSql = strSql & " OR (S.CAT_ID = 0 AND S.FORUM_ID = 0 AND S.TOPIC_ID = 0)"
End If
strSql = strSql & ")"
If Moderation <> "No" Then
StrSql = StrSql & " AND ((M.M_LEVEL > 2"
If strUniqueModID = "none" Then
strSql = strSql & "))"
Else
strSql = strSql & " AND Mo.MOD_ID = " & strUniqueModID & ") OR (M.M_LEVEL = 2 AND S.MEMBER_ID = Mo.MEMBER_ID AND Mo.FORUM_ID = " & ForumId & "))"
End If
End If
Set rsLoop = Server.CreateObject("ADODB.Recordset") : rsLoop.Open strSql, my_Conn
If not (rsLoop.EOF or rsLoop.BOF) Then
allLoopData = rsLoop.GetRows(adGetRowsRest) : LoopCount = UBound(allLoopData,2)
rsLoop.Close
Set rsLoop = Nothing
For iSub = 0 to LoopCount
LoopMemberID = allLoopData(0, iSub)
LoopCatID = allLoopData(1, iSub)
LoopForumID = allLoopData(2, iSub)
LoopTopicID = allLoopData(3, iSub)
LoopMemberName = allLoopData(4, iSub)
LoopMemberEmail = allLoopData(5, iSub)
If chkForumAccess(ForumID, LoopMemberID, false) <> FALSE Then
strSql = "SELECT R_MESSAGE, REPLY_ID from " & strTablePrefix & "REPLY WHERE TOPIC_ID = " & TopicID & " ORDER BY REPLY_ID DESC"
Set rsRpl = my_Conn.Execute(strSql)
If not rsRpl.EOF Then
strNewMessage=rsRpl("R_MESSAGE")
rsRpl.Close
Else
strSql = "SELECT T_MESSAGE FROM " & strTablePrefix & "TOPICS WHERE TOPIC_ID=" & TopicID
Set rsMsg = my_Conn.Execute(strSql)
If not rsMsg.EOF Then
strNewMessage=rsMsg("T_MESSAGE")
rsMsg.Close
End If
Set rsMsg=Nothing
End If
strRecipientsName = LoopMemberName
strRecipients = LoopMemberEmail
strMessage = "Hello " & LoopMemberName & vbNewline & vbNewline
If LoopCatID > 0 Then
if LoopForumID > 0 then
If LoopTopicID > 0 Then
strSubject = strForumTitle & " - Reply to a posting in " & ForumName & " - " & TopicName
strMessage = strMessage & MemberName & " has replied to the topic '" & TopicName & "' on the forum '" & ForumName & "' at " & strForumTitle & " that you requested notification on. " & vbNewline & vbNewline
strMessage = strMessage & "Subject: " & TopicName & vbNewline & vbNewline
strMessage = strMessage & "Message: " & vbNewline & "==========================" & vbNewline
strMessage = strMessage & StripCode(strNewMessage) & vbNewline & "==========================" & vbNewline & vbNewline & vbNewline
Else
strSubject = strForumTitle & " - New posting in " & ForumName & " - " & TopicName
strMessage = strMessage & MemberName & " has posted the following to the forum '" & ForumName & "' at " & strForumTitle & " that you requested notification on. " & vbNewline & vbNewline
strMessage = strMessage & "Subject: " & TopicName & vbNewline & vbNewline
strMessage = strMessage & "Message: " & vbNewline & "==========================" & vbNewline
strMessage = strMessage & StripCode(strNewMessage) & vbNewline & "==========================" & vbNewline & vbNewline & vbNewline
End If
Else
strSubject = strForumTitle & " - New posting in " & ForumName & " - " & TopicName
strMessage = strMessage & MemberName & " has replied to the topic '" & TopicName & "' on the forum '" & ForumName & "' in the category '" & CatName & "' at " & strForumTitle & " that you requested notification on. " & vbNewline & vbNewline
strMessage = strMessage & "Subject: " & TopicName & vbNewline & vbNewline
strMessage = strMessage & "Message: " & vbNewline & "==========================" & vbNewline
strMessage = strMessage & StripCode(strNewMessage) & vbNewline & "==========================" & vbNewline & vbNewline & vbNewline
End If
Else
strSubject = strForumTitle & " - New posting"
strMessage = strMessage & MemberName & " has posted to the " & strForumTitle & " board that you requested notification on. "
End If
strMessage = strMessage & "You can view the posting at " & strForumURL & "topic.asp?whichpage=-1&TOPIC_ID=" & TopicId & vbNewline
strMessage = strMessage & "<br><br>Manage your subscriptions at " & strForumURL & "subscription_list.asp" & vbNewline
%>
<!--#INCLUDE FILE="inc_mail.asp" -->
<%
end if
Next
End If
End Sub
Function PullSubscriptions(sCatID, sForumID, sTopicID)
If strSubscription = "0" or lcase(strEmail) <> "1" or mLev = 0 Then
PullSubscriptions = "" : Exit Function
End If
Dim BoardSubs, CatSubs, ForumSubs, TopicSubs, rsSub, SubCnt, allSubData, iSub
Dim SubCatID, SubForumID, SubTopicID
subStrSQL = "SELECT CAT_ID, FORUM_ID, TOPIC_ID " & _
" FROM " & strTablePrefix & "SUBSCRIPTIONS" & _
" WHERE MEMBER_ID = " & MemberID
subStrSQL = subStrSQL & GetCheck("CAT_ID", Clng(sCatID))
subStrSQL = subStrSQL & GetCheck("FORUM_ID", Clng(sForumID))
subStrSQL = subStrSQL & GetCheck("TOPIC_ID", Clng(sTopicID))
Set rsSub = Server.CreateObject("ADODB.Recordset")
rsSub.Open subStrSQL, my_Conn, adOpenForwardOnly, adLockReadOnly, adCmdText
If rsSub.EOF or rsSub.BOF Then
SubCnt = ""
PullSubscriptions = ""
Else
allSubData = rsSub.GetRows(adGetRowsRest)
SubCnt = UBound(allSubData,2)
rsSub.Close
End If
Set rsSub = Nothing
If SubCnt = "" Then
PullSubscriptions = ""
Else
BoardSubs = "N"
CatSubs = 0
ForumSubs = 0
TopicSubs = 0
For iSub = 0 to SubCnt
SubCatID = allSubData(0, iSub)
SubForumID = allSubData(1, iSub)
SubTopicID = allSubData(2, iSub)
If SubCatID = 0 Then
BoardSubs = "Y"
ElseIf SubForumID = 0 Then
If CatSubs > "" Then
CatSubs = CatSubs & ","
End If
CatSubs = CatSubs & SubCatID
ElseIf SubTopicID = 0 Then
If ForumSubs > "" Then
ForumSubs = ForumSubs & ","
End If
ForumSubs = ForumSubs & SubForumID
Else
If TopicSubs > "" Then TopicSubs = TopicSubs & ","
TopicSubs = TopicSubs & SubTopicID
End If
Next
PullSubscriptions = BoardSubs & ";" & CatSubs & ";" & ForumSubs & ";" & TopicSubs
End If
End Function
Function GetCheck(ObjectName, ObjectID)
If ObjectID > 0 Then
GetCheck = " AND " & ObjectName & " = " & ObjectID
ElseIf ObjectID = -99 Then
GetCheck = " AND " & ObjectName & " = 0"
Else
GetCheck = ""
End If
End Function
Function ShowSubLink (SubOption, CatID, ForumID, TopicID, ShowText)
Dim DefaultFont
DefaultFont = "<font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>"
Dim StandardLinkInfo, LinkText, LinkIcon, LinkLevel, LinkParam
If Instr(Request.ServerVariables("SCRIPT_NAME"),"post.asp") Then
If SubOption = "S" Then
ShowSubLink = "<input type=""checkbox"" name=""Tnotify"" value=""1"" />Check here to subscribe to this topic."
Else
ShowSubLink = "<input type=""checkbox"" name=""Tnotify"" value=""0"" />Check here to unsubscribe from this topic."
End If
Else
StandardLinkInfo = "<a href=""Javascript:"
If SubOption = "U" Then
StandardLinkInfo = StandardLinkInfo & "unsub_confirm"
Else
StandardLinkInfo = StandardLinkInfo & "openWindow"
End If
StandardLinkInfo = StandardLinkInfo & "('pop_subscription.asp?SUBSCRIBE=" & SubOption & "&MEMBER_ID=" & MemberID & "&LEVEL="
LinkParam = ""
If CatID = 0 Then
LinkLevel = "BOARD"
Else
LinkParam = "&CAT_ID=" & CatID
If ForumID = 0 Then
LinkLevel = "CAT"
Else
LinkParam = LinkParam & "&FORUM_ID=" & ForumID
If TopicID = 0 Then
LinkLevel = "FORUM"
Else
LinkLevel = "TOPIC" : LinkParam = LinkParam & "&TOPIC_ID=" & TopicID
End If
End If
End If
If SubOption = "U" Then
LinkIcon = strIconUnsubscribe
select case LinkLevel
case "BOARD" : LinkText = "Unsubscribe from this board"
case "CAT" : LinkText = "Unsubscribe from this category"
case "FORUM" : LinkText = "Unsubscribe from this forum"
case "TOPIC" : LinkText = "Unsubscribe from this topic"
End select
Else
LinkIcon = strIconSubscribe
select case LinkLevel
case "BOARD" : LinkText = "Subscribe to this board"
case "CAT" : LinkText = "Subscribe to this category"
case "FORUM" : LinkText = "Subscribe to this forum"
case "TOPIC" : LinkText = "Subscribe to this topic"
End select
End If
ShowSubLink = StandardLinkInfo & LinkLevel & LinkParam & "')"">" & getCurrentIcon(LinkIcon, LinkText,"align=""absmiddle""" & dwStatus(LinkText)) & "</a>"
If ShowText <> "N" Then
ShowSubLink = ShowSubLink & " " & StandardLinkInfo & LinkLevel & LinkParam & "')""" & dwStatus(LinkText) & ">" & DefaultFont & LinkText & "</font></a>"
End If
End If
End Function
Function StripCode(ByVal fString)
If fString = "" Then
fString = " empty string test"
ElseIf strAllowForumCode = "1" Then
fStringLeft = ""
fFound = False
Do While InStr(fString, "[")
fFound = True
fStringLeft = fStringLeft & " " & Left(fString, InStr(fString, "[")-1)
fString = MID(fString, InStr(fString, "]") + 1)
Loop
StripCode = fStringLeft & fString
If Not fFound Then
StripCode = fString
End If
ElseIf strAllowHTML = "1" Then
fStringLeft = ""
fFound = False
Do While InStr(fString, "<")
fFound = True
fStringLeft = fStringLeft & " " & Left(fString, InStr(fString, "<")-1)
fString = MID(fString, InStr(fString, ">") + 1)
Loop
StripCode = fStringLeft & fString
If Not fFound Then
StripCode = fString
End If
End If
If strBadWordFilter = "1" Then
fString = ChkBadWords(fString)
End If
StripCode = fString
End Function
Response.Write " <script language=""JavaScript"" type=""text/javascript"">" & vbNewLine & _
" <!--" & vbNewLine & _
" function unsub_confirm(link){" & vbNewLine & _
" var where_to= confirm(""Do you really want to Unsubscribe?"");" & vbNewLine & _
" if (where_to== true) {" & vbNewLine & _
" popupWin = window.open(link,'new_page','width=400,height=400')" & vbNewLine & _
" }" & vbNewLine & _
" }" & vbNewLine & _
" //-->" & vbNewLine & _
" </script>" & vbNewLine
%>
korray
19 September 2011, 17:25
19 September 2011, 17:25
Thanks a lot for your help Carefree.
I tried the new code, but it gives the following error. Can you check it out?
Microsoft OLE DB Provider for ODBC Drivers error '80040e10'
[Microsoft][ODBC Microsoft Access Driver] Too few parameters. Expected 1.
/disabb/inc_subscription.asp, line 127
I tried the new code, but it gives the following error. Can you check it out?
Microsoft OLE DB Provider for ODBC Drivers error '80040e10'
[Microsoft][ODBC Microsoft Access Driver] Too few parameters. Expected 1.
/disabb/inc_subscription.asp, line 127
Carefree
19 September 2011, 18:30
19 September 2011, 18:30
Oops, sorry - forgot to post the 3.4.06 version. See above.
korray
20 September 2011, 12:47
20 September 2011, 12:47
another error with the updated code:
Microsoft VBScript compilation error '800a0400'
Expected statement
/disabb/inc_subscription.asp, line 188
End If
^
Microsoft VBScript compilation error '800a0400'
Expected statement
/disabb/inc_subscription.asp, line 188
End If
^
Carefree
20 September 2011, 13:09
20 September 2011, 13:09
Originally posted by korrayDelete that line
another error with the updated code:
Microsoft VBScript compilation error '800a0400'
Expected statement
/disabb/inc_subscription.asp, line 188
End If
^
korray
20 September 2011, 17:35
20 September 2011, 17:35
this did not help to solve the problem.
Carefree
20 September 2011, 22:41
20 September 2011, 22:41
I'll install a 3.4.06 forum and test it here.
korray
22 September 2011, 17:03
22 September 2011, 17:03
any updates, any one?
Carefree
23 September 2011, 01:11
23 September 2011, 01:11
Tested the code above on a stock 3.4.06 installation here and does not give an error.