Estou aqui com novas duvidas no classificados que baixei da internet, ele é em ASP com banco de dados em Access, fiz funcionar perfeitamente, quero dizer quase perfeitamente , ele só não consegui upar as fotos na hora de cadastrar um novo item, meu Host é da UOL, já fiz as configurações de permissões nas pastas. Peço ajuda, uma luz no fim do tunel, alguma coisa, por que da erro na hora de upar, tb testei outros sistemas e sempre na hora de upar imagens da erro, estou colocando abaixo os code de alguns arquivos, se precisar de algum é so pedir
este é meu arquivo config.asp
<%
Session.LCID = 1046
Server.ScriptTimeOut = 1800
'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="&Server.MapPath("Database/DBClassificados.mdb")&";Driver={Microsoft Access Driver (*.mdb)}"
'Set Conn = Server.CreateObject("ADODB.Connection")
'Conn.Open "DBQ=classificado/Database/DBClassificados.mdb;Driver={Microsoft Access Driver (*.mdb)};"
End Sub
'Fechamento de Banco de dados
Sub FechaBd()
Conn.Close
Set Conn = Nothing
End Sub
'Variáveis gerais
Voltar = "<a href='java script:history.go(-1)' class='TituloCinzaEscuro'>Voltar</a>"
LinhaHorizontal = "<tr><td colspan=2><img src=Imagens/LinhaBarras.gif width=100% height=1></td></tr>"
LinhaHorizontal2 = "<tr><td colspan=2><img src=../Imagens/LinhaBarras.gif width=100% height=1></td></tr>"
LinhaHorizontal3 = "<tr><td height=18><img src=Imagens/LinhaBarras.gif width=100% height=1></td></tr>"
LinhaHorizontal4 = "<tr><td height=18><img src=../Imagens/LinhaBarras.gif width=100% height=1></td></tr>"
CamposObrigatorios = "<tr><td colspan=2 align=right class='TextoCinzaEscuro'>* Campos obrigatórios</td></tr>"
CorDestaque = "bgcolor='#D3FF3C'" 'Especifica a cor de fundo das células dos anúncios em destaque
'Variáveis constantes gerais
'Const EndLocal = "http://localhost/Classificados/" 'Caminho
'Const LocalFoto = "http://localhost/Classificados/Imagens/Fotos/" 'Pasta onde as fotos dos imóveis ficarão
'Const LocalBanner = "http://localhost/Classificados/Imagens/Banners/" 'Local onde ficarão os Banners.
'Const CaminhoFoto = "D:/ganhetempo/sites/Classificados/Imagens/Fotos/"
'Const CaminhoBanner = "D:/ganhetempo/sites/Classificados/Imagens/Banners/"
Const EndLocal = "http://buscariogrande.com.br/Classificados/" 'Caminho
Const LocalFoto = "http://buscariogrande.com.br/Classificados/Imagens/Fotos/" 'Pasta onde as fotos dos imóveis ficarão
Const LocalBanner = "http://buscariogrande.com.br/Classificados/Imagens/Banners/" 'Local onde ficarão os Banners.
Const CaminhoFoto = "http://buscariogrande.com.br\Classificados\Imagens\Fotos"
Const CaminhoBanner = "http://buscariogrande.com.br\Classificados\Imagens\Fotos"
Const Titulo = "BUSCARIOGRANDE CLASSIFICADOS"
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.ganhetempo.com" 'Endereço de envio de e-mail do servidor
Const EmailPadrao = "felipe@ganhetempo.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 BoletoItau = 1'Coloque 1 caso for utilizar esta opção ou coloque 0 caso não for utilizar.
Const BoletoBB = 1 'Coloque 1 caso for utilizar esta opção ou coloque 0 caso não for utilizar.
Const BoletoCaixa = 1 'Coloque 1 caso for utilizar esta opção ou coloque 0 caso não for utilizar.
Const BoletoBradesco = 1 'Coloque 1 caso for utilizar esta opção ou coloque 0 caso não for utilizar.
Const BoletoReal = 1 'Coloque 1 caso for utilizar esta opção ou coloque 0 caso não for utilizar.
Const BoletoUnibanco = 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"
'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 = "Ex.: Banco do Brasil" 'Seu banco
Const DSuaAgencia = "0000-0" 'Sua Agência
Const DSuaConta = "0000000-0" 'Sua Conta
Const DNomeCedente = "Nome do Favorecido" '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 = "R$" 'cifra da moeda
Const vCodigoCedenteItau = "" 'código do cedente
Const vCedenteItau = "xxxxxxxxxx" 'nome do cedente
Const vDadosCedenteItau = "xxxxxxxxx17-750" 'dados do cedente
Const vCNPJItau = "00.000.000/0001-00"
Const vVencimentoItau = 10
'####################################################################################################################
#####################################
'Dados para configuração do boleto bancário (Bradesco)
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 = "" 'sigla da carteira
Const vMoedaBradesco = "9" 'tamanho da moeda
Const vEspecieBradesco = "R$" 'cifra da moeda
Const vCodigoCedenteBradesco = "" 'código do cedente
Const vCedenteBradesco = "Exemplo: xxxxxxx" 'nome do cedente
Const vDadosCedenteBradesco = "Exemplo:xxxxxxxxx" 'dados do cedente
Const vCNPJBradesco = "00.000.000/0001-00"
Const vVencimentoBradesco = 10
'####################################################################################################################
#####################################
'Dados para configuração do boleto bancário (Caixa Econômica Federal)
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 = "SR" 'código da carteira
Const vLetraCarteiraCaixa = "" 'sigla da carteira
Const vMoedaCaixa = "9" 'tamanho da moeda
Const vEspecieCaixa = "R$" 'cifra da moeda
Const vCodigoCedenteCaixa = "" 'código do cedente
Const vCedenteCaixa = "xxxxxxxxxxx" 'nome do cedente
Const vDadosCedenteCaixa = "xxxxxxxxxxxxxxx" 'dados do cedente
Const vCNPJCaixa = "00.000.000/0001-00"
Const vVencimentoCaixa = 10
'####################################################################################################################
#####################################
'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 = "R$" 'cifra da moeda
Const vCodigoCedenteBB = "" 'código do cedente
Const vCedenteBB = "Exemplo: xxxxxxxxxxxxx" 'nome do cedente
Const vDadosCedenteBB = "Exemplo: xxxxxxxxxxxx" 'dados do cedente
Const vCNPJBB = "00.000.000/0001-00"
Const vVencimentoBB = 10
'####################################################################################################################
#####################################
'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 = "R$" 'cifra da moeda
Const vCodigoCedenteReal = "" 'código do cedente
Const vCedenteReal = "Exemplo: xxxxxxxxxxxxxxxxx" 'nome do cedente
Const vDadosCedenteReal = "Exemplo: xxxxxxxxxxxx" 'dados do cedente
Const vCNPJReal = "00.000.000/0001-00"
Const vVencimentoReal = 10
'####################################################################################################################
#####################################
'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 = "R$" 'cifra da moeda
Const vCodigoCedenteUnibanco = "" 'código do cedente
Const vCedenteUnibanco = "Exemplo: xxxxxxxxxxxxx" 'nome do cedente
Const vDadosCedenteUnibanco = "Exemplo: xxxxxxxxxx" 'dados do cedente
Const vCNPJUnibanco = "00.000.000/0001-00"
Const vVencimentoUnibanco = 10
'####################################################################################################################
#####################################
'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(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
%>
Pergunta
manogaucho
Tudo bem!
Estou aqui com novas duvidas no classificados que baixei da internet, ele é em ASP com banco de dados em Access, fiz funcionar perfeitamente, quero dizer quase perfeitamente , ele só não consegui upar as fotos na hora de cadastrar um novo item, meu Host é da UOL, já fiz as configurações de permissões nas pastas. Peço ajuda, uma luz no fim do tunel, alguma coisa, por que da erro na hora de upar, tb testei outros sistemas e sempre na hora de upar imagens da erro, estou colocando abaixo os code de alguns arquivos, se precisar de algum é so pedir
este é meu arquivo config.asp
<% Session.LCID = 1046 Server.ScriptTimeOut = 1800 '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="&Server.MapPath("Database/DBClassificados.mdb")&";Driver={Microsoft Access Driver (*.mdb)}" 'Set Conn = Server.CreateObject("ADODB.Connection") 'Conn.Open "DBQ=classificado/Database/DBClassificados.mdb;Driver={Microsoft Access Driver (*.mdb)};" End Sub 'Fechamento de Banco de dados Sub FechaBd() Conn.Close Set Conn = Nothing End Sub 'Variáveis gerais Voltar = "<a href='java script:history.go(-1)' class='TituloCinzaEscuro'>Voltar</a>" LinhaHorizontal = "<tr><td colspan=2><img src=Imagens/LinhaBarras.gif width=100% height=1></td></tr>" LinhaHorizontal2 = "<tr><td colspan=2><img src=../Imagens/LinhaBarras.gif width=100% height=1></td></tr>" LinhaHorizontal3 = "<tr><td height=18><img src=Imagens/LinhaBarras.gif width=100% height=1></td></tr>" LinhaHorizontal4 = "<tr><td height=18><img src=../Imagens/LinhaBarras.gif width=100% height=1></td></tr>" CamposObrigatorios = "<tr><td colspan=2 align=right class='TextoCinzaEscuro'>* Campos obrigatórios</td></tr>" CorDestaque = "bgcolor='#D3FF3C'" 'Especifica a cor de fundo das células dos anúncios em destaque 'Variáveis constantes gerais 'Const EndLocal = "http://localhost/Classificados/" 'Caminho 'Const LocalFoto = "http://localhost/Classificados/Imagens/Fotos/" 'Pasta onde as fotos dos imóveis ficarão 'Const LocalBanner = "http://localhost/Classificados/Imagens/Banners/" 'Local onde ficarão os Banners. 'Const CaminhoFoto = "D:/ganhetempo/sites/Classificados/Imagens/Fotos/" 'Const CaminhoBanner = "D:/ganhetempo/sites/Classificados/Imagens/Banners/" Const EndLocal = "http://buscariogrande.com.br/Classificados/" 'Caminho Const LocalFoto = "http://buscariogrande.com.br/Classificados/Imagens/Fotos/" 'Pasta onde as fotos dos imóveis ficarão Const LocalBanner = "http://buscariogrande.com.br/Classificados/Imagens/Banners/" 'Local onde ficarão os Banners. Const CaminhoFoto = "http://buscariogrande.com.br\Classificados\Imagens\Fotos" Const CaminhoBanner = "http://buscariogrande.com.br\Classificados\Imagens\Fotos" Const Titulo = "BUSCARIOGRANDE CLASSIFICADOS" 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.ganhetempo.com" 'Endereço de envio de e-mail do servidor Const EmailPadrao = "felipe@ganhetempo.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 BoletoItau = 1'Coloque 1 caso for utilizar esta opção ou coloque 0 caso não for utilizar. Const BoletoBB = 1 'Coloque 1 caso for utilizar esta opção ou coloque 0 caso não for utilizar. Const BoletoCaixa = 1 'Coloque 1 caso for utilizar esta opção ou coloque 0 caso não for utilizar. Const BoletoBradesco = 1 'Coloque 1 caso for utilizar esta opção ou coloque 0 caso não for utilizar. Const BoletoReal = 1 'Coloque 1 caso for utilizar esta opção ou coloque 0 caso não for utilizar. Const BoletoUnibanco = 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" '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 = "Ex.: Banco do Brasil" 'Seu banco Const DSuaAgencia = "0000-0" 'Sua Agência Const DSuaConta = "0000000-0" 'Sua Conta Const DNomeCedente = "Nome do Favorecido" '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 = "R$" 'cifra da moeda Const vCodigoCedenteItau = "" 'código do cedente Const vCedenteItau = "xxxxxxxxxx" 'nome do cedente Const vDadosCedenteItau = "xxxxxxxxx17-750" 'dados do cedente Const vCNPJItau = "00.000.000/0001-00" Const vVencimentoItau = 10 '#################################################################################################################### ##################################### 'Dados para configuração do boleto bancário (Bradesco) 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 = "" 'sigla da carteira Const vMoedaBradesco = "9" 'tamanho da moeda Const vEspecieBradesco = "R$" 'cifra da moeda Const vCodigoCedenteBradesco = "" 'código do cedente Const vCedenteBradesco = "Exemplo: xxxxxxx" 'nome do cedente Const vDadosCedenteBradesco = "Exemplo:xxxxxxxxx" 'dados do cedente Const vCNPJBradesco = "00.000.000/0001-00" Const vVencimentoBradesco = 10 '#################################################################################################################### ##################################### 'Dados para configuração do boleto bancário (Caixa Econômica Federal) 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 = "SR" 'código da carteira Const vLetraCarteiraCaixa = "" 'sigla da carteira Const vMoedaCaixa = "9" 'tamanho da moeda Const vEspecieCaixa = "R$" 'cifra da moeda Const vCodigoCedenteCaixa = "" 'código do cedente Const vCedenteCaixa = "xxxxxxxxxxx" 'nome do cedente Const vDadosCedenteCaixa = "xxxxxxxxxxxxxxx" 'dados do cedente Const vCNPJCaixa = "00.000.000/0001-00" Const vVencimentoCaixa = 10 '#################################################################################################################### ##################################### '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 = "R$" 'cifra da moeda Const vCodigoCedenteBB = "" 'código do cedente Const vCedenteBB = "Exemplo: xxxxxxxxxxxxx" 'nome do cedente Const vDadosCedenteBB = "Exemplo: xxxxxxxxxxxx" 'dados do cedente Const vCNPJBB = "00.000.000/0001-00" Const vVencimentoBB = 10 '#################################################################################################################### ##################################### '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 = "R$" 'cifra da moeda Const vCodigoCedenteReal = "" 'código do cedente Const vCedenteReal = "Exemplo: xxxxxxxxxxxxxxxxx" 'nome do cedente Const vDadosCedenteReal = "Exemplo: xxxxxxxxxxxx" 'dados do cedente Const vCNPJReal = "00.000.000/0001-00" Const vVencimentoReal = 10 '#################################################################################################################### ##################################### '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 = "R$" 'cifra da moeda Const vCodigoCedenteUnibanco = "" 'código do cedente Const vCedenteUnibanco = "Exemplo: xxxxxxxxxxxxx" 'nome do cedente Const vDadosCedenteUnibanco = "Exemplo: xxxxxxxxxx" 'dados do cedente Const vCNPJUnibanco = "00.000.000/0001-00" Const vVencimentoUnibanco = 10 '#################################################################################################################### ##################################### '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(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 %>e este é meu arquivo web.config Editado por manogauchoLink para o comentário
Compartilhar em outros sites
13 respostass a esta questão
Posts Recomendados