PM alert topics:
http://forum.snitz.com/forum/topic.asp?TOPIC_ID=41289&SearchTerms=pm,alert
http://forum.snitz.com/forum/topic.asp?TOPIC_ID=42444&SearchTerms=pm,alert
http://forum.snitz.com/forum/topic.asp?TOPIC_ID=29912&SearchTerms=pm,alert
There are several more topics with pm alert code, all found by using the search page in the MOD Add-On Forum (W/Code) with Archive Posts checked.
As for you first question, look for the following block of code in pm_options:
" <tr bgcolor=""" & strHeadCellColor & """>" & vbNewLine & _
" <td><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strHeadFontColor & """><b>Enable/Disable Private Messages</b></font></td>" & vbNewLine & _
" </tr>" & vbNewLine & _
" <tr bgcolor=""" & strForumFirstCellColor & """>" & vbNewLine & _
" <td><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strForumFontColor & """><b>" & strForumTitle & " private messages are currently turned "
if rs("M_PMRECEIVE") = "1" then
Response.Write "ON"
else
Response.Write "OFF"
end if
Response.Write "</b>.<br>You may turn it <b>"
if rs("M_PMRECEIVE") = "1" then
Response.Write "OFF"
else
Response.Write "ON"
end if
Response.Write "</b> below. By doing so you will no longer be able to receive private messages<br>" & vbNewLine & _
" <input type=""radio"" name=""statusstorage"" value=""1"""
if rs("M_PMRECEIVE") = "1" then
Response.Write(" checked")
end if
Response.Write "> Enable private messages.<br>" & vbNewLine & _
" <input type=""radio"" name=""statusstorage"" value=""0"""
if rs("M_PMRECEIVE") = "0" then
Response.Write(" checked")
end if
Response.Write "> Disable private messages.<br>" & vbNewLine & _
" You may turn Private Messages back on by returning to this page</font></td>" & vbNewLine & _
" </tr>" & vbNewLine & _
Replace it with the following:
" <input type=""hidden"" name=""statusstorage"" value=""1"">" & vbNewLine & _
I tested it on my test-server (access db), and it worked like a charm.