The Forum has been Updated
The code has been upgraded to the latest .NET core version. Please check instructions in the Community Announcements about migrating your account.
I have a member that is currently posting in the forum then deleting the post just to increase their post count's. I have sat and watched him do it from active users, seen new post, then it's gone. Have reduced post count in profile then get moaning pm's from him, then he goes and does it again.
I was wondering if anyone could help with a line of code or the edit for the exisiting code to go in post.asp (is it?) that would check for members id before increasing the post count and if it was that member ID then -1 from the post count?
A bit messy I know but would be apreciated if anyone could help!<
I was wondering if anyone could help with a line of code or the edit for the exisiting code to go in post.asp (is it?) that would check for members id before increasing the post count and if it was that member ID then -1 from the post count?
A bit messy I know but would be apreciated if anyone could help!<
Snitz 3.4.05. Mods Installed, Additional Smilies, Poll's, PM's, Email All Users, Today/Yesterday, Active Users 4, Portal Mod, My Own Google, Referer Mod, Avatars, Intergrated Conqueror Chat, Usergroups, IPGate, File Attachment Mod & Image Resize Mod.
Next Mod? My Snitz Forum 
Postet den
look in inc_func_count.asp for the doUCount function<
Postet den
Ah so the proposed change would go in here somewhere? Maybe an if, else statement. Sorry my asp knowledge is very bad.
sub doUCount(sUser_Name)
'## Forum_SQL - Update Total Post for user
strSql = "UPDATE " & strMemberTablePrefix & "MEMBERS "
strSql = strSql & " SET M_POSTS = M_POSTS + 1 "
strSql = strSql & " WHERE " & strDBNTSQLName & " = '" & ChkString(sUser_Name, "SQLString") & "'"
my_Conn.Execute (strSql),,adCmdText + adExecuteNoRecords
end sub<
sub doUCount(sUser_Name)
'## Forum_SQL - Update Total Post for user
strSql = "UPDATE " & strMemberTablePrefix & "MEMBERS "
strSql = strSql & " SET M_POSTS = M_POSTS + 1 "
strSql = strSql & " WHERE " & strDBNTSQLName & " = '" & ChkString(sUser_Name, "SQLString") & "'"
my_Conn.Execute (strSql),,adCmdText + adExecuteNoRecords
end sub<
Snitz 3.4.05. Mods Installed, Additional Smilies, Poll's, PM's, Email All Users, Today/Yesterday, Active Users 4, Portal Mod, My Own Google, Referer Mod, Avatars, Intergrated Conqueror Chat, Usergroups, IPGate, File Attachment Mod & Image Resize Mod.
Next Mod? My Snitz Forum
Postet den
You have a whole lot more patience than me. He'd get one warning then I'd push the
button. 
<
Postet den
Or as punishment (after a warning of course) you could use the UserGroup MOD to set his access to all forums to "Read Only" for a week...<
Postet den
Originally posted by spyderukEven though I agree with the previous comments about locking him without many hesitations, you could code it like this:
Ah so the proposed change would go in here somewhere? Maybe an if, else statement. Sorry my asp knowledge is very bad.
sub doUCount(sUser_Name)
'## Forum_SQL - Update Total Post for user
strSql = "UPDATE " & strMemberTablePrefix & "MEMBERS "
strSql = strSql & " SET M_POSTS = M_POSTS + 1 "
strSql = strSql & " WHERE " & strDBNTSQLName & " = '" & ChkString(sUser_Name, "SQLString") & "'"
my_Conn.Execute (strSql),,adCmdText + adExecuteNoRecords
end sub
Code:
sub doUCount(sUser_Name)
'## Forum_SQL - Update Total Post for user
strSql = "UPDATE " & strMemberTablePrefix & "MEMBERS "
strSql = strSql & " SET M_POSTS = M_POSTS + 1 "
strSql = strSql & " WHERE " & strDBNTSQLName & " = '" & ChkString(sUser_Name, "SQLString") & "'"
If MemberId<>xxx then
my_Conn.Execute (strSql),,adCmdText + adExecuteNoRecords
end if
end sub
