
<!--#include file="../inc/Conn.asp"-->
<!--#include file="Inc/Admin.Asp"-->
<%
dim sql
dim rs
dim action
on error resume next
action=request("action")
com_typeid=request("com_typeid")
If action="del" then
set rs=server.createobject("adodb.recordset")
sql="delete from Comment where com_ID="&request("CommentID")
rs.open sql,conn,1,1
set rs=nothing
conn.close
set conn=nothing
end if
if action="pub" then
  pubok=request("pubok")
  sql="update comment set com_pub="&pubok&" where com_id="&request("CommentID")
  conn.execute(sql)
end if
response.redirect "AdminShownews.asp?id="&com_typeid
%>