弹出对话框……

--------aa.asp---------

<script type="text/JavaScript">

function MM_popupMsg(msg) {
  confirm(msg);
}

</script>

<a href="delete_imgfile.asp?id=<%= rs("id") %>" onClick="MM_popupMsg('确定要删除吗？\r')">删除</a>


-----------aa_de.asp--------------

<%
dim id,aa
aa=request("vbok")
if aa=1 then
id=request("id")
else if id <> "" then
set rs = server.CreateObject("ADODB.Recordset")
sql="select * from pro_img where id="&id
rs.open sql,conn,1,1
pic_img=rs("p_pic")

sql2 = "delete from pro_img where id="&id
conn.execute sql2

end if
end if
%>



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

我在aa.asp页面的弹出对话框里无论是单击确认还是取消，传到aa_de.asp后无任何操作，不会删除，也不会跳转页了，请我接收那个对话框的值哪里出错了。。。