<%
If (Request (" news_ID ") & lt;> "") then Command1__mynews_ID=Request (" news_ID")
%>
<%
Mand set Command1=Server. CreateObject (" ADODB.Com ")
Command1. ActiveConnection=MM_mynews_STRING
Command1.Com mandText="DELETE FROM the WHERE news_ID=" + Replace (Command1__mynews_ID, "'", "" '") +"
"Command1.Com mandType=1
Command1.Com mandTimeout=0
Command1. Prepared=true
Command1. The Execute ()
%>
<meta HTTP - equiv="content-type" Content="text/HTML. Charset=gb2312 "& gt;
<style type="text/CSS" & gt;
. Style1 {
The font - size: xx - large;
font-weight: bold;
}
-->
</style>
<body>