我的alert无法弹出窗口

<%

 set rs=server.createobject("adodb.recordset")
  set rs1=server.createobject("adodb.recordset")
  sql="select * from  incident where 品='"& j_num &"'"
  rs.Open sql,conn,1,1
if rs.EOF  and rs.bof then
  rs1.Open "Incident",conn,1,3
  rs1.addnew array("品","品","品位"),_
             array(j_num, cas_ad,   chk_tim)
%>   
<script language="vbscript">
    alert ("息映晒!")
    window.location.href = "all.asp"
</script>
<%else%>
<script language="vbscript">
   alert ("品菘丫诘息突!!!!")
   window.location.href = "add_case.asp"
</script>
<%
end if   
rs1.Close
set rs1=nothing
%>