Microsoft VBScript 编译器错误 '800a03f6' 缺少 'End' \QQ.asp, line 4

<%If request.Form("submit") = "提交留言" Then
    If request.Form("pf_users_verifycode") = "" Then
        Call infoback("验证码不能为空！")
    End If
    If CStr(Session("CheckCode"))<>CStr(Request.Form("pf_users_verifycode")) Then
        Call infoback("验证码错误！")
    End If
	
	
    dim userpwd1
    username=replace(request.form("username"),"'","''")

    userpwd1=Request("userpwd2")
    userip=Request.ServerVariables("REMOTE_ADDR")
    birthday=trim(Request.Form("birthyear"))&"-"&trim(Request.Form("birthmonth"))&"-"&trim(Request.Form("birthday"))
    Set rs = server.CreateObject("adodb.recordset")
    sql="select * from [pf_users] where username='"&username&"'"
    rs.open sql,conn,1,3
    if not rs.eof then
    response.write("<script>alert('错误：用户名已存在,请改名!');history.go(-1)</script>")
    else
    rs.addnew
	rs("username") = username
	rs("U_name") = request.Form("U_name")
	rs("userpwd") = md5(userpwd1)
	rs("U_tel") = request.Form("U_tel")
	rs("U_oicq") = request.Form("U_oicq")
	rs("U_fax") = request.Form("U_fax")
	rs("U_email") = request.Form("U_email")	
    rs("U_danwei") = request.Form("U_danwei")
    rs("U_address") = request.Form("U_address")
	rs("U_sex") = request.Form("U_sex")
	rs("LastLogintime") = now()
    rs("LoginIP") = userip
    rs("U_birthday") = birthday
	rs("userkey") = 1
	rs("Addtime") = Now()
    rs.update
    Call infohref("注册成功！感谢您的支持！", "123.asp")
rs.close
end if
set rs=nothing 
conn.close 
set conn=nothing
%>