I have been having one problem with the Private Messages Mod. I have everything working but the part on the Default forum page. Even if you are logged on it will say:
Log in to check your private messages.
Here is the code that I am using in the file privatemess.asp:
<% ' Get Private Message count for display on Default.asp dim pmcount 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 "
Set rsPM = my_Conn.Execute(strSql) if not rsPM.eof then pmcount = rsPM("pmcount") else pmcount = 0 end if rsPM.close Set rsPM = nothing %>
<tr> <td bgcolor="<% =strCategoryCellColor %>" colspan="<% if (strShowModerators = "1") or (mlev = 4 or mlev = 3) then Response.Write("7") else Response.Write("5")%>"> <font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>" color="<% =strCategoryFontColor %>" size="+1"><b>Private Messages</b></font></td> </tr> <tr> <td align="center" bgcolor="<% =strForumCellColor %>" valign="middle"> <% if strDBNTUserName = "" Then %> <IMG SRC="icon_pmdead.gif"> <% else if pmcount = 0 then %> <IMG SRC="icon_pm.gif"> <% end if if pmcount >= 1 then %> <IMG SRC="icon_pm_new.gif"> <% end if %> <% end if %> </td> <td valign=top bgcolor="<% =strForumCellColor %>" colspan="<% if (strShowModerators = "1") or (mlev = 4 or mlev = 3) then Response.Write("7") else Response.Write("5")%>"><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>" color="<% =strCategoryFontColor %>"><A HREF="pm_view.asp">Inbox</A></FONT><BR> <% if strDBNTUserName = "" Then %> <font face="<% =strDefaultFontFace %>" size="<% =strFooterFontSize %>" color="<% =strForumFontColor %>"> - Log in to check your private messages. </font> <% else %> <font face="<% =strDefaultFontFace %>" size="<% =strFooterFontSize %>" color="<% =strForumFontColor %>"><b> <% if strAuthType="nt" then %> <% =strDBNTUserName %> (<% =strDBNTUserName %>)</b> <% else %> <% if strAuthType = "db" then %> <% =strDBNTUserName %></b><% end if %><% end if %> - You have <% if pmcount >=1 then %><font color="<% =strActiveLinkColor %>"><b><% =pmcount %></b></font><% else %><% =pmcount %><% end if %> new private messages.</font> </td> </tr> <% end if %>
Topic Locked
Posted - 18 July 2001 : 20:52:12
