Trecho asp não esta sendo tratado

Galera estou com um problema, o trecho do código que coloquei em negrito não esta sendo tratado, quando executa parece que está sendo ignorado, podem me dizer prq esta acontecendo isso ?

<!--#includes VIRTUAL="includes/db.asp"-->

<%

response.Expires = 0

Response.ExpiresAbsolute = Now() - 1

Response.AddHeader "pragma","no-cache"

Response.AddHeader "cache-control","private"

Response.CacheControl = "no-cache"

' User levels

Const ewAllowAdd = 1

Const ewAllowDelete = 2

Const ewAllowEdit = 4

Const ewAllowView = 8

Const ewAllowList = 8

Const ewAllowSearch = 8

Const ewAllowAdmin = 16

dim pagina

dim sUserId

dim sPassWd

dim sIddocumento

dim bValidPwd

dim sSql

dim rs

dim usuario, login, ip, data_hora

dim caracter

dim i

dim teste

dim strDomainUser, strPassword, strDomain, objRootDSE, objDSObj, objAuth

'pagina=request.QueryString("pagina")

dim RsQtdeTramiteDest

dim ConsultaDestinatario

dim qtdeTramiteDest

dim ConsultaAssistente

dim RsQtdeTramiteAssist

dim qtdeTramiteAssist

' Setup variables

sUserId = request("useridValida")

sPassWd = request("passwdValida")

sIddocumento = request("Idocumento")

sSql = "SELECT * FROM VW_ICO_COLABORADOR_FULL WHERE SG_SISTEMA='DOC' AND ID_USUARIO = '" & trim(sUserId) & "' "

Set rs = retornaRs(sSql)

'Validação do usuário no Active Directory

strDomainUser = sUserId

strPassword = sPassWd

strDomain = "APEX"

' on error resume next

' Set objDSObj = GetObject("LDAP:")

' Set objAuth = objDSObj.OpenDSObject("LDAP://ou=APEX-users,dc=apex,dc=brasil", strDomain & "\" & strDomainUser, strPassword, 1)

dim strComputer, strNameSpace, strUser, objWbemLocator, objDSO, objComputer

strUser = strDomainUser

on error resume next

Set objDSObj = GetObject("LDAP:")

Set objComputer = objDSObj.OpenDSObject("LDAP://ldap.apex.brasil/OU=APEX-users,DC=APEX,DC=brasil", strUser, strPassword, 1)

response.Write err.number & " - " & err.Description

response.End

If Err.number = -2147023570 then

response.redirect("login.asp?login=invalid")

response.End

elseif err.number = -2147016672 then

response.redirect("login.asp?login=invalid")

response.End

elseif err.number = -2147463168 then

response.redirect("login.asp?login=invalid")

response.End

elseif err.number <> 0 then

response.Write err.number & " - " & err.Description

response.End

End If

if err.number = 0 then

'consulta do destinatario

 ConsultaDestinatario = "select count(*) as qtdDestinatario from tb_doc_tramite where id_tramite='"&trim(sIddocumento)& "' and id_pessoa_destino=(select id_pessoa from tb_ico_usuario where ds_login='"&trim(sUserId)&"') "

 Set RsQtdeTramiteDest = retornaRs(ConsultaDestinatario)

 

 

 'consulta assistente do destinatario

 ConsultaAssistente = "select count(*) as qtdAssistente from tb_doc_assistente where id_pessoa_assistente=(select id_pessoa from tb_ico_usuario where ds_login='"&trim(sUserId)& "') and id_pessoa_assistida=(select id_pessoa_destino from tb_doc_tramite where id_tramite='"&trim(sIddocumento)& "') andsysdate between dt_inicio and dt_fim"

 Set RsQtdeTramiteAssist = retornaRs(ConsultaAssistente)

 

 if RsQtdeTramiteDest > 0 or RsQtdeTramiteAssist > 0 then

 response.Write err.number & 0 & err.Description

 response.End

 else

 'response.Write err.number & 10 & err.Description

 'response.End

 err.number=1

 

 End If

If not rs.Eof Then

if rs("ID_SITUACAO") = "3" then 'usuário bloqueado

response.Redirect("/saida/usuarioBloqueado.asp")

elseif rs("ID_SITUACAO") = "2" then ' usuário não está desativado

response.Redirect("/saida/usuarioDesativado.asp")

End If

End If

else

response.redirect("detalhaBuscaTramite.asp?login=invalid")

End If

%>

</head>

</html>