高手指教，这代码怎么写
<%Dim rsView__MMColParam
rsView__MMColParam = "1"
If (Request.QueryString("ID") <> "") Then
rsView__MMColParam = Request.QueryString("ID")
End If
%>
<% DELETE book WHERE ID=rsView__MMColParam %>
这段代码的错误信息是：
Microsoft VBScript 编译器错误 错误 '800a0401'
语句未结束
/dwmx2004/deltishi2.asp，行54
DELETE book WHERE ID=rsView__MMColParam ------------^请教怎么改正，谢谢！
