| T O P I C R E V I E W |
| ale34 |
Posted - 08 November 2006 : 07:24:28
Hi,
my forum members are asking me for having by email the full text of a new post (forum subscription) instead of receiving a message with the link. Is it possible?
Thank you for your help
Alex< |
| 15 L A T E S T R E P L I E S (Newest First) |
| flhtci01 |
Posted - 03 October 2008 : 18:34:31
Thanks for the help on the syntax.
I now seeing the first message of the string in the email but that is all.
Also where is a good place to put the code to strip the html?
I have moved the file to http://www.southernregionnsp.org/inc_subscription.txt
< |
| HuwR |
Posted - 03 October 2008 : 18:02:00
you need an & after the string and before the vbNewline, like so
strMessage = strMessage & "You can view the posting by logging onto the Patrol Reps Forum " & vbNewline< |
| flhtci01 |
Posted - 03 October 2008 : 17:17:41
OK, I have no experience at this but am giving it a shot.
I have read this thread and trying to get this to work. The one thing I am trying to change is delete the link to the message and replace it with a message to log onto the forum to reply. (The link doesn't work due to the way the website security is set up.) (Long story)
Anyway I got the following error
Microsoft VBScript compilation error '800a0401'
Expected end of statement
/Members/Patrol_Reps_Forum/patrepbb/inc_subscription.asp, line 189
strMessage = strMessage & "You can view the posting by logging onto the Patrol Reps Forum " vbNewline
--------------------------------------------------------------------------------------------^
Can someone help me?< |
| Carefree |
Posted - 05 September 2008 : 14:42:16
If all you want is to break-up the various replies, that shouldn't be too difficult. The following modification should give you a blank line between replies.
Change this line:
strSubject = strForumTitle & " - Reply to a posting"
to say:
strSubject = "<br><br>" & strForumTitle & " - Reply to a posting"< |
| davidm |
Posted - 05 September 2008 : 12:09:10
I've followed these instructions and have created my email message like this:
strMessage = strMessage & MemberName & " has posted the following to the forum '" & ForumName & "' on the " & strForumTitle & ". " & vbNewLine & vbNewLine
strMessage = strMessage & "The subject was " & TopicName & vbNewLine & vbNewLine
strMessage = strMessage & " and the message reads: " &FormatStr(TopicContent) & ". " & vbNewLine & vbNewLine
The odd thing is despite the vbNewLines, I'm just getting the message all strung together in one line. How can I force a new line between the different blocks to make it all more readable?
< |
| sokkmonkey |
Posted - 25 October 2007 : 14:01:18
okay..
I tried this, the new read message is changed ok but it's still not showing the message body copy-
where did I go wrong?
http://www.rattlebrain.com/~sokkmonkey/inc_subscription.txt
Likewise if I was to add the following to strip the HTML and netcode, where would be a good place to stick it?
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< |
| Shaggy |
Posted - 10 November 2006 : 03:59:52
You're welcome 
< |
| ale34 |
Posted - 09 November 2006 : 19:31:31
Ok it is done!
Thank you..
< |
| ale34 |
Posted - 09 November 2006 : 08:49:39
Ooops,
I will chek...
Tank you!
I edited the link for security resaon if you do not mind....< |
| Shaggy |
Posted - 09 November 2006 : 08:46:53
You're missing the following line from your file, immediately before the changes I provided:
if LoopForumID > 0 then
You're also missing the corrections I made to the code earlier; you must've been editing as I was correcting.
< |
| ale34 |
Posted - 09 November 2006 : 08:17:05
http://.........../inc_subscription.txt< |
| Shaggy |
Posted - 09 November 2006 : 08:16:19
Save a copy of the file with a *.txt extension rather than *.asp, upload it to your server and post the link here.
< |
| ale34 |
Posted - 09 November 2006 : 08:11:54
Sorry, I did not understand 
< |
| ale34 |
Posted - 09 November 2006 : 08:05:15
<edit by="Shaggy">Please post a link to a *.txt copy of you file, as requested, rather than posting the entire contents of a file here</edit>< |
| Shaggy |
Posted - 09 November 2006 : 07:57:49
Did you replace that entire if statement with what I posted above? You should only have replaced the first part of it. Can you post a link to a *.txt copy of your inc_subscription.asp if that's not the problem?
< |
