Author |
Topic  |
ale34
Starting Member
13 Posts |
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>< |
Edited by - Shaggy on 09 November 2006 08:08:50 |
 |
|
ale34
Starting Member
13 Posts |
Posted - 09 November 2006 : 08:11:54
|
Sorry, I did not understand  < |
 |
|
Shaggy
Support Moderator
    
Ireland
6780 Posts |
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.
< |
Search is your friend “I was having a mildly paranoid day, mostly due to the fact that the mad priest lady from over the river had taken to nailing weasels to my front door again.” |
 |
|
ale34
Starting Member
13 Posts |
|
Shaggy
Support Moderator
    
Ireland
6780 Posts |
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.
< |
Search is your friend “I was having a mildly paranoid day, mostly due to the fact that the mad priest lady from over the river had taken to nailing weasels to my front door again.” |
 |
|
ale34
Starting Member
13 Posts |
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....< |
 |
|
ale34
Starting Member
13 Posts |
Posted - 09 November 2006 : 19:31:31
|
Ok it is done!
Thank you.. < |
 |
|
Shaggy
Support Moderator
    
Ireland
6780 Posts |
Posted - 10 November 2006 : 03:59:52
|
You're welcome 
< |
Search is your friend “I was having a mildly paranoid day, mostly due to the fact that the mad priest lady from over the river had taken to nailing weasels to my front door again.” |
 |
|
sokkmonkey
Starting Member
5 Posts |
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< |
 |
|
davidm
Starting Member
United Kingdom
4 Posts |
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? < |
 |
|
Carefree
Advanced Member
    
Philippines
4212 Posts |
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"< |
 |
|
flhtci01
Starting Member
6 Posts |
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?< |
 |
|
HuwR
Forum Admin
    
United Kingdom
20593 Posts |
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
Starting Member
6 Posts |
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 < |
Edited by - flhtci01 on 04 October 2008 14:35:29 |
 |
|
Topic  |
|