剑三考试答案:求助：怎么能使这个msgbox起作用阿？

不知道为什么下面这段程序的msgbox没有起作用，请问怎么修改能使他起作用阿？或者改为alert也可以，谢谢！
－－－－－－－－－－－－－－－－－－
<!--#include file="conn.asp"-->
<%
username=request.form("user_name")
set rs=server.createobject("adodb.recordset")
sql="select * from [user] where user_name='"&username&"'"
rs.open sql,conn,1,3

If Not rs.EOF Or Not rs.BOF Then
%>
<SCRIPT LANGUAGE="VBScript">
msgbox("用户名已存在！")
</SCRIPT>
<%
response.redirect"reg.asp"
end if

rs.addnew
rs("user_name")=request.form("user_name")
rs("user_pwd")=request.form("user_pwd")
rs("user_realname")=request.form("user_realname")
rs("user_phone")=request.form("user_phone")
rs("user_mobile")=request.form("user_mobile")
rs("user_email")=request.form("user_email")
rs("user_place")=request.form("user_place")
rs("user_add")=request.form("user_add")
rs("user_zip")=request.form("user_zip")
rs("user_code")=request.form("user_code")
rs.update
rs.close
set rs=nothing
%>
<SCRIPT LANGUAGE="VBScript">
msgbox("恭喜您，注册成功！")
</SCRIPT>
<%
response.redirect "index.asp"
%>
还是不行，页面还是直接转了：（