Snitz Forums 2000
Snitz Forums 2000
Home | Profile | Register | Active Topics | Members | Search | FAQ
Username:
Password:
Save Password
Forgot your Password?

 All Forums
 Snitz Forums 2000 MOD-Group
 MOD Add-On Forum (W/O Code)
 Email with the full text of a new post
 New Topic  Reply to Topic
 Printer Friendly
Previous Page
Author Previous Topic Topic Next Topic
Page: of 2

ale34
Starting Member

13 Posts

Posted - 09 November 2006 :  08:05:15  Show Profile  Reply with Quote
<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
Go to Top of Page

ale34
Starting Member

13 Posts

Posted - 09 November 2006 :  08:11:54  Show Profile  Reply with Quote
Sorry, I did not understand
<
Go to Top of Page

Shaggy
Support Moderator

Ireland
6780 Posts

Posted - 09 November 2006 :  08:16:19  Show Profile  Reply with Quote
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.”
Go to Top of Page

ale34
Starting Member

13 Posts

Posted - 09 November 2006 :  08:17:05  Show Profile  Reply with Quote
http://.........../inc_subscription.txt<

Edited by - ale34 on 09 November 2006 08:47:41
Go to Top of Page

Shaggy
Support Moderator

Ireland
6780 Posts

Posted - 09 November 2006 :  08:46:53  Show Profile  Reply with Quote
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.”
Go to Top of Page

ale34
Starting Member

13 Posts

Posted - 09 November 2006 :  08:49:39  Show Profile  Reply with Quote
Ooops,
I will chek...
Tank you!
I edited the link for security resaon if you do not mind....<
Go to Top of Page

ale34
Starting Member

13 Posts

Posted - 09 November 2006 :  19:31:31  Show Profile  Reply with Quote
Ok it is done!

Thank you..
<
Go to Top of Page

Shaggy
Support Moderator

Ireland
6780 Posts

Posted - 10 November 2006 :  03:59:52  Show Profile  Reply with Quote
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.”
Go to Top of Page

sokkmonkey
Starting Member

5 Posts

Posted - 25 October 2007 :  14:01:18  Show Profile  Reply with Quote
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<
Go to Top of Page

davidm
Starting Member

United Kingdom
4 Posts

Posted - 05 September 2008 :  12:09:10  Show Profile  Reply with Quote
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?
<
Go to Top of Page

Carefree
Advanced Member

Philippines
4212 Posts

Posted - 05 September 2008 :  14:42:16  Show Profile  Reply with Quote
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"<
Go to Top of Page

flhtci01
Starting Member

6 Posts

Posted - 03 October 2008 :  17:17:41  Show Profile  Reply with Quote
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?<
Go to Top of Page

HuwR
Forum Admin

United Kingdom
20593 Posts

Posted - 03 October 2008 :  18:02:00  Show Profile  Visit HuwR's Homepage  Reply with Quote
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<
Go to Top of Page

flhtci01
Starting Member

6 Posts

Posted - 03 October 2008 :  18:34:31  Show Profile  Reply with Quote
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
Go to Top of Page
Page: of 2 Previous Topic Topic Next Topic  
Previous Page
 New Topic  Reply to Topic
 Printer Friendly
Jump To:
Snitz Forums 2000 © 2000-2021 Snitz™ Communications Go To Top Of Page
This page was generated in 0.11 seconds. Powered By: Snitz Forums 2000 Version 3.4.07