|
|
<%
TableName = Request.Form("Obj")
DbName = Request.Form("DSN")
ID = Request.Form("ID")
Dim Prob
Prob = 0
If ( IsNull( Request.Form("Submitted By") ) OR "" = Request.Form("Submitted By") ) Then
%>
Please go back and enter your name ...
<%
Prob = 1
End If
If ( IsNull( Request.Form("ID") ) OR "" = Request.Form("ID") ) Then
%>
Can't find the entry your protesting.
<%
Prob = 1
End If
If ( IsNull( Request.Form("Comment") ) OR "" = Request.Form("Comment") ) Then
%>
You didn't a reason for your protest.
<%
Prob = 1
End If
If Not LoggedIn or ProtestPoints <= 0 Then
%>
Sorry, only members with available Moderator Points can protest an entry.
<%
Prob = 1
End If
If Prob = 0 Then
%>
Thank You! Your protest has been registered.
<%
Set NewPTable = CreateObject("ADODB.Recordset")
NewPTable.Open "protests", "DSN=fruplay;", 1, 3, 2
NewPTable.AddNew
NewPTable.Fields("Submitted By") = Request.Form("Submitted By")
NewPTable.Fields("EntryID") = Request.Form("ID")
NewPTable.Fields("Email") = Request.Form("Email") & " "
NewPTable.Fields("Comment") = Request.Form("Comment") & " "
NewPTable.Fields("Date") = Now()
NewPTable.Fields("Member") = Member
NewPTable.Fields("Table") = TableName
NewPTable.Fields("DNS") = DBName
NewPTable.Update
NewPTable.Close
Set ATable = CreateObject("ADODB.Recordset")
ATable.Open TableName & " WHERE ID=" & ID, "DSN=" & DBName & ";", 1, 3, 2
If Not ATable.EOF Then
If Not ATable.Fields("Reviewed") Then
ProtestTimes = ATable.Fields("Protest") + 1
ATable.Fields("Protest") = ProtestTimes
PunishMember = ATable.Fields("Member")
If ProtestTimes >= ProtestPointsMax Then
ATable.Fields("Display") = False
End If
End If
End If
ATable.Update
ATable.Close
Set MemberTable = CreateObject("ADODB.Recordset")
MemberTable.Open "Members Where Member = '" & PunishMember & "'", "DSN=frumembers;", 1, 3, 2
If Not MemberTable.EOF Then
MemberTable.Fields("WarningLevel") = MemberTable.Fields("WarningLevel") + 1
MemberTable.Update
End If
MemberTable.Close
Set MemberTable = CreateObject("ADODB.Recordset")
MemberTable.Open "Members Where Member = '" & Member & "'", "DSN=frumembers;", 1, 3, 2
If Not MemberTable.EOF Then
MemberTable.Fields("ProtestPoints") = MemberTable.Fields("ProtestPoints") - 1
LastReset = MemberTable.Fields("ProtestPointsReset")
MemberTable.Update
End If
MemberTable.Close
%>
The entry you have protested currently has <%=ProtestTimes%> Protests against it.
<%
If ProtestTimes >= ProtestPointsMax Then
%>
It has been removed from the site.
<%
End If
Set AdminTable = CreateObject("ADODB.Recordset")
AdminTable.Open "Select * From AdminOptions", "DSN=fruplay;"
If Not AdminTable.EOF Then
ProtestResetPeriod = AdminTable.Fields("ProtestResetPeriod")
End If
AdminTable.Close
%>
You currently have <%=ProtestPoints-1%> Moderator Points left until <%=LastReset+ProtestResetPeriod%>
<%
End If
%>
|