<% Response.Buffer = TRUE %> <% playground_GetMemberInfo MemberID, Member, ScreenName, EMail, Privacy, Block, Privilege, ProtestPoints If MemberID <> 0 Then LoggedIn = true End If playground_GetAdminOptions SiteAvailable, AllowAllPosts, ModeratorPrivs, ProtestPointsMax if Not SiteAvailable then Response.Redirect("playgroundNotAvailable.asp") end if %> Moxy Playground Remove/Protest Entry

Moxy Früvous Remove Posting

<% RequestURL = Request.ServerVariables("HTTP_REFERER") TableName = Request.QueryString("Obj") DbName = Request.QueryString("DSN") ID = Request.QueryString("ID") Set ATable = CreateObject("ADODB.Recordset") ATable.Open TableName & " WHERE ID=" & ID, "DSN=" & DBName & ";", 1, 3, 2 If Not ATable.EOF Then If (ATable.Fields("Member") = Member and LoggedIn) or (Privilege >= 10) Then ATable.Fields("Display") = false Successful=true Message = "Table Updated Successfully" Else Message = "Unless you are a moderator, you can only remove your own entry." Successful=false End If End If ATable.Update ATable.Close If Successful Then Response.Redirect(RequestURL) End If %>

<%=Message%>