Trecho asp não esta sendo tratado

[michelsilvasz 0]

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>

[michelsilvasz 0]

RESOLVIDO

 

<!--#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

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

response.End

elseif err.number = -2147016672 then

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

'response.End

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

response.End

elseif err.number = -2147463168 then

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

'response.End

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

response.End

elseif err.number <> 0 then

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

response.End

End If

 

 

if err.number = 0 then

 

'consulta se o usúario e 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)

qtdeTramiteDest = RsQtdeTramiteDest("qtdDestinatario")

 

'consulta se o usúario e 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)

qtdeTramiteAssist = RsQtdeTramiteAssist("qtdAssistente")

 

 

If (qtdeTramiteDest > 0) then 'se for maior que 0 ele e o destinatario

response.Write 0

response.End

 

elseif ( qtdeTramiteAssist > 0) then ' se for maior que 0 ele e assistente do destinatario

response.Write 0

response.End

else

response.Write 10 'usuário não e o destinatario e nem o assistente

response.End

 

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>