大家好，又有个小问题请教大家一下：下边这修改信息页面提交后出现错误：
Microsoft VBScript 编译器错误 错误 '800a03f6' 

缺少 'End' 

/update.asp，行 40 


<!-- #Include File=Conn.asp -->

<%
dim username,userpassword,userpassword2,useremail,question,answer
Username = Trim(Request("Username"))
userPassword = Trim(Request("userPassword"))
userPassword2 = Trim(Request("userPassword2"))
useremail = Trim(Request("useremail"))
question = Trim(Request("question"))
answer = Trim(Request("answer"))


for i=1 to len(userPassword)
pass=mid(userPassword,i,1)
if pass="'" or pass="%" or pass="<" or pass=">" or upass="&" or pass="|" then
response.write "<script language=JavaScript>" & "alert('您的密码含有非法字符,请重新输入！');" & "history.back()" & "</script>"
response.end
end if
next


If userPassword = "" Or useremail = "" Or question = "" Or answer = "" Then
response.write "<script language=JavaScript>" & chr(13) & "alert('请检查您填写的内容是否完整！');" & "history.back()" & "</script>"
Response.End
Else If Instr(useremail, "@") = 0 Or Right(useremail, 1) = "@" Or Left(useremail, 1) = "@" Then
response.write "<script language=JavaScript>" & chr(13) & "alert('请检查您的邮件地址是否正确！');" & "history.back()" & "</script>"
Response.End
Else If userPassword <> userPassword2 Then
response.write "<script language=JavaScript>" & chr(13) & "alert('两次输入的密码不一致！');" & "history.back()" & "</script>"
Response.End
End If


sql = "Update user set userPassword='"&userPassword&"', useremail='"&useremail&"', question='"&question&"', answer='"&answer&"' Where username='"&Username&"'"
set rs = conn.Execute(sql)

Conn.Close
Set Conn=Nothing
Response.Write "修改成功！按<a href='login.asp'>这里</a>重新登陆"
Response.End

%>