mlev 1 = Author
mlev 2 = Normal User
You can add mlev <> 2 to the post links in forum.asp and topic.asp to restrict the links to admins, mods, authors and "not logged in".
The post links for forum.asp are in the sub "TopicMemberOptions()" near the bottom of the page. In topic.asp sub "PostingOptions()" and the reply w/quote links in replies and the "GetFirst" sub.
And the following will keep out the URL Editors .
In post.asp find this code
case "Reply", "ReplyQuote", "TopicQuote"
if ((blnCStatus = 0) or (blnFStatus = 0) or (blnTStatus = 0)) and (AdminAllowed = 0) then
Go_Result "You have attempted to Reply to a Locked Topic"
end if
Add this right under it
if mLev = 2 then
Response.Write " <p align=""center""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strHiLiteFontColor & """><b>Only an Admin, a Moderator or Author can Reply to the Topic!</b></font><br />" & _
"<br /><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><a href=""JavaScript:onClick=history.go(-1)"">Go Back to Topic</a></font></p>" & vbNewLine
WriteFooter
Response.End
And in post_info.asp find this code
if MethodType = "Reply" or MethodType = "ReplyQuote" or MethodType = "TopicQuote" then
Add this right under it. (I just stole this from "EditTopic" and pasted it here. You will need to change the messages in red)
select case Member
case 0 '## Invalid Pword
Go_Result "Invalid Password or UserName", 0
Response.End
case 1 '## Author of Post so OK
'## Do Nothing
case 2 '## Normal User - Not Authorised
Go_Result "Only an Admin, a Moderator or the Author can change this post", 0
Response.End
case 3 '## Moderator so
if chkForumModerator(Forum_ID, strDBNTUserName) = "0" then
Go_Result "Only an Admin, a Moderator or the Author can change this post", 0
end if
if strTopicAuthor = intAdminMemberID and MemberID <> intAdminMemberID then
Go_Result "Only the Forum Admin can change this post", 0
end if
case 4 '## Admin so OK
if strTopicAuthor = intAdminMemberID and MemberID <> intAdminMemberID then
Go_Result "Only the Forum Admin can change this post", 0
end if
'## Do Nothing
case else
Go_Result cstr(Member), 0
Response.End
end select
Hope this helps