nosliwde

Prezados Colegas, Preciso imprimir o resultado de uma consulta que traz por exemplo os dados de uns 20 clientes (Nome, Endereco, Cidade, Bairro, Cep) em 2 colunas na pagina, de forma a ser impresso logo depois em etiquetas. Cara, alguém sabe me dizer como fazer istro no ASP? O que ta pegando e o posicionamento dos dados em 2 colunas na tela. alguém tem alguma sugestao ai para me passar? Aguardo suas sugestoes e ajudas. Obrigado desde já.

Bom dia Colegas, Estou trabalhando em uma pagina que lista os Mutuarios(Clientes) que possuem contrato com a empresa. Agora me foi pedido que ao selecionar o Mutuario(Cliente), que o sistema envie um e-mail pre-elaborado para ele com o Boleto Bancario(arquivo PDF) anexado a ele. Minha pagina já gera o Boleto Bancario, mas minha principal duvida e: "Como faco em ASP, pra transformar o Boleto Bancario ou gerar o Boleto bancario no formato PDF?" Pesquisei e fiquei sabendo sobre o componente Persits.Pdf, mas ele não e Free. Existe alguma outra forma? Aguardo sua ajuda...

Obrigado pela ajuda.

Prezados Colegas, Tenho salvo alguns arquivos em uma pasta no Servidor, resultado de Upload de arquivos a serem enviados anexados ao e-mail. Estes arquivos de Upload estao se acumulando nesta pasta, no servidor. Quero a partir de agora, excluir o arquivo da pasta, apos o envio do e-mail, para evitar a sobrecarga de arquivos no Servidor. Como fazer para excluir um arquivo no ASP? Aguardo sua resposta. Obrigado.

Prezados colegas, Estou trabalhando com ASP Classico e tenho 2 Inputs no meu Formulario, que são os seguintes: Tamanho.: <input type="text" name="inParTamanho" value="" size="10" maxlength="5" onFocus="return Focu(this)" onBlur="return Sair(this)" class="entrada" > Campo Fixo..: <input disabled type="text" name="inParConteudoFixo" size="50" maxlength="" onFocus="return Focu(this)" onBlur="return Sair(this)" class="entrada" > Desejo que o valor digitado pelo usuario no campo Tamanho, seja o valor da propriedade MaxLength em Campo Fixo, ou seja, se o usuario digitar o valor 5 em Tamanho, que Campo Fixo não aceite a digitacao de nada mais que 5 caracteres. Como posso fazer um maxlength dinamico? Tem jeito? Aguardo sua resposta.

Boa tarde pessoal. Estou trabalhando em ASP Classico e surgiu uma duvida q quero tirar com vocês. Eu tenho a seguinte Query de consulta: 'Buscas os Controles na Conta Bancaria da Empresa Logada strBControl = "SELECT ConBanControle FROM ContaBancaria WHERE EmpCodigo="&Session("Empresa") Set rsBControl = Server.CreateObject("Adodb.Recordset") rsBControl.open strBControl, conexao, 1, 3 A query acima retorna varios resultados, 13 para ser mais exato, e todos são armazenados no recordSet rsBControl. O que eu desejo e armazenar o resultado do RecordSet rsBControl no array controles. Eu tentei assim: a=0 while not(rsBControl.EOF) controles(a) = rsBControl("ConBanControle") a= a+1 rsBControl.MoveNext wend Mas infelizmente não deu certo. alguém ai sabe me dizer como fazer? Aguardo a ajuda de voces. Desde já, obrigado

Oi pessoal. A Funcao abaixo formata um valor monetario da seguinte forma: Se entro com o valor 10000 ela formata 10000,00. Gostaria que ficasse formatadao assim: 10.000,00 ou se o valor entrado fosse 1000000 (Um Milhao), que ficasse assim 1.000.000,00. Eis a funcao: // CAMPO DO TIPO 0,00 function FormataValor(campo, tammax, teclapres) { tecla = teclapres.keyCode if (tecla==9) return vr = campo.value vr = vr.replace( ",", "" ) vr = vr.replace( ".", "" ) vr = vr.replace( ".", "" ) vr = vr.replace( "/", "" ) tam = vr.length if ((tam>2)&&(vr.substring(0,1)==0)) { campo.value = vr.substring(1,tam) vr = campo.value tam = vr.length } if (tam > tammax) return if (tecla == 8) tam=tam-2 if (tam<2) campo.value = "0," + vr else campo.value = vr.substring(0,tam-1) + "," + vr.substring(tam-1, vr.length) } O que tenho que mudar pra que ocorra o resultado que espero, como citado nas primeiras linhas? Aguardo sua ajuda.

Ficaria assim? function VerEmail(pesquisa2) { verArroba=pesquisa2.indexOf("@") if ( verArroba!=-1 ) { tamStr=pesquisa2.length //Pega o pedaco da String depois do simbolo @ complement = pesquisa2.substring(verArroba+1,tamStr); //Pega o pedaco da String antes do simbolo @ pesquisa2 = pesquisa2.substring(0,verArroba); } valor[0]= pesquisa2 valor[1]= complement return valor } Mas e na hora de eu chamar os valores retornados por este array? Como eu faco? Veja meu codigo: VerEmail(pesquisa); //Chama a funcao VerEmail pesquisa=VerEmail(pesquisa); //Chama o valor que retorna da funcao VerEmail E então, o que faco?

Prezados Colegas, Eis a funcao: function VerEmail(pesquisa2) { verArroba=pesquisa2.indexOf("@") if ( verArroba!=-1 ) { tamStr=pesquisa2.length //Pega o pedaco da String depois do simbolo @ complement = pesquisa2.substring(verArroba+1,tamStr); //Pega o pedaco da String antes do simbolo @ pesquisa2 = pesquisa2.substring(0,verArroba); } return pesquisa2 } As 2 variaveis coloridas de vermelho, possuem valores que quero retornar. Eu estou conseguindo retornar apenas 1 valor, o pesquisa2. Como e que faco pra retornar tambem o valor de complement? Quero retornar pesquisa2 e complement.Como e que faco isto? E depois de retornar os 2 valores, como e que faco pra chama-los? Aguardo sua ajuda...

Oi pessoal, Meu sistema esta apresentando a seguinte msg de erro: Microsoft OLE DB Provider for SQL Server error '80040e14' Incorrect syntax near the keyword 'WHERE'. Eis a Query problematica: str = "SELECT "&str_planejamento&" OP.ProCodigo, OP.OrcProDescricao, OP.OrcProUnidade, OP.OrcProQuantBloqueada, SUM (OP.OrcProPrecoProdutivo) AS OrcProPrecoProdutivo, " &_ "SUM(OC.OrcComQuantidade * OS.OrcSerQuantidade) AS ORCADO, " &_ "(SELECT SUM(OS1.OrcSerQuantidade * OC1.OrcComQuantidade) FROM Orcamento_Composicao OC1 " &_ "INNER JOIN Orcamento_Servico OS1 ON (OC1.OrcSerIndice = OS1.OrcSerIndice) AND (OC1.OrcCodigo = OS1.OrcCodigo) " &_ "INNER JOIN CentroCusto CC1 ON CC1.OrcCodigo = OC1.OrcCodigo " &_ "WHERE CC1.CenCusCodigo = CC.CenCusCodigo AND OC1.ProCodigo = OP.ProCodigo GROUP BY ProCodigo) AS ORCADO_OBRA, " &_ "(SELECT SUM(IE.IteEntQuantidade) FROM Entrada E " &_ "INNER JOIN ItensEntrada IE ON IE.EntCodigo = E.EntCodigo " &_ "WHERE (E.CenCusCodigo = CC.CenCusCodigo) AND (E.PedCodigo IS NULL) AND (IE.ProCodigo = OP.ProCodigo)) AS ENTRADA_AVULSA, " &_ "(SELECT SUM(IE.IteEntQuantidade) FROM Entrada E " &_ "INNER JOIN ItensEntrada IE ON IE.EntCodigo = E.EntCodigo " &_ "WHERE (E.CenCusCodigo = CC.CenCusCodigo) AND (E.PedCodigo IS NOT NULL) AND (IE.ProCodigo = OP.ProCodigo)) AS ENTRADA, " &_ "(SELECT SUM(IT.IteTraQuantidade) FROM Transferencia T " &_ "INNER JOIN ItensTransferencia IT ON IT.TraCodigoControle = T.TraCodigoControle AND T.EmpCodigo = IT.EmpCodigo " &_ " INNER JOIN CENTROCUSTO CCO ON CCO.CENCUSCODIGO = T.CENCUSORIGEM AND CCO.ORCCODIGO = "&Request.QueryString("orccodigo")&" "&_ "WHERE (T.CenCusDestino = CC.CenCusCodigo) AND (IT.ProCodigo = OP.ProCodigo)) AS TRANSFERIDO_PARA, " &_ "(SELECT SUM(IT.IteTraQuantidade) FROM Transferencia T " &_ "INNER JOIN ItensTransferencia IT ON IT.TraCodigoControle = T.TraCodigoControle AND T.EmpCodigo = IT.EmpCodigo " &_ " INNER JOIN CENTROCUSTO CCO ON CCO.CENCUSCODIGO = T.CENCUSORIGEM AND CCO.ORCCODIGO = "&Request.QueryString("orccodigo")&" "&_ "WHERE (T.CenCusDestino = CC.CenCusCodigo) AND (IT.ProCodigo = OP.ProCodigo)) AS TRANSFERIDO_PARA_OBRA, " &_ "(SELECT SUM(IA.IteAplQuantidade) FROM Aplicacao A " &_ "INNER JOIN ItensAplicacao IA ON IA.AplCodigo = A.AplCodigo " &_ "WHERE (A.CenCusCodigo = CC.CenCusCodigo) AND (IA.ProCodigo = OP.ProCodigo)) AS APLICACAO, " &_ "(SELECT SUM(IT.IteTraQuantidade) FROM Transferencia T " &_ "INNER JOIN ItensTransferencia IT ON IT.TraCodigoControle = T.TraCodigoControle AND T.EmpCodigo = IT.EmpCodigo " &_ " INNER JOIN CENTROCUSTO CCO ON CCO.CENCUSCODIGO = T.CENCUSORIGEM AND CCO.ORCCODIGO = "&Request.QueryString("orccodigo")&" "&_ "WHERE (T.CenCusDestino != CC.CenCusCodigo) AND (T.CenCusOrigem = "&Session("CentroCusto")&") AND (IT.ProCodigo = OP.ProCodigo)) AS TRANSFERIDO_PARA_FORA, " &_ "Isnull((SELECT SUM(ITS.IteSolQuantidade) FROM ItensSolicitacao ITS " &_ "INNER JOIN Solicitacao S ON S.SolCodigo = ITS.SolCodigo " &_ "WHERE (S.SolArquivoRPO IS NULL AND (ITS.ProCodigo = OC.ProCodigo) AND S.CenCusCodigo = CC.CenCusCodigo)),0) AS SALDO_SERVICO " &_ "FROM CentroCusto CC, Orcamento_Titulo OT, Orcamento_Servico OS, Orcamento_Composicao OC, Orcamento_Produto OP " &_ "WHERE CC.OrcCodigo = OT.OrcCodigo AND CC.OrcCodigo = OS.OrcCodigo AND CC.OrcCodigo = OC.OrcCodigo AND CC.OrcCodigo = OP.OrcCodigo AND OT.OrcTitCodigo = OS.OrcTitCodigo AND OS.OrcSerIndice = OC.OrcSerIndice AND OC.ProCodigo = OP.ProCodigo " &_ "AND CC.CenCusCodigo = " & Session("CentroCusto") & " AND OP.ProCodigo = '"&atual&"'" str = str & " GROUP BY CC.CenCusCodigo, OC.ProCodigo, OP.ProCodigo, OP.OrcProDescricao, OP.OrcProUnidade, OP.OrcProQuantBloqueada ORDER BY OP.OrcProDescricao" A linha grifada de vermelho, e o conteudo da linha 763, apresentada na msg de erro. Aguardo voces. Agradeco a ajuda.

Jonathan, acabei de tentar o que você me sugeriu. Apresentou de novo o mesmo erro. Alguém aí tem outra sugestão?

Boa tarde. No relatório que estou criando, cada linha do relatório possui: 01 CheckBox, Nome do Funcionário, DropDown Evento, DwopDown Jornada, campo Serviço e Descrição de Serviço , Qtde Horas e opção de Salvar a alteração de dados na linha. Veja o meu código: <form name="form" method="post" action=""> <table width="100%" border="0" cellspacing="0" cellpadding="0"> <tr> <td colspan="4" align="RIGHT">N&ordm; de registros encontrados: <b><%=rsLotados.RecordCount%></b> &nbsp;&nbsp;&nbsp;&nbsp;P&aacute;gina <%'=pagina%> de <%'=ultpagina%></td> </tr> <tr bgcolor="#0672a7"> <td width="37" class="titulo" nowrap>&nbsp;&nbsp;<a href='java script:Selecionar_Todos(form.Check,quantidade.value)'><img src="../../Imagens/selecionar00.gif" border=0 alt="Marcar / Desmarcar Todos"></a>&nbsp;&nbsp;</td> <td class="titulo">Funcionário</td> <td class="titulo">Evento</td> <td class="titulo">Jornada</td> <td width="63" class="titulo">Serviço</td> <td width="258"></td> <td width="87" class="titulo">Qtde Hrs</td> <td width="30" class="titulo"></td> </tr> <% rsLotados.MoveFirst Do While not(rsLotados.EOF) %> <td align="left"><input type="Checkbox" name="prog" value="<%=rsLotados("FunCodigo")%>" onClick="MudarLinha(this)"></td> <td align="left" width="97" %> <%=rsLotados("UsuNome")%></td> <td width="60" align="left" %><select name="inIndice" class="entrada" > <option value="">&nbsp;</option> <% rsEvento.MoveFirst Do while not(rsEvento.EOF)%> <option value="<%=rsEvento("EveCodigo")%>"><%=rsEvento("EveDescricao")%></option> <%rsEvento.MoveNext Loop%> </select> <% if Request.QueryString("Evento")&"" <> "" then %> <script>Seleciona_Option(<%=Request.QueryString("Evento")%>,form.inIndice)</script> <% end if %> </td> <td width="54" align="left" %><select name="inJornada" class="entrada"> <% rsJornada.MoveFirst Do while not(rsJornada.EOF) if rsJornada("MININICIAL")<10 then horario = rsJornada("HORAINICIAL") &":0"&rsJornada("MININICIAL") else horario = rsJornada("HORAINICIAL") &":"&rsJornada("MININICIAL") end if if rsJornada("JORHORAFINAL")&"" <> "" then if rsJornada("MINFINAL")<10 then horario = horario & " às " & rsJornada("HORAFINAL") &":0"&rsJornada("MINFINAL") else horario = horario & " às " & rsJornada("HORAFINAL") &":"&rsJornada("MINFINAL") end if end if %> <option value="<%=rsJornada("JorCodigo")%>"><%=horario%></option> <%'if rsJornada("JorHoraFinal")&"" <> "" then response.write " - ("&FormatNumber(rsJornada("JorQtd"),2)&")"%> <%rsJornada.MoveNext Loop%> </select> <% if Request.QueryString("Jornada")&"" <> "" then %> <script>Seleciona_Option(<%=Request.QueryString("Jornada")%>,form.inJornada)</script> <% end if %> </td> <td width="63" align="left" %><input type="text" name="inServico" size="10" maxlength="20" onFocus="return Focu(this)" onBlur="return Sair(this)" class="entrada" value="<%=Request.QueryString("inSerIndice")%>"></td> <td width="290" align="left" %><input type="text" name="inSerDescricao" size="38" maxlength="50" onFocus="return Focu(this)" onBlur="return Sair(this)" class="entrada" value="<%=Request.QueryString("inSerDescricao")%>"> <a href="java script:Pesquisar('PesServicos.asp?inCC=<%=rsCentroCusto("CenCusCodigo")%>', form.inSerDescricao.value, form.inServico.value);"><img src="../../Imagens/Lupa00.gif" border=0 alt="Pesquisar Serviço"></a> <img src="../../imagens/borracha.gif" onClick="java script: document.form.inServico.value=''; document.form.inSerDescricao.value='';" style="cursor:hand" alt="Limpar Campo"> </td> <td width="87" align="left" %><input type="text" name="inQtde" size="8" maxlength="8" onKeyDown="FormataValor(this, 15, event)" onFocus="return Focu(this)" onBlur="return Sair(this)" class="entrada" value="<%=quantidade%>"></td> <td><a href="java script:Gravar();"><img src="../../Imagens/salvar.gif" border=0 alt="(Ctrl + Shift + F)"</a></td> </tr> <% rsLotados.MoveNext cont=cont+1 Loop %> </table> </form> Bom, no relatório aparecem o nome de 10 pessoas. Quando clico o desenho (link) da lupa, ele aciona o seguinte código: <a href="java script:Pesquisar('PesServicos.asp?inCC=<%=rsCentroCusto("CenCusCodigo")%>', form.inSerDescricao.value, form.inServico.value);"><img src="../../Imagens/Lupa00.gif" border=0 alt="Pesquisar Serviço"></a> Chama a página PesServicos.asp e teria q passar o valores do campo inSerDescricao e inServico. Mas não está passando os valores dos 2 campos. A página dá um erro tipo assim: form.inSerdescricao.value é nulo ou não é um objeto Mesmo com os campos inSerDescricao e inServico preenchidos, a mensagem persiste. O que pode estar acontecendo? Cada linha deste relatório deverias ser armazenado em um Array? Me deem um Help, pois fiquei o dia inteiro preso neste problema e já não sei mais como resolver.

Criei um script para o tratamento de erros na minha página asp, que no momento em que acontecer o erro, ele envia um e-mail para o desenvolvedor informando sobre o erro. Consigo captar o número do erro, o tipo do erro e a página onde está ocorrendo o erro. Tem jeito de eu capturar também o número da linha do script onde o erro está acontecendo? Quero facilitar as coisas para o desenvolvedor. E aí, tem jeito?

Fiz o que você me sugeriu, colocando desta forma: window.alert('Não é possível realizar esta operação agora. Tente mais tarde!'); mas ainda não funcionou. Mais alguma sugestão dos senhores? Já resolvi. Ficous assim: Não sei porque, mas assim funcionou: <script type="JavaScript"> function Alerta() { alert ='Não é possível realizar esta operação agora. Tente mais tarde!'; } </script> Inté mais.

Bom, alterei alguns detalhes na minha página ASP para que em caso de ocorrencia de erro, uma mensagem fosse enviado ao desenvolvedor para correção e em seguida uma mensagem abriria na tela para o usuário informando que tentasse o acesso à página mais tarde. O meu problema está aí. Ele envia o e-mail informndo sobre o erro, mas não exibe a janela que defini na função JavaScript para informar ao usuário para tentar mais tarde. Eis abaixo o código: <script type="JavaScript"> function Alerta() { <!-- window.alert ='Não é possível realizar esta operação agora. Tente mais tarde!'; //--> } </script> <!-- #include file = "../../includes/valida_email.inc" --> <% 'Trata os erros na página On Error Resume Next corpo da página 'Verifica se houve algum erro até aqui If Err.number<>0 then pagina= Request.ServerVariables("URL") ass= "ERRO na página "&pagina corpo="Detalhes do Erro "&"na página "&pagina&"<br><br>"&_ "Número do erro.....: " & Err.Number & "<BR>" &_ "Descrição fornecida: " & Err.Description & "<BR>" valida_email "edwilsoncurti@hotmail.com",ass,corpo 'Chama a função de validação do e-mail [color=#FF0000]response.write "<script type='text/javascript'>Alerta();</script>"[/color] End If %> Qual é o problema? Onde posso estar errando? Aguardo vocês.

Consegui resolver: pagina= Request.ServerVariables("URL") Valeu gente.

Boa Tarde. Alguém aí sabe como é que posso fazer em ASP para capturar o nome da página em uso/execução no momento? Que instrução ou método usar? Aguardo vocês.

Oi pessoal, consegui resolver o problema. No meu código asp, para o envio de e-mail, tinha uma linha:strSMTP Mail.Host = '"189.23.22.22" troquei por Mail.Host = strSMTP Pronto, problema resolvido. Obrigado aos q tentaram em ajudar.

Que erro é este? Ele aparece depois de uma tentativa de envio de e-mail. Alguém sabe o que ele significa? Eis o erro: Persits.MailSender.4 error '800a0004' Connection timed out. E então?

Desde sexta andei pesquisando um meio de tratar o erro de envio de e-mail´s para contas não mais existentes ou endereços errados. Cheguei a seguinte conclusão: O retorno de erro de um e-mail inválido ou para uma conta inexistente, não tem nada a ver com o sucesso ou não do envio do e-mail. Esta parte é de responsabilidade única e exclusiva do servido SMTP. Ainda que o servidor para o qual enviamos um e-mail retorne um erro, a função mail no ASP não consegue capturar este retorno, por um motivo muito simples: Como o retorno do SMTP muitas vezes está atrelado à resposta de um outro servidor de e-mail, não há como garantir que este retorno chegará em tempo de ser processado pelo interpretador da linguagem. Então é isso aí.

Bom gente, acabei resolvendo um problema que estava relacionado aos campos que não possuiam endereços de e-mail preenchidos. Mas surgiu uma questão que quero tratar antes que aconteça algum erro. Como faço pra detectar se um endereço de e-mail é inválido, após ter enviado o e-mail? Tipo assim, o campo de e-mail está prenchido, o e-mail foi enviado, mas de repente ele chega lá e retorna é claro uma mensagem indicando que aquele end. de e-mail é invalido. Como faço pra detectar isto? Eis meu código: Set Mail = Server.CreateObject("Persits.MailSender") Mail.IsHTML = True Mail.Host = Application("IPServidor") Mail.From = "suporte@sox.com.br" 'Remetente Mail.FromName = "SOX" 'nome do remetente Mail.AddAddress rsUsuario("UsuEmail") 'endereço do destinatário , nome do destinatário Mail.Subject = "Você foi Qualificado" 'assunto Mail.Body = "Caro(a) "&rsUsuario("UsuNome") &_ "<br><br>Temos a satisfação de comunicar, que a empresa "&rsEmpresa("EmpNomeFantasia")&",atraves do comprador "&rsUsuarioAtual("UsuNome")&", tel:"&rsUsuarioAtual("UsuTelefone1")&" o qualificou como parceiro para fornecimento de materiais ou serviços em suas futuras coletas de preços." Mail.Send Set Mail = Nothing Agradeço se alguém puder me ajudar.

Já resolvi. O problema era que algumas das empresas cadastradas no BD, não possuiam e-mail cadastrado. Este erro retornou pois ,ão havia para onde enviar o e-mail. Grato. <_<

Prezados colegas, Estou tentando enviar um e-mail, mas está me apresentando a seguinte mensagem de erro: Persits.MailSender.4 error '800a0006' 503 5.5.2 Need Rcpt command. /Comprador/Usuarios/MovEmpreiteiros.asp, line 145 Este é o código q estou usando: if rsUsuario("UsuReceberEmail")&""<>"N" then Set Mail = Server.CreateObject("Persits.MailSender") Mail.IsHTML = True Mail.Host = Application("IPServidor") Mail.From = "suporte@sox.com.br" 'Remetente Mail.FromName = "SOX" 'nome do remetente Mail.AddAddress rsUsuario("UsuEmail") 'endereço do destinatário , nome do destinatário Mail.Subject = "Você foi Qualificado" 'assunto Mail.Body = "Caro(a) "&rsUsuario("UsuNome") &_ "<br><br>Temos a satisfação de comunicar, que a empresa "&rsEmpresa("EmpNomeFantasia")&",atraves do comprador "&rsUsuarioAtual("UsuNome")&", tel:"&rsUsuarioAtual("UsuTelefone1")&" o qualificou como parceiro para fornecimento de materiais ou serviços em suas futuras coletas de preços." &_ "<br><br>Para maiores esclarecimentos entre em contato através do nosso email: <a href='mailto:suporte@sox.com.br'>suporte@sox.com.br</a>, ou pelo telefone (027)3320-6440<br><br><br>" &_ "<br><br>Caso não deseje mais receber emails como este favor mudar suas configurações de úsuario em: <a href='http://www.sox.com.br/Cadastro/'>http://www.sox.com.br/Cadastro/</a><br><br><br>" Mail.Send Set Mail = Nothing end if A Linha 145 é q está marcada em vermelho. E então? O que signiica este erro?

Bom gente, contrariando algumas vontades, afirmo que resolvi o problema. Eu não estav enviando os dados do FORM de forma adequada, portanto foi só mudar o modo de envio dos dados do formulário para GET e tudo ficou show de bola. Obrigado pela ajuda. Té mais.

Taí, eu mesmo resolvi. Criei a seguinte função em Asp: <% function formatadata(data) '--Criando um vetor para teste vVetor = "0,1,2" vVetor = Split(data,"/") new_data = vVetor(2)&"-"&vVetor(1)&"-"&vVetor(0) formatadata = new_data end function %> depois eu chamei a função na query, da seguinte forma: strLista=" SELECT * FROM CHEQUE WHERE CONBANCODIGO="&ReQuest.QueryString("inContaBancaria")&" AND CheDataConciliado BETWEEN '"&formatadata(request.QueryString("dataIni")) &"' AND '"&formatadata(request.QueryString("dataFim"))&"' ORDER BY CheDataConciliado" É isso aí. Até mais. Agradeço a orientação e ajuda dos irmãos. Té mais