<%
'set any url variables here
ID = Request.Querystring("ID")
del = Request.Querystring("del")
approvecomment = Request.Querystring("approvecomment")
deletecomment = Request.Querystring("deletecomment")
if del = 1 then
mySQL = "Delete FROM act where cID = " & id & ";"
mconn.execute(mySQL)
redirect = "admin_cast.asp"
end if
if approvecomment = 1 then
mySQL = "UPDATE comments SET Approve = 1 where ID = " & id & ";"
mconn.execute(mySQL)
redirect = "admin_comments.asp"
end if
if deletecomment = 1 then
mySQL = "Delete FROM comments where ID = " & id & ";"
mconn.execute(mySQL)
redirect = "admin_comments.asp"
end if
closeconn()
if redirect <> "" then
Response.Redirect(redirect)
end if
'Response.Redirect("default.asp")
%>