新手、登录跳转问题

<%
if request("action")="dl" then
if cstr(Session("Num"))<>cstr(trim(request("yz"))) then
response.Write "<script LANGUAGE=javascript>alert('请输入正确的验证码！'); </script>"
response.write "<meta http-equiv=refresh content=""1;URL=login.asp"">"
else
call dl()
end if
end if
sub dl()
name=Trim(Request.Form("name"))
pass=Trim(Request.Form("pass"))
sql="select * from admin where(username='"&name&"' and password='"&pass&"')"
set rs=server.createobject("adodb.recordset")
rs.open sql,con,1,1

if not rs.eof then
if rs("shenhe")=0 then
qxid=rs("qxid")
id=rs("userid")
j="true"
session("j")=j
session("userid")=id
if qxid=1 then
session("qxid")=1
response.Redirect "gly.asp"
else if qxid=2 then
session("qxid")=2
response.Redirect "gly.asp"
else if qxid=3 then
session("qxid")=3
response.Redirect "cz_index.asp?j="&j
else if qxid=4 then
session("qxid")=4
response.Redirect "kz_index.asp?j="&j
else if qxid=5 then
session("qxid")=5
response.Redirect "py_ck.asp?j="&j
else if qxid=6 then
session("qxid")=6
response.Redirect "gly_index.asp?j="&j
end if
end if
end if
end if
end if
end if
end if
else if rs("sh")=1 then
response.Write("您的账号未审核,暂不能登录,请联系管理员")
end if
end if
else
response.Write("您的账号不存在")


end sub



%>
总是提示我缺少end、是哪里出错了