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 IfIf 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>Discussão (1)
Carregando comentários...