Snitz Forums 2000 - PM mod not displaying some icons

Snitz Forums 2000

Username:	Password:
Save Password
Forgot your Password?

All Forums

Help Groups for Snitz Forums 2000 Users

Help: MOD Implementation

PM mod not displaying some icons

New Topic

Topic Locked

Printer Friendly

Author

Topic

Horsepower
Starting Member

10 Posts

Posted - 21 December 2003 : 21:18:11

Hello all,
My forum is not displaying the

or the

images in the main page as can be seen here http://www.nastyzbay.com/nothing.jpg.

Here's my inc_privatemessage.asp file,

<%
' Uncomment the following for the Deluxe Version

Response.Write	"      <table width=""150"" border=""0"" cellspacing=""0"" cellpadding=""0"">" & vbNewLine & _
		"        <tr>" & vbNewLine & _
		"          <td bgcolor=""" & strTableBorderColor & """ valign=""top"">" & vbNewLine & _
		"            <table width=""100%"" border=""0"" cellspacing=""1"" cellpadding=""4"" align=""center"">" & vbNewLine & _
		"              <tr>" & vbNewLine & _
		"                <td align=""center"" bgcolor=""" & strCategoryCellColor & """><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strCategoryFontColor & """>Private Messages</font></b></td>" & vbNewLine & _
		"              </tr>" & vbNewLine & _
		"              <tr>" & vbNewLine & _
		"                <td bgcolor=""" & strForumCellColor & """ valign=""top"">" & vbNewLine & _
		"                  <table border=""0"" cellpadding=""6"" cellspacing=""0"" width=""90%"" align=""center"">" & vbNewLine & _
		"                    <tr valign=""top"">" & vbNewLine & _
		"                      <td valign=""top""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strForumFontColor & """>" & vbNewLine
		
Response.Write "<table width=""150"" cellpadding=""0"" cellspacing=""0"" border=""0"">" & VbCrlf & _
					"<tr>" & VbCrlf & _
					"<td valign=""top"" align=""center"" bgcolor=" & strForumCellColor & " width=""100%"">"

if trim(strDBNTUserName) <> "" and trim(Request.Cookies(strUniqueID & "User")("Pword")) <> "" then 
    
    Dim strSql
      ' Get Private Message count for display on Default.asp
	if strDBType = "access" then
		strSqL = "SELECT count(M_TO) as [pmcount] " 
	else
        	strSqL = "SELECT count(M_TO) as pmcount " 
    	end if
		strSql = strSql & " FROM " & strMemberTablePrefix & "MEMBERS , " & strTablePrefix & "PM "
		strSql = strSql & " WHERE " & strMemberTablePrefix & "MEMBERS.M_NAME = '" & strDBNTUserName & "'"
		strSql = strSql & " AND " & strMemberTablePrefix & "MEMBERS.MEMBER_ID = " & strTablePrefix & "PM.M_TO "
		strSql = strSql & " AND " & strTablePrefix & "PM.M_READ = 0 " 
        
        Dim rsPM
		Set rsPM = my_Conn.Execute(strSql)
		pmcount = rsPM("pmcount")
		rsPM.Close
		set rsPM = Nothing

		 if strDBNTUserName = "" Then
		 
Response.Write "<img SRC=""" & strImageURL & "icon_pmdead.gif"" WIDTH=""12"" HEIGHT=""16"" align=""center"">"
            
            else
               if pmcount = 0 then
               
Response.Write "<a HREF=""" & strForumURL & "pm_view.asp""><img SRC=""" & strImageURL & "icon_pm2.gif"" border=""0"" hspace=""1"" vspace=""0"" WIDTH=""140"" HEIGHT=""36"" align=""center"" ALT=""PM Inbox""></A>"
               
                end if
                end if
             
             if strAuthType="nt" then
             
Response.Write strDBNTUserName & " (" & strDBNTUserName & ")"

             else
             
             if pmcount >=1 then
             
Response.Write "<a HREF=""" & strForumURL & "pm_view.asp""><img SRC=""" & strImageURL & "icon_pm_new2.gif""  border=""0"" hspace=""1"" vspace=""0"" WIDTH=""140"" HEIGHT=""36"" ALT=""New Private Message!"" align=""center""></a>"
             else
'got mail image
            end if
               
           end if
           end if
           
Response.Write "</td>" & VbCrlf & _
			   "</tr>" & VbCrlf & _
			   "</table>" & vbCrlf			   
'Uncomment the rest for Deluxe Version.
Response.Write "</td>" & VbCrlf & _
			   "</tr>" & VbCrlf & _
			   "</table>" & vbCrlf & _
			   "</td>" & VbCrlf & _
			   "</tr>" & VbCrlf & _
			   "</table>" & vbCrlf & _
			   "</td>" & VbCrlf & _
			   "</tr>" & VbCrlf & _
			   "</table>" & vbCrlf
%>

Any help is appreciated!

masterao
Senior Member

Sweden
1678 Posts

Posted - 22 December 2003 : 00:59:44

Are you using NT authentification on your website? If you aren't, replace the content of
your inc_privatemessage.asp with the following (don't forget to keep a backup of
your original inc_privatemessage.asp):


<%
' Uncomment the following for the Deluxe Version

Response.Write	"      <table width=""150"" border=""0"" cellspacing=""0"" cellpadding=""0"">" & vbNewLine & _
		"        <tr>" & vbNewLine & _
		"          <td bgcolor=""" & strTableBorderColor & """ valign=""top"">" & vbNewLine & _
		"            <table width=""100%"" border=""0"" cellspacing=""1"" cellpadding=""4"" align=""center"">" & vbNewLine & _
		"              <tr>" & vbNewLine & _
		"                <td align=""center"" bgcolor=""" & strCategoryCellColor & """><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strCategoryFontColor & """>Private Messages</font></b></td>" & vbNewLine & _
		"              </tr>" & vbNewLine & _
		"              <tr>" & vbNewLine & _
		"                <td bgcolor=""" & strForumCellColor & """ valign=""top"">" & vbNewLine & _
		"                  <table border=""0"" cellpadding=""6"" cellspacing=""0"" width=""90%"" align=""center"">" & vbNewLine & _
		"                    <tr valign=""top"">" & vbNewLine & _
		"                      <td valign=""top""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strForumFontColor & """>" & vbNewLine
		
Response.Write "<table width=""150"" cellpadding=""0"" cellspacing=""0"" border=""0"">" & VbCrlf & _
					"<tr>" & VbCrlf & _
					"<td valign=""top"" align=""center"" bgcolor=" & strForumCellColor & " width=""100%"">"

if trim(strDBNTUserName) <> "" and trim(Request.Cookies(strUniqueID & "User")("Pword")) <> "" then 
    
    Dim strSql
      ' Get Private Message count for display on Default.asp
	if strDBType = "access" then
		strSqL = "SELECT count(M_TO) as [pmcount] " 
	else
        	strSqL = "SELECT count(M_TO) as pmcount " 
    end if
		strSql = strSql & " FROM " & strMemberTablePrefix & "MEMBERS , " & strTablePrefix & "PM "
		strSql = strSql & " WHERE " & strMemberTablePrefix & "MEMBERS.M_NAME = '" & strDBNTUserName & "'"
		strSql = strSql & " AND " & strMemberTablePrefix & "MEMBERS.MEMBER_ID = " & strTablePrefix & "PM.M_TO "
		strSql = strSql & " AND " & strTablePrefix & "PM.M_READ = 0 " 
        
        Dim rsPM
		Set rsPM = my_Conn.Execute(strSql)
		pmcount = rsPM("pmcount")
		rsPM.Close
		set rsPM = Nothing

        if pmcount >=1 then
           Response.Write "<a HREF=""" & strForumURL & "pm_view.asp""><img SRC=""" & strImageURL & "icon_pm_new2.gif""  border=""0"" hspace=""1"" vspace=""0"" WIDTH=""140"" HEIGHT=""36"" ALT=""New Private Message!"" align=""center""></a>"
        else
           Response.Write "<a HREF=""" & strForumURL & "pm_view.asp""><img SRC=""" & strImageURL & "icon_pm2.gif"" border=""0"" hspace=""1"" vspace=""0"" WIDTH=""140"" HEIGHT=""36"" align=""center"" ALT=""PM Inbox""></A>"
        end if
               
end if

           
Response.Write "</td>" & VbCrlf & _
			   "</tr>" & VbCrlf & _
			   "</table>" & vbCrlf			   
'Uncomment the rest for Deluxe Version.
Response.Write "</td>" & VbCrlf & _
			   "</tr>" & VbCrlf & _
			   "</table>" & vbCrlf & _
			   "</td>" & VbCrlf & _
			   "</tr>" & VbCrlf & _
			   "</table>" & vbCrlf & _
			   "</td>" & VbCrlf & _
			   "</tr>" & VbCrlf & _
			   "</table>" & vbCrlf
%>

Jan
===========
FR Portal Forums | Active Users 4.0.20 Mod

Horsepower
Starting Member

10 Posts

Posted - 22 December 2003 : 01:14:08

I don't know if I have NT whatchamacalit or not, but I replaced it anyway. No effect whatsoever.

masterao
Senior Member

Sweden
1678 Posts

Posted - 22 December 2003 : 03:41:10

Ok. If you were using NT authentication, you would know.

Do you have a guest account which I could use on your forum? I would like to see the page's sourcecode to see if it prints anything at all. There is one thing which I have noticed, and that is that you have the text You have 0 new private message. in the picture you linked to, but that text is missing from the code you posted.

Could you also post a link to a text-version of your default.asp (don't post that file here, it is too long to be easily read)?

Jan
===========
FR Portal Forums | Active Users 4.0.20 Mod

Horsepower
Starting Member

10 Posts

Posted - 17 January 2004 : 20:15:41

I'll set up a guest account. Name guest, password guest.
Here's my default.asp www.nastyzbay.com/defaultasp.txt

masterao
Senior Member

Sweden
1678 Posts

Posted - 17 January 2004 : 21:29:49

In default.asp,

Replace this line:


with this:


Then, in inc_privatemessage.asp, replace all instances of icon_pm2.gif with icon_pmnomail.gif, and icon_pm_new2.gif with icon_pmgotmail.gif.

Then it should work as you want.

Jan
===========
FR Portal Forums | Active Users 4.0.20 Mod

Topic

New Topic

Topic Locked

Printer Friendly

Jump To:

Snitz Forums 2000

This page was generated in 0.41 seconds.