Fórum Contato
  
   O portal do desenvolvedor ASP Segunda-feira - 14 de Junho de 2021  
Busca

Menu do site
Efetuar Login
Usuário:

Senha:

 Esqueceu a senha?
Login automático

 Cadastre-se
 Fóruns   Meu cadastro   Meu perfil   Ranking de usuários 

 FórumProgramaçãoErros Responder mensagem 

 ME AJUDEM POR FAVOR ERRO NA MINHA PAGINA BOLETO. Atualizado em 28/07/2013 ás 00:54:00

"
LinhaHorizontal2 = ""
LinhaHorizontal3 = ""
LinhaHorizontal4 = ""
CamposObrigatorios = ""
CorDestaque = "bgcolor='#D3FF3C'" 'Especifica a cor de fundo das células dos anúncios em destaque

'Variáveis constantes gerais
Const EndLocal = "http://www.feiraoangola.com/" 'Caminho
Const LocalFoto = "http://feiraoangola.com/Imagens/Fotos/" 'Pasta onde as fotos dos imóveis ficarão
Const LocalBanner = "http://feiraoangola.com/Imagens/Banners/" 'Local onde ficarão os Banners.
Const CaminhoFoto = "c:/inetpub/vhosts/feiraoangola.com/httpdocs/Imagens/Fotos/"
Const CaminhoBanner = "D:/inetpub/vhosts/feiraoangola.com/httpdocs/Imagens/Banners/"

'Const EndLocal = "http://www.teste.com.br/" 'Caminho
'Const LocalFoto = "http://www.teste.com.br/Imagens/Fotos/" 'Pasta onde as fotos dos imóveis ficarão
'Const LocalBanner = "http://www.teste.com.br/Imagens/Banners/" 'Local onde ficarão os Banners.
'Const CaminhoFoto = "e:\home\classificados\web\Imagens\Fotos\"
'Const CaminhoBanner = "e:\home\classificados\web\Imagens\Banners\"

Const Titulo = "FEIRÃO ANGOLA Classificados::..A sua Feira de Negocios..::"
Const TableColor = "" 'Cor da tabela
Const TitColor = "#6BA9D0" 'Cor da célula dos títulos
Const TdColor01 = "" 'Cor da célula 01
Const TdColor02 = "" 'Cor da célula 02
Const SAddress = "mail.feiraoangola.com" 'Endereço de envio de e-mail do servidor
Const EmailPadrao = "faleconnosco@feiraoangola.com" 'Endereço de e-mail padrão
Const VerifyString = "ABCDEFGHIJKLMNOPQRSTUVJXYZabcdefghijklmnopqrstuvwxyz1234567890_@.-" 'Caracteres válidos para log.
Const TotalPorPagina = 15 'Total de registros por página.
Const PrazoEnvio = 10 'Prazo para envio de aviso de pagamento (antes do anuncio expirar)
Const BoletoBradesco = 1 'Coloque 1 caso for utilizar esta opção ou coloque 0 caso não for utilizar.
Const BoletoBB = 0 'Coloque 1 caso for utilizar esta opção ou coloque 0 caso não for utilizar.
Const BoletoItau = 1'Coloque 1 caso for utilizar esta opção ou coloque 0 caso não for utilizar.
Const Deposito = 1 'Coloque 1 caso for utilizar esta opção ou coloque 0 caso não for utilizar.
Const CNPJ = "000.000.000/0000-00"
Const BoletoOBSTitulo = "no Modelo de Cassificados"
Const ComponenteEmail = 1 '1 = CDONTS / 2 = CDOSYS / 3 = ASPMail

'Função de senha
Function Verify(ByVal VerifyValue, ByVal VerifyString)
Verify = True
For Counter = 1 To Len(VerifyValue)
If Instr(1, VerifyString, Mid(VerifyValue, Counter, 1)) = 0 Then
Verify = False
Exit for
Exit Function
End If
Next
End Function

'Função para gerar senha aleatória
Function GerarChave(Valores)
Dim chr_Array(35)
chr_array(0) = "0"
chr_array(1) = "1"
chr_array(2) = "2"
chr_array(3) = "3"
chr_array(4) = "4"
chr_array(5) = "5"
chr_array(6) = "6"
chr_array(7) = "7"
chr_array(8) = "8"
chr_array(9) = "9"
chr_array(10) = "a"
chr_array(11) = "b"
chr_array(12) = "c"
chr_array(13) = "d"
chr_array(14) = "e"
chr_array(15) = "f"
chr_array(16) = "g"
chr_array(17) = "h"
chr_array(18) = "i"
chr_array(19) = "j"
chr_array(20) = "k"
chr_array(21) = "l"
chr_array(22) = "m"
chr_array(23) = "n"
chr_array(24) = "o"
chr_array(25) = "p"
chr_array(26) = "q"
chr_array(27) = "r"
chr_array(28) = "s"
chr_array(29) = "t"
chr_array(30) = "u"
chr_array(31) = "v"
chr_array(32) = "w"
chr_array(33) = "x"
chr_array(34) = "y"
chr_array(35) = "z"
Randomize
Do While Len(Chave) < 06
Num = chr_array(Int(35 * Rnd ))
Chave = Chave + Num
Loop
GerarChave = Chave
End Function

'#########################################################################################################################################################
'Dados bancarios para depósito
Const DSeuBanco = "Banco BFA" 'Seu banco
Const DSuaAgencia = "0000-0" 'Sua Agência
Const DSuaConta = "0000000-0" 'Sua Conta
Const DNomeCedente = "Fábio Messias Francisco Mota" 'Favorecido

'#########################################################################################################################################################
'Dados para configuração do boleto bancário (Itaú)
Const vBancoItau = "341" 'código do banco
Const vDVBancoItau = "7" 'Digito verificador do banco
Const vAgenciaItau = "0000" 'agencia
Const vContaItau = "00000" 'conta
Const vDVContaItau = "0" 'digito verificador da conta
Const vCarteiraItau = "175" 'código da carteira
Const vLetraCarteiraItau = "" 'sigla da carteira
Const vMoedaItau = "9" 'tamanho da moeda
Const vEspecieItau = "USD" 'cifra da moeda
Const vCodigoCedenteItau = "" 'código do cedente
Const vCedenteItau = "Exemplo: João da Silva" 'nome do cedente
Const vDadosCedenteItau = "Exemplo: Rua Fernandes da Costa, 125 - Centro - São Paulo-SP - CEP 00000-000" 'dados do cedente
Const vCNPJItau = "00.000.000/0001-00"
Const vVencimentoItau = 5


'#########################################################################################################################################################
'Dados para configuração do boleto bancário (BANCO BFA)
Const vBancoBradesco = "237" 'código do banco
Const vDVBancoBradesco = "2" 'Digito verificador do banco
Const vAgenciaBradesco = "0000" 'agencia
Const vContaBradesco = "00000" 'conta
Const vDVContaBradesco = "0" 'digito verificador da conta
Const vCarteiraBradesco = "06" 'código da carteira
Const vLetraCarteiraBradesco = "USD" 'sigla da carteira
Const vMoedaBradesco = "9" 'tamanho da moeda
Const vEspecieBradesco = "USD" 'cifra da moeda
Const vCodigoCedenteBradesco = "" 'código do cedente
Const vCedenteBradesco = "Fábio Messias Francisco Mota - (Feirão Angola)" 'nome do cedente
Const vDadosCedenteBradesco = "Rua Kwamme Nkrumah, nº69 - Maianga - Luanda-Angola" 'dados do cedente
Const vCNPJBradesco = "00.000.000/0001-00"
Const vVencimentoBradesco = 5


'#########################################################################################################################################################
'Dados para configuração do boleto bancário (Caixa)
Const vBancoCaixa = "104" 'código do banco
Const vDVBancoCaixa = "0" 'Digito verificador do banco
Const vAgenciaCaixa = "0000" 'agencia
Const vContaCaixa = "00000" 'conta
Const vDVContaCaixa = "0" 'digito verificador da conta
Const vCarteiraCaixa = "82" 'código da carteira
Const vLetraCarteiraCaixa = "" 'sigla da carteira
Const vMoedaCaixa = "9" 'tamanho da moeda
Const vEspecieCaixa = "Kz" 'cifra da moeda
Const vCodigoCedenteCaixa = "" 'código do cedente
Const vCedenteCaixa = "Exemplo: João da Silva" 'nome do cedente
Const vDadosCedenteCaixa = "Exemplo: Rua Fernandes da Costa, 125 - Centro - São Paulo-SP - CEP 00000-000" 'dados do cedente
Const vCNPJCaixa = "00.000.000/0001-00"
Const vVencimentoCaixa = 5

'#########################################################################################################################################################
'Dados para configuração do boleto bancário (Banco do Brasil)
Const vBancoBB = "001" 'código do banco
Const vDVBancoBB = "9" 'Digito verificador do banco
Const vAgenciaBB = "0000" 'agencia
Const vContaBB = "00000" 'conta
Const vDVContaBB = "0" 'digito verificador da conta
Const vCarteiraBB = "18" 'código da carteira
Const vLetraCarteiraBB = "" 'sigla da carteira
Const vMoedaBB = "9" 'tamanho da moeda
Const vEspecieBB = "Kz" 'cifra da moeda
Const vCodigoCedenteBB = "" 'código do cedente
Const vCedenteBB = "Exemplo: João da Silva" 'nome do cedente
Const vDadosCedenteBB = "Exemplo: Rua Fernandes da Costa, 125 - Centro - São Paulo-SP - CEP 00000-000" 'dados do cedente
Const vCNPJBB = "00.000.000/0001-00"
Const vVencimentoBB = 5

'#########################################################################################################################################################
'Dados para configuração do boleto bancário (Banco Real)
Const vBancoReal = "356" 'código do banco
Const vDVBancoReal = "5" 'Digito verificador do banco
Const vAgenciaReal = "0000" 'agencia
Const vContaReal = "00000" 'conta
Const vDVContaReal = "0" 'digito verificador da conta
Const vCarteiraReal = "57" 'código da carteira
Const vLetraCarteiraReal = "" 'sigla da carteira
Const vMoedaReal = "9" 'tamanho da moeda
Const vEspecieReal = "Kz" 'cifra da moeda
Const vCodigoCedenteReal = "" 'código do cedente
Const vCedenteReal = "Exemplo: João da Silva" 'nome do cedente
Const vDadosCedenteReal = "Exemplo: Rua Fernandes da Costa, 125 - Centro - São Paulo-SP - CEP 00000-000" 'dados do cedente
Const vCNPJReal = "00.000.000/0001-00"
Const vVencimentoReal = 5


'#########################################################################################################################################################
'Dados para configuração do boleto bancário (Unibanco)
Const vBancoUnibanco = "409" 'código do banco
Const vDVBancoUnibanco = "0" 'Digito verificador do banco
Const vAgenciaUnibanco = "0000" 'agencia
Const vContaUnibanco = "00000" 'conta
Const vDVContaUnibanco = "0" 'digito verificador da conta
Const vCarteiraUnibanco = "00" 'código da carteira
Const vLetraCarteiraUnibanco = "" 'sigla da carteira
Const vMoedaUnibanco = "9" 'tamanho da moeda
Const vEspecieUnibanco = "Kz" 'cifra da moeda
Const vCodigoCedenteUnibanco = "" 'código do cedente
Const vCedenteUnibanco = "Exemplo: João da Silva" 'nome do cedente
Const vDadosCedenteUnibanco = "Exemplo: Rua Fernandes da Costa, 125 - Centro - São Paulo-SP - CEP 00000-000" 'dados do cedente
Const vCNPJUnibanco = "00.000.000/0001-00"
Const vVencimentoUnibanco = 5

'#########################################################################################################################################################


'Formata data para o formato brasileiro (dd/mm/aaaa)
Function FormataData ( theDate )
If ( theDate = "" or IsNull(theDate)) Then
FormataData = " "
Else
FormataData = Replace(Space(2-Len(Month(theDate))), Chr(32), Chr(48)) & Month(theDate) & "/" & Replace(Space(2-Len(Day(theDate))), Chr(32), Chr(48)) & Day(theDate) & "/" &_
Year(theDate)
End If
End Function

'Formata data para o formato americano (mm/dd/aaaa)
Function FormataDt ( theDate )
If ( theDate = "" ) Then
FormataDt = ""
Else
FormataDt = Replace(Space(2-Len(Day(theDate))), Chr(32), Chr(48)) & Day(theDate) & "/" & Replace(Space(2-Len(Month(theDate))), Chr(32), Chr(48)) & Month(theDate) & "/" &_
Year(theDate)
End If
End Function

' !B0014

%>







OUTRA LINHA DE CODIGO DA PAGINA BOLETO:
LINK: http://www.feiraoangola.com/ImprimeBoleto.asp?Anuncio=245#


CODIGO::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::













OUTRA LINHA DE CODIGO DA PAGINA IMPRIMIRBOLETO:


<%
Dim VarAnuncio
VarAnuncio = Request.QueryString("Anuncio")

Set objPedidos = Conn.Execute("SELECT Cod, DataHora FROM Anuncios WHERE Cod = "& VarAnuncio &"")


%>





Postado em 28/07/2013 ás 00:54:00
Prezados tenho um sistema de classificados do ganhetempo.com... portanto preciso de uma ajuda para resolver um erro do mesmo....

Quando o usuário adiciona um anuncio o sistema manda automatico uma mensagem para o email do cliente... o usuário entra no seu email e clica no link como este: http://www.feiraoangola.com/ConfirmacaoAnuncio.asp?Act=1&CodAutenticacao=s5s6u8

para activar o anuncio...posto nesta pagina o sistema pede para ele selecionar um tipo de pagamento que no caso são os boletos diferenciados... pois quanto eu clico no boleto desejado...ele da o seguinte erro:

LINK DA PAGINA QUE GERA ERRO: http://www.feiraoangola.com/Boleto.asp?IdBoleto=1&Anunciante=41&Pedido=249&DataHora=27/7/2013%2023:37:14&Valor=2


ERRO QUE APARECE:

Microsoft VBScript compilation error '800a0411'

Name redefined

C:\INETPUB\VHOSTS\FEIRAOANGOLA.COM\HTTPDOCS\PAGAMENTO\../Includes/Config.asp, line 8

Dim Conn
----^










SEGUE A LINHA DE CODIGO DA PAGINA CONFIG:


<%

'Declaração de variáreis
Dim Conn
Dim Voltar
Dim LinhaHorizontal
Dim LinhaHorizontal2
Dim LinhaHorizontal3
Dim LinhaHorizontal4
Dim CamposObrigatorios
Dim CorDestaque
Dim Counter
Dim Num
Dim chr_array
Dim Chave
Dim Valores

'Abertura de Banco de dados
Sub AbreBd()
'Set Conn = Server.CreateObject("ADODB.Connection")
'Conn.Open "DBQ=d:\projetostemp\classificados\DataBase\DBClassificados.mdb; Driver={Microsoft Access Driver (*.mdb)}"
'Conn.Open "DBQ=e:\home\Classificados\dados\DBClassificados.mdb; Driver={Microsoft Access Driver (*.mdb)}"

Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:/inetpub/vhosts/feiraoangola.com/httpdocs/Database/DBClassificados.mdb;"

End Sub

'Fechamento de Banco de dados
Sub FechaBd()
Conn.Close
Set Conn = Nothing
End Sub

'Variáveis gerais
Voltar = "Voltar"
LinhaHorizontal = "
* Campos obrigatórios





















<%=LinhaHorizontal3%>
BOLETO BANCÁRIO
 

<%
'Call AbreBd
Set Clientes = Conn.Execute("SELECT NomeResponsavel, Endereco, Bairro, Cidade, CodEstado, CEP FROM Anunciantes WHERE Cod = "& Request.QueryString("Anunciante") &"")
'Set CidadeSel = Conn.Execute("SELECT * FROM Cidades WHERE Cod="&Clientes("CodCidade"))
Set EstadoSel = Conn.Execute("SELECT Estado FROM Estados WHERE Cod="&Clientes("CodEstado"))

IdBoleto = request.querystring("IdBoleto")
%>

<% If IdBoleto = 1 Then %>

<%' ElseIf IdBoleto = 2 Then %>

<%' ElseIf IdBoleto = 3 Then %>

<%' ElseIf IdBoleto = 4 Then %>

<%' ElseIf IdBoleto = 5 Then %>

<%' ElseIf IdBoleto = 6 Then %>

<% End If %>
<%=Voltar%>





















"
Else '
%>
<%
Dim objAnuncio
Set objAnuncio = Conn.Execute("SELECT CodPlano, CodAnunciante FROM Anuncios WHERE Cod="& VarAnuncio)

Dim objPlano
Set objPlano = Conn.Execute("SELECT Plano, Valor FROM Planos WHERE Cod="& objAnuncio("CodPlano"))

Response.Write ""

Dim Clientes
Set Clientes = Conn.Execute("SELECT CodEstado FROM Anunciantes WHERE Cod = "& objAnuncio("CodAnunciante") &"")

'Dim EstadoSel
'Set EstadoSel = Conn.Execute("SELECT * FROM Estados WHERE Cod="&Clientes("CodEstado"))
%>


<% If BoletoBradesco = 1 Then %>



<% End If %>
<% If BoletoBB = 1 Then %>



<% End If %>
<% If BoletoItau = 1 Then %>



<% End If %>



<%

End If '

%>

<%=LinhaHorizontal3%>



FORMAS DE PAGAMENTO
 

<%' verifica se o anúncio é válido
If objPedidos.EOF Then
Response.Write "
Anuncio inexistente ou inativo.
Selecione a forma de pagamento abaixo para efetuar o pagamento de USD "& FormatNumber(objPlano("Valor"), 2) &" referente ao Plano "& objPlano("Plano") &".



&Pedido=<%=objPedidos("Cod")%>&DataHora=<%=objPedidos("DataHora")%>&Valor=<%=objPlano("Valor")%>" class="TituloVermelho">
> Imprimir Factura Bancária BANCO BIC<




&Pedido=<%=objPedidos("Cod")%>&DataHora=<%=objPedidos("DataHora")%>&Valor=<%=objPlano("Valor")%>" class="TituloVermelho">
> Boleto do Banco do Brasil <



&Pedido=<%=objPedidos("Cod")%>&DataHora=<%=objPedidos("DataHora")%>&Valor=<%=objPlano("Valor")%>" class="TituloVermelho">
> Boleto do Itaú<



> Clique aqui para fazer Depósito Bancário <
<%=Voltar%>


SuperASP do Brasil Ltda - contato@superasp.com.br

© 2001/2008 - Superasp do Brasil Ltda. Todos os direitos reservados