pb运行错误

<%
Sub save() '定义过程
Dim username,tel,address,QQ,email '声明变量
'读取从表单传递过来的用户名数据，Trim 函数去掉字符串的前导与后续空格
username=TRIM(Request.Form("username"))
tel=TRIM(Request.Form("tel"))
address=TRIM(Request.Form("address"))
QQ=TRIM(Request.Form("QQ"))
email=TRIM(Request.Form("email"))

If username="" or tel="" or address = "" or QQ="" or email="" Then
'给出提示，返回注册页面。history.back()返回注册页面
Response.Write "<script>alert('错误：请输入所有信息');history.back();</script>"
Response.End
End If
'IsValidEmail 过程判断用户输入的的发件人的邮件地址格式是否正确
If NOT IsValidEmail(Email) Then
'邮件地址格式错误，则给出提示，并返回到注册页面
Response.Write "<script>alert('错误：邮件地址格式错误!');history.back();</script>"
Response.End
End If
'判断数据库中是否存在用户输入的用户名
Set HVr