Gareth, I did this some time back so that my moderators can lock out members if need be; I can't remember the changes I made but these might be them. Compare this code with what you have in your files:
pop_lock.asp >
Lines 146 (or there abouts)
case "LockMember"
strEncodedPassword = sha256("" & strPassword)
mLev = cLng(ChkUser(strDBNTFUserName, strEncodedPassword,-1))
if mLev > 0 then '## is Member
if (mLev = 3 or mlev = 4) and (cLng(chkCanLock(MemberID,Member_ID)) = 1) then
'## Forum_SQL
Line 207 (or thereabouts):
select case Mode_Type
case "STopic"
Response.Write("Only Moderators and Administrators can make a Topic Sticky.")
case "Member"
Response.Write("Only Administrators and Moderators can lock a Member.")
case "Category"
Response.Write("Only Administrators can lock a Category.")
case "Forum"
Response.Write("Only Moderators and Administrators can lock a Forum.")
case "Topic"
Response.Write("Only Moderators and Administrators can lock a Topic.")
end select
Members.asp
Line 461 (or thereabouts)
if mlev = 4 or mlev = 3 then
Response.Write " <td bgcolor=""" & CColor & """ align=""center"" nowrap><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strForumFontColor & """>" & ChkDate(Members_MemberLastHereDate,"",false) & "</font></td>" & vbNewLine
end if
if mlev = 4 or mlev = 3 or (lcase(strNoCookies) = "1") then
Response.Write " <td bgcolor=""" & CColor & """ align=""center""><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>" & vbNewLine
if Members_MemberID = intAdminMemberID OR (Members_MemberLevel = 3 AND MemberID <> intAdminMemberID) then
'## Do Nothing
Back up your files first before making any changes and see if the above works
Dave