asp对话框弹出问题
<body> <%
set Conn=Server.CreateObject("adodb.connection")
conn.c
conn.open
sql="update Table set Attribute='" & vAttribute & "' where ContId='" & vContId & "'"
Conn.Execute(sql)
%>
<script language="vbscript">
msgbox "更新数据成功！~"
</script>
<%
response.redirect "index.asp"%>
</body>
以上程序，为何在有蓝色部分的时候，红色部分的对话框不弹出，而去掉蓝色部分的时候就会弹出呢？
在有蓝色部分的时候，该怎么改，才可以使对话框弹出？
望高手指点！~
问题已经解决，谢谢各位的帮助！~