<%
'-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#
' Loja Exemplo Locaweb
' Versão: 6.5
' Data: 12/09/06
' Arquivo: ADM_lista_negativados.asp
' Versão do arquivo: 0.0
' Data da ultima atualização: 16/10/08
'
'-----------------------------------------------------------------------------
' Licença Código Livre: http://comercio.Locaweb.com.br/gpl/gpl.txt
'-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#
' Esta página só pode ser acessada se o visitante já se autenticou
checa_senha()
'Verifica se o perfil de usuário permite acesso a esta página
Call checa_perfil_admin(""&ADMPed&"")
%>
<%
'abre o banco de dados
Call abre_conexao(conexao)
codigo_pedido = Request("codigo_pedido")
%>
<%=Application("NomeLoja")%>
• Todos os pedidos negativados
DADOS NEGATIVADOS
<%
Set RS_ConsultaTransNegativas = CreateObject("ADODB.Recordset")
Set RS_ConsultaTransNegativas.ActiveConnection = Conexao
RS_ConsultaTransNegativas.CursorLocation = 3
RS_ConsultaTransNegativas.CursorType = 0
RS_ConsultaTransNegativas.LockType = 3
RS_ConsultaTransNegativas.Open "SELECT codigo_transacao, codigo_pedido, user_ID,ip_cliente,razaosocial_cobranca,cnpj_cobranca,inscricaoestadual_cobranca,nome_cobranca,cpf_cobranca,rg_cobranca,telefone_cobranca,razaosocial_entrega,cnpj_entrega,inscricaoestadual_entrega,rg_entrega,telefone_entrega,email_entrega FROM Transacoes_Negativadas", Conexao
If RS_ConsultaTransNegativas.EOF Then
%>
Sem registro para esta consulta
<%
Else
varCont = 0
Do Until RS_ConsultaTransNegativas.EOF
If RS_ConsultaTransNegativas.AbsolutePosition Mod 2 = 0 Then
strColor = "class='Linha2Tabela'"
Else
strColor = "class='Linha1Tabela'"
End If
If CDBL(Request("codigo_transacao")) = CDBL(RS_ConsultaTransNegativas("codigo_transacao")) Then
display = " "
Else
display = "none"
End If
%>
