<%@LANGUAGE="VBSCRIPT"%>

<%

if(Requst.QueryString("DeletedID") <> "") then commnewdel__iid = Requst.QueryString("DeletedID")

%>
<%
set Recordset1 = Server.CreateObject("ADODB.Recordset")
Recordset1.ActiveConnection = MM_cxsoft_STRING
Recordset1.Source = "SELECT * FROM new"
Recordset1.CursorType = 0
Recordset1.CursorLocation = 2
Recordset1.LockType = 3
Recordset1.Open()
Recordset1_numRows = 0
%>
<%
set rsdel = Server.CreateObject("ADODB.Recordset")
rsdel.ActiveConnection = MM_cxsoft_STRING
rsdel.Source = "SELECT newboject, new, time FROM new"
rsdel.CursorType = 0
rsdel.CursorLocation = 2
rsdel.LockType = 3
rsdel.Open()
rsdel_numRows = 0
%>
<%

set commnewdel = Server.CreateObject("ADODB.Command")
commnewdel.ActiveConnection = MM_cxsoft_STRING
commnewdel.CommandText = "DELETE FROM new WHERE id=iid "
commnewdel.CommandType = 1
commnewdel.CommandTimeout = 0
commnewdel.Prepared = true
commnewdel.Execute()
Response.Redirect("denglu.asp?id=" & Request.Querystring("id"))
%>

新闻标题：	">
时间：	">
新闻内容：	<%=(rsdel.Fields.Item("new").value)%>

<%
Recordset1.Close()
%>
<%
rsdel.Close()
%>

错误为：Microsoft VBScript 运行时错误 错误 '800a01a8'
缺少对象: 'Requst'
/new/del.asp, 行5

set commnewdel = Server.CreateObject("ADODB.Command")
commnewdel.ActiveConnection = MM_cxsoft_STRING
commnewdel.CommandText = "DELETE FROM new [b]WHERE id=iid[b] "
commnewdel.CommandType = 1
commnewdel.CommandTimeout = 0
commnewdel.Prepared = true
commnewdel.Execute()
Response.Redirect("denglu.asp?id=" & Request.Querystring("id"))

第一个没有赋值（iid）