manogaucho

Tudo bem ! vamos la então: ESTE é o Upload.asp <% '-------------------------------------------------------------------------------------------------------------- 'Criacao de Nome Unico Dim NomeAleatorio Function GerarNomeAleatorio(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(NomeAleatorio) < 30 Num = chr_array(Int(35 * Rnd )) NomeAleatorio = NomeAleatorio + Num Loop GerarNomeAleatorio = NomeAleatorio End Function '-------------------------------------------------------------------------------------------------------------------- Class FileUploader Public Files Private mcolFormElem Private Sub Class_Initialize() Set Files = Server.CreateObject("Scripting.Dictionary") Set mcolFormElem = Server.CreateObject("Scripting.Dictionary") End Sub Private Sub Class_Terminate() If IsObject(Files) Then Files.RemoveAll() Set Files = Nothing End If If IsObject(mcolFormElem) Then mcolFormElem.RemoveAll() Set mcolFormElem = Nothing End If End Sub Public Property Get Form(sIndex) Form = "" If mcolFormElem.Exists(LCase(sIndex)) Then Form = mcolFormElem.Item(LCase(sIndex)) End Property Public Default Sub Upload() Dim biData, sInputName Dim nPosBegin, nPosEnd, nPos, vDataBounds, nDataBoundPos Dim nPosFile, nPosBound biData = Request.BinaryRead(Request.TotalBytes) nPosBegin = 1 nPosEnd = InstrB(nPosBegin, biData, CByteString(Chr(13))) If (nPosEnd-nPosBegin) <= 0 Then Exit Sub vDataBounds = MidB(biData, nPosBegin, nPosEnd-nPosBegin) nDataBoundPos = InstrB(1, biData, vDataBounds) Do Until nDataBoundPos = InstrB(biData, vDataBounds & CByteString("--")) nPos = InstrB(nDataBoundPos, biData, CByteString("Content-Disposition")) nPos = InstrB(nPos, biData, CByteString("name=")) nPosBegin = nPos + 6 nPosEnd = InstrB(nPosBegin, biData, CByteString(Chr(34))) sInputName = CWideString(MidB(biData, nPosBegin, nPosEnd-nPosBegin)) nPosFile = InstrB(nDataBoundPos, biData, CByteString("filename=")) nPosBound = InstrB(nPosEnd, biData, vDataBounds) If nPosFile <> 0 And nPosFile < nPosBound Then Dim oUploadFile, sFileName Set oUploadFile = New UploadedFile nPosBegin = nPosFile + 10 nPosEnd = InstrB(nPosBegin, biData, CByteString(Chr(34))) sFileName = CWideString(MidB(biData, nPosBegin, nPosEnd-nPosBegin)) oUploadFile.FileName = "{" & GerarNomeAleatorio(30) & "}_" & Right(sFileName, Len(sFileName)-InStrRev(sFileName, "\")) nPos = InstrB(nPosEnd, biData, CByteString("Content-Type:")) nPosBegin = nPos + 14 nPosEnd = InstrB(nPosBegin, biData, CByteString(Chr(13))) oUploadFile.ContentType = CWideString(MidB(biData, nPosBegin, nPosEnd-nPosBegin)) nPosBegin = nPosEnd+4 nPosEnd = InstrB(nPosBegin, biData, vDataBounds) - 2 oUploadFile.FileData = MidB(biData, nPosBegin, nPosEnd-nPosBegin) If oUploadFile.FileSize > 0 Then Files.Add LCase(sInputName), oUploadFile Else nPos = InstrB(nPos, biData, CByteString(Chr(13))) nPosBegin = nPos + 4 nPosEnd = InstrB(nPosBegin, biData, vDataBounds) - 2 If Not mcolFormElem.Exists(LCase(sInputName)) Then mcolFormElem.Add LCase(sInputName), CWideString(MidB(biData, nPosBegin, nPosEnd-nPosBegin)) End If nDataBoundPos = InstrB(nDataBoundPos + LenB(vDataBounds), biData, vDataBounds) Loop End Sub 'String to byte string conversion Private Function CByteString(sString) Dim nIndex For nIndex = 1 to Len(sString) CByteString = CByteString & ChrB(AscB(Mid(sString,nIndex,1))) Next End Function 'Byte string to string conversion Private Function CWideString(bsString) Dim nIndex CWideString ="" For nIndex = 1 to LenB(bsString) CWideString = CWideString & Chr(AscB(MidB(bsString,nIndex,1))) Next End Function End Class Class UploadedFile Public ContentType Public FileName Public FileData Public Property Get FileSize() FileSize = LenB(FileData) End Property Public Sub SaveToDisk(sPath) Dim oFS, oFile Dim nIndex If sPath = "" Or FileName = "" Then Exit Sub If Mid(sPath, Len(sPath)) <> "\" Then sPath = sPath & "\" Set oFS = Server.CreateObject("Scripting.FileSystemObject") If Not oFS.FolderExists(sPath) Then Exit Sub Set oFile = oFS.CreateTextFile(sPath & FileName, True) For nIndex = 1 to LenB(FileData) oFile.Write Chr(AscB(MidB(FileData,nIndex,1))) Next oFile.Close End Sub Public Sub SaveToDatabase(ByRef oField) If LenB(FileData) = 0 Then Exit Sub If IsObject(oField) Then oField.AppendChunk FileData End If End Sub End Class %> Este é o InsAnuncio.asp <!-- #include file="Includes/BarraCima.asp" --> <!--#include file="Includes/Form2.asp"--> <!-- #include file="Includes/Upload.asp" --> <% Dim VarAct Dim objSecoes Dim objPlanos Dim VarCodAutenticacao Set objSecoes = Conn.Execute("SELECT * FROM Secoes ORDER BY Secao") Set objPlanos = Conn.Execute("SELECT * FROM Planos ORDER BY Cod") VarAct = Request.QueryString("Act") VarCodAutenticacao = GerarChave(06) Dim objEstados2 Set objEstados2 = Conn.Execute("Select * from Estados order by Estado asc") %> <script LANGUAGE="Javascript"> <!-- // function MM_openBrWindow(theURL,winName,features) { //v2.0 window.open(theURL,winName,features); } //--> </SCRIPT> <tr> <td valign="top"> <table width="100%" height="100%" border="0" cellpadding="0" cellspacing="0"> <tr> <td width="150" align="center" valign="top" bgcolor="#F9F9F9"><!-- #include file="Includes/BarraEsq.asp" --></td> <td align="center" valign="top" bgcolor="#FFFFFF"> <table width="468" border="0" cellspacing="0" cellpadding="0"> <tr> <td height="10"><img src="Imagens/Blank.gif" width="1" height="1"></td> </tr> <tr> <td align="center" class="TituloCinzaMedio">INSER&Ccedil;&Atilde;O DE AN&Uacute;NCIO </td> </tr> <tr> <td align="center">&nbsp;</td> </tr> <tr> <td align="center"> <% Dim VarNomeProduto Dim VarBreveDescricao Dim VarDescricao Dim VarValor Dim VarFormaPagamento Dim VarEstado Dim VarCidade Dim VarSecao Dim VarPlano Dim VarLocal Dim VarFoto Dim VarFoto1 Dim VarFoto2 Dim VarFoto3 Dim VarFoto4 Dim VarFoto5 Dim Foto1 Dim Foto2 Dim Foto3 Dim Foto4 Dim Foto5 Dim VarMesPagamento Dim InsBd Dim x If VarAct = "Cadastrar" Then '------------------------------------------------------------- Dim Uploader, File Set Uploader = New FileUploader Uploader.Upload() If Uploader.Files.Count > 0 Then For Each File In Uploader.Files.Items File.SaveToDisk CaminhoFoto VarFoto = VarFoto &"|"& File.FileName Next VarFoto = Right(VarFoto, Len(VarFoto)-1) VarFoto = Split(VarFoto, "|") End If VarNomeProduto = Replace(Uploader.Form("NomeProduto"),"'","''") VarBreveDescricao = Replace(Uploader.Form("BreveDescricao"),"'","''") VarDescricao = Replace(Replace(Uploader.Form("Descricao"),vb script:this.value=''" value="Digite uma cidade" size="1"><span class='TextoCinzaMascara'> (Ex: Mogi das Cruzes)</span></td> </tr> <%=LinhaHorizontal%> <tr> <td class="TituloCinzaEscuro">Se&ccedil;&atilde;o:*</td> <td> <select name="Secao" size="1" class="Form13319"> <option selected value="">Selecione a se&ccedil;&atilde;o</option> <% While not objSecoes.EOF Response.Write "<option value='"& objSecoes("Cod") &"'>"& objSecoes("Secao") &"</option>" objSecoes.MoveNext : Wend %> </select> </td> </tr> <%=LinhaHorizontal%> <tr> <td height="20" colspan="2" align="center" class="TituloCinzaEscuro">&nbsp;</td> </tr> <%=LinhaHorizontal%> <tr> <td height="20" colspan="2" align="center" class="TituloCinzaEscuro" bgcolor="#DDDDDD">Fotos</td> </tr> <% With Response .Write LinhaHorizontal .Write FCampos(6) .Write LinhaHorizontal .Write FCampos(7) .Write LinhaHorizontal .Write FCampos(8) .Write LinhaHorizontal .Write FCampos(9) .Write LinhaHorizontal .Write FCampos(10) .Write LinhaHorizontal End With %> <tr> <td height="20" colspan="2" align="center" class="TituloCinzaEscuro">&nbsp;</td> </tr> <%=LinhaHorizontal%> <tr> <td height="20" colspan="2" align="center" class="TituloCinzaEscuro" bgcolor="#DDDDDD">Plano</td> </tr> <%=LinhaHorizontal%> <tr> <td height="20" colspan="2" align="center"> <select name="Plano" class="Form17019"> <option selected>Selecione o plano</option> <% While not objPlanos.EOF Response.Write "<option value='"& objPlanos("Cod") &"'>"& objPlanos("Plano")&"</option>" objPlanos.MoveNext Wend %> </select>&nbsp;<a href="#" class="TextoCinzaEscuro" onClick="MM_openBrWindow('PopPlanos.asp','','scrollbars=yes,width=600,height=300')">Conhe&ccedil;a nossos planos</a> </td> </tr> <%=LinhaHorizontal%> <tr> <td height="20" colspan="2" align="center" class="TituloCinzaEscuro">&nbsp;</td> </tr> <% With Response .Write FCampos(11) End With %> <tr> <td height="30" colspan="2" align="center" valign="bottom"><%=Voltar%></td> </tr> </form> </table> <% End If %> </td> </tr> </table> </td> <td width="150" align="center" valign="top" bgcolor="#F8F8F8"><!-- #include file="Includes/BarraDir.asp" --></td> </tr> </table> </td> </tr> <!-- #include file="Includes/Rodape.asp" --> mais um codigo é so pedir, acredito ser estes.

Tudo bem, estou mandando a lista dos componentes da UOL: - CDOSYS - FileSystemObject (FSO) - Dundas Upload - ASPUpload - ASPEasyZip - Aspgrid - Aspjpeg - AspPDF - Chart Director - DynuCOM - MS Office Web Component - Obout AspTreeView 2 - Itaucripto - CobrebemX Sugestão de uso de componentes Para otimizar os recursos de sua hospedagem, sugerimos a substituição de alguns componentes da Server Objects em sua programação. Segue abaixo, uma lista com os componente correlacionados: AspImage -> AspJpeg Cdonts, AspMail -> CDOSYS Disponibilizamos alguns exemplos de uso dos componentes relacionados no link abaixo: LINK UOL Esta é uma FAQ com TopAcesso do UOL HOST. Estou Mandando Tambem os arquivos que estão no site e o que baixei da internet. ESTE QUE ESTA NO SITE ESTE QUE BAIXEI DA INTERNET Para maiores informações baixei de um Forum "Pacotão De Scripts Vendido No Mercado Livre", não sei se ajuda!

Meu amigo obrigado pela tua grande ajuda! O pior que não dá erro algum, ela so não upa a imagem, fica cadastrado o produto, mas sem foto, o cadastro do produto vai ate a parte de envio de E-mail para confirmação, isto é outro erro não manda e-mail, o envio de E-mail da UOL e atravez do CDOSYS, mas deixa este erro para depois, vamos focar o erro da imagem , abaixo ta o link do classificado, não da para se cadastrar, pois tb não envia o e-mail de confirmação, mas fica tudo do banco de dados, como cadastro e o produto sem imagem upada, mas aguardando confirmação de e-mail. tenho um usuario e senha para ti, ou tu te cadastra e me avisa que eu ativo teu cadastro direto pelo banco de dados, tambem posso te mandar se quiser, posso mandar tb meu classificado, como venho e como esta mudado por mim. CLASSIFICADO TESTE

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 = "&nbsp;" 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 <?xml version="1.0" encoding="UTF-8"?> <configuration> <system.web> <authentication mode="Windows" /> </system.web> </configuration>