First Run the database setup...
All ASP files included in this zip file are to be uploaded to your main forum directory except for inc_iconfile.asp and members.asp and pop_profile.asp. Those are included as examples of how the code should look when you have made the specified changes. Otherwise you will overwrite your other MODs. Images shpuld be uploaded to your forum image directory or your forum directory. Yes, I said it twice ; )

I recommend that all Access users use the Connectstring in your config.asp file labeled as Access2000 This mod will behave better with it, instead of the connectstring labeled as Access97. You can still use an Access97 database with the Access2000 connectstring.

examples of Access97 connectstrings: (not recommended that you use these with this mod)

'strConnString = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=c:\inetpub\dbroot\snitz_forums_2000.mdb" '## MS Access 97
'strConnString = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("/dbroot/snitz_forums_2000.mdb") '## MS Access 97 using virtual path

examples of Access2000 connectstrings:

'strConnString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\inetpub\dbroot\snitz_forums_2000.mdb;" '## MS Access 2000
'strConnString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("/fpdb/snitz_forums_2000.mdb") '## MS Access 2000 using virtual path

Goto your Admin Options and then click on "MOD Setup"

There are 2 options in the drop down box:

Private Messages Mod (Default) <-- All users should try this one first

Private Messages Mod for Access97 Connectstring <--

Access database users who receive an error with the first option should try this one. (only if there is no way for you to use the Access2000 connectstring) By using this one, there are 3 fields that don't get set with a DEFAULT value and you may experience problems running the Private Messages Mod.

TIP: Click the "Select All" link to select all of the text and then right-click in the textarea and choose "copy" from the context menu.

CONFIG.ASP.ASP
Add the following: (about line 128)
Select All
Dim strPMLimit, strPMStatus

Add the following: (about line 400)
Select All
strPMLimit = cint(Application(strCookieURL & "STRPMLIMIT")) strPMStatus = Application(strCookieURL & "STRPMSTATUS")

DEFAULT.ASP
Find: (about line 574)
Select All
if strShowStatistics = "1" then WriteStatistics end if

Right above that but below "end if" insert the following:
Select All
if strPMStatus = "1" then %> <!--#INCLUDE FILE="privatemess.asp"--> <% end if

INC_ICONFILES.ASP
Add the following: (about line 150)
Select All
'Add for Private Messages Const strIconPminbox = "pminbox.jpg|63|42" Const strIconPmoutbox = "pmoutbox.jpg|63|42" Const strIconPmnewBig = "Pmnew.jpg|63|42" Const strIconPmnewSm = "icon_pm_new.gif|15|15" Const strIconPmOld = "icon_pm_old.gif|15|15" Const strIconPmSend = "icon_Pm1.gif|15|15" Const strIconPmreceive = "pmreceive.jpg|63|42" Const strIconPmmemberlist = "Pmmemberlist.jpg|63|42" Const strIconPmprivpref = "Pmprivpref.jpg|63|42" Const strIconPmreply = "pmreply.jpg|63|42" Const strIconPmforward = "pmforward.jpg|63|42" Const strIconPmdelete = "pmdelete.jpg|63|42" Const strIconPmprivatemessage = "icon_privatemessage.gif|22|15"

ADMIN_HOME.ASP
Add the following: (about line 140)

This ads a link to admin_pmmaint.asp to your admin menu. This page is for adding/removing Private Messages from your pages and setting your PM variables and deleting old messages. You can choose to remove Private Messages that are 15,45 or 60 days old. You can also set the maximum number of PMs a member can send and turn PMs on and off.

Select All
" <LI><span class=""spnMessageText""><a href=""admin_pmmaint.asp"">Private Message Maintenance</a></span></LI>" & vbNewLine & _

MEMBERS.ASP
Find following: (about line 110)

Select All
strSql = strSql & "M_AIM, M_ICQ, M_MSN, M_YAHOO, M_TITLE, M_POSTS, M_LASTPOSTDATE, M_LASTHEREDATE, M_DATE "

Add ,M_PMRECEIVE to this line so it now looks like:

Select All
strSql = strSql & "M_AIM, M_ICQ, M_MSN, M_YAHOO, M_TITLE, M_POSTS, M_LASTPOSTDATE, M_LASTHEREDATE, M_DATE, M_PMRECEIVE "

Find following: (about line 148)

Select All
strSql = strSql & "M_AIM, M_ICQ, M_MSN, M_YAHOO, M_TITLE, M_POSTS, M_LASTPOSTDATE, M_LASTHEREDATE, M_DATE, "

Add ,M_PMRECEIVE to this line so it now looks like:

Select All
strSql = strSql & "M_AIM, M_ICQ, M_MSN, M_YAHOO, M_TITLE, M_POSTS, M_LASTPOSTDATE, M_LASTHEREDATE, M_DATE, M_PMRECEIVE "

Find following: (about line 370)

Select All
mM_DATE = 15

Add the following directly below on line 371:

Select All
mM_PMRECEIVE = 16

Find following: (about line 393)

Select All
Members_MemberDate = arrMemberData(mM_DATE, iMember)

Add the following directly below on line 394:

Select All
Members_MemberPMreceive = arrMemberData(mM_PMRECEIVE, iMember)

Find following: (about line 426)

Select All
" <td bgcolor=""" & CColor & """><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>" & vbNewLine

Add the following directly below on line 427:

Select All
If strDBNTUserName <> "" and Members_MemberPMreceive = "1" and strPMStatus = "1" Then Response.Write " <a href=""privatesend.asp?method=Topic&mname=" & ChkString(Members_MemberName,"display") & """>" & getCurrentIcon(strIconPmprivatemessage,"Send " & ChkString(Members_MemberName,"display") & " a Private Message","align=""absmiddle"" hspace=""0""") & "</a>" & vbNewLine End If

TOPIC.ASP
Find following: (about line 97)

Select All
strSql = "SELECT M.M_NAME, M.M_RECEIVE_EMAIL, M.M_AIM, M.M_ICQ, M.M_MSN, M.M_YAHOO" & _

Add , M.M_PMRECEIVE to this line so it now looks like:

Select All
strSql = "SELECT M.M_NAME, M.M_RECEIVE_EMAIL, M.M_AIM, M.M_ICQ, M.M_MSN, M.M_YAHOO, M.M_PMRECEIVE" & _

Find following: (about line 125)

Select All
Member_YAHOO = rsTopic("M_YAHOO")

Immediately below it add this:

Select All
Member_PM = rsTopic("M_PMRECEIVE")

Find following: (about line 311)

Select All
strSql = "SELECT M.M_NAME, M.M_RECEIVE_EMAIL, M.M_AIM, M.M_ICQ, M.M_MSN, M.M_YAHOO"

Add , M.M_PMRECEIVE so that it now looks like:

Select All
strSql = "SELECT M.M_NAME, M.M_RECEIVE_EMAIL, M.M_AIM, M.M_ICQ, M.M_MSN, M.M_YAHOO, M.M_PMRECEIVE"

Find following: (about line 513)

Select All
rM_YAHOO = 5

Add the following directly below on line 514:

Select All
rM_PM = 6

You will need to readjust the numbering following rM_PM = 6 because PM's are now filling the #6 spot in
the array. So after rM_PM = 6 start it up again at rM_TITLE = 7 then the next is 8 and so on.

Find following: (about line 548)

Select All
Reply_MemberYAHOO = arrReplyData(rM_YAHOO, iForum)

Add the following directly below on line 549:

Select All
Reply_MemberPM = arrReplyData(rM_PM, iForum)

Find following: (about line 645)

Select All
if strYAHOO = "1" then if Trim(Reply_MemberYAHOO) <> "" then Response.Write "  <a href=""http://edit.yahoo.com/config/send_webmesg?.target=" & ChkString(Reply_MemberYAHOO, "urlpath") & "&.src=pg"" target=""_blank"">" & getCurrentIcon(strIconYahoo,"Send " & ChkString(Reply_MemberName,"display") & " a Yahoo! Message","align=""absmiddle"" hspace=""6""") & "</a>" & vbNewLine end if end if

Add the following directly below:

Select All
If (Reply_MemberPM = "1" and strPMStatus = "1") Then if Trim(Reply_MemberPM) <> "" then Response.Write " <a href=""privatesend.asp?method=Topic&mname=" & ChkString(Reply_MemberName,"display") & """>" & getCurrentIcon(strIconPmprivatemessage,"Send " & ChkString(Reply_MemberName,"display") & " a Private Message","align=""absmiddle"" hspace=""0""") & "</a>" & vbNewLine End If End IF

Find following: (about line 853)

Select All
if (strYAHOO = "1") then if Trim(Member_YAHOO) <> "" then Response.Write "  <a href=""http://edit.yahoo.com/config/send_webmesg?.target=" & ChkString(Member_YAHOO, "urlpath") & "&.src=pg"" target=""_blank"">" & getCurrentIcon(strIconYahoo,"Send " & ChkString(Member_Name,"display") & " a Yahoo! Message","align=""absmiddle"" hspace=""6""") & "</a>" & vbNewLine end if end if

Add the following directly below:

Select All
If (Member_PM = "1" and strPMStatus = "1") Then if Trim(Member_PM) <> "" then Response.Write " <a href=""privatesend.asp?method=Topic&mname=" & ChkString(Member_Name,"display") & """>" & getCurrentIcon(strIconPmprivatemessage,"Send " & ChkString(Member_Name,"display") & " a Private Message","align=""absmiddle"" hspace=""0""") & "</a>" & vbNewLine End If End IF

INC_HEADER.ASP
Add the following: (about line 260)
Select All
' Get Private Message count for display 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) pmcount = rsPM("pmcount") rsPM.close set rsPM = nothing

Look for the folowing (near line 460):

Select All
' DEM --> End of Code added to show subscriptions if they exist Response.Write " |" & vbNewline & _ " <a href=""members.asp""" & dWStatus("Current members of these forums...") & " tabindex=""-1""><acronym title=""Current members of these forums..."">Members</acronym></a>" & vbNewline & _ " |" & vbNewline

Make it look like this:

Select All
' DEM --> End of Code added to show subscriptions if they exist Response.Write " |" & vbNewline & _ " <a href=""" & strForumURL & "members.asp""" & dWStatus("Current members of these forums...") & " tabindex=""-1""><acronym title=""Current members of these forums..."">Members</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>)" end if Response.Write "</acronym></a>" & vbNewline & _ " |" & vbNewline end if Response.Write " <a href=""search.asp"