Snitz Forums 2000 - Private message MOD

Snitz Forums 2000

Username:	Password:
Save Password
Forgot your Password?

All Forums

Help Groups for Snitz Forums 2000 Users

Help: MOD Implementation

Private message MOD

New Topic

Topic Locked

Printer Friendly

Author

Topic

MAP
New Member

Italy
50 Posts

Posted - 09 September 2004 : 16:51:52

Hi,
I've done for 3 times the installation of the MOD above mentioned without positive result.

I've no idea regarding the solution of this fact, I obtain this message:

Microsoft VBScript compilation error '800a03ea'

Syntax error

/forum/inc_header.asp, line 531

if strPMStatus = "1" then
^

Here i put the inc_header.asp file in txt format: www.theservant.info/inc_header.txt

I Hope someone can adjust it for me...

Thanks in advance

MAP

OneWayMule
Dev. Team Member & Support Moderator

Austria
4969 Posts

Posted - 09 September 2004 : 16:55:51

Find the following code:

	Response.Write	"          |" & vbNewline & _
			"          <a href=""members.asp""" & dWStatus("" & fLang(strLangInc_Header00350) & "") & " tabindex=""-1""><acronym title=""" & fLang(strLangInc_Header00350) & """>" & fLang(strLangInc_Header00360) & "</acronym></a>" & vbNewline & _
			"          |" & vbNewline & _
			if strPMStatus = "1" then
	Response.Write "          <a href=""" & strForumURL & "pm_view.asp""" & dWStatus("Check Your Private Messages...") & " tabindex=""-1""><acronym title=""Check Your Private Messages..."">Private Messages" 
			if pmcount > 0 then Response.Write "(<font color=""" & strActiveLinkColor & """><b>" & pmcount & " New</b></font>)" 
	Response.Write "</acronym></a>" & vbNewline & _
			"          |" & vbNewline
			end if

and delete the red code.