这个删除提示框该怎么写？

我想在删除一条记录之前提示用户是否确定删除，上次发过一帖子，但是我没能搞定，所以再求教一次。IE提示：“没有权限: 'msgbox' ”
dim yesno
if request.form("bookid")="" and request.form("bookname")="" then
msgbox"请填写索书号或书名",0+16,"信息提示"
else
set conn=server.createobject("adodb.connection")
set rs=server.createobject("adodb.recordset")
conn.open("filedsn=libruary.dsn;uid=sa;pwd=sa")
sql1="select * from tb_book where book_id='"&request.form("bookid")&"'"
sql2="delete tb_book where book_id='"&request.form("bookid")&"'"
rs.open sql1,conn,3,2
if rs.eof then
msgbox"对不起，您填写的图书信息不存在，无法进行删除操作",0+16,"信息提示"
rs.close
else
rs.close
yesno=msgbox("确实要删除吗？",4+48,"删除提示")
if yesno=1 then
set rs=execute(sql2)
rs.close
end if
end if
end if
conn.close

---------------------------------------------------------------

这里的代码是服务器端的，所以msgbox没有权限
if request.form("bookid")="" and request.form("bookname")="" then
%>

1<script language="vbscript">   
2msgbox"请填写索书号或书名",0+16,"信息提示"   
3</script>

<% else
判断为空和确认删除，可先在客户端判断