Rafael Spilki

Cara ta muito estranho... Em soma de datas não deveria acontecer isso.... o asp altera o ano automaticamente... O que eu acho é que as datas podem estar invertidas... e o erro que aparentemente é no ano acaba sendo no mês... o mês deve estar invertido com os dias... e quando passa de 31 ocorre o erro... Eu tentaria tirar isso de dentro da instrução de insert... fazer o somatório fora e depois passar só os resultados pra dentro do insert... Portanto, o primeiro teste que eu faria seria debugar essa parte das parcelas... algo assim: for i=0 to n_vezes -1 data = request.form("data_saida") novadata = DatePart("m", data)+(i) & "/" & DatePart("d", data) & "/" & DatePart("yyyy", data) response.write novadata next roda isso e ve o que acontece... depois posta os resultados aqui...

Bacana Marcus... vou testar mais tarde... acho que o bareta tb! Derepente subimos ali pro repósitório de scripts... Funcionou legal pra você? Tem um exemplo desse script on-line pra podermos dar um bico? Dando uma olhada por cima achei bem interessante... vou ver com mais calma depois!

Cara... não te estressa "reinventando a roda" baixa uma virtua store e adapte as suas necessidades... []'s

assim: if (mes>12) then mes=mes-12 ano=ano+1 end if sql="insert into saidas (valor,data_saida,forma_pagamento,nome_conta,tipo_despesa,nome_sub_centro_cust,nome_centro_cust,nome_centro_resp,n_documento,destino,detalhes,quitada) values ('"& request.form("valor")&"','"& DatePart("m", data)+(i) & "/" & DatePart("d", data) & "/" & DatePart("yyyy", data) &"','"& request.form("forma_pagamento")&"','"& request.form("nome_conta")&"','"& request.form("tipo_despesa")&"','"& request.form("nome_sub_centro_cust")&"','"& request.form("nome_centro_cust")&"','"& request.form("nome_centro_resp")&"','"& (i+1) &"/" & n_vezes &"','"& request.form("destino")&"','"& request.form("detalhes")&"','"& request.form("quitada") &"')" conexao.execute(sql) next

poste aqui os codigos do formulario e também do que envia os emails... []'s

Se esta tudo configurado você coloca os arquivos que formam o seu app de envio de e-mail e coloque eles na pasta localhost do seu iis, depois acesse os mesmos digitando o endereço dos respectivos na barra do seu navegador...

rsss... é verdade... não tinha me dado conta disso... vou bolar alguma coisa e posto na sequencia alguma solução...

Beleza Bareta! valeu a força... acabei de mandar pro seu e-mail... mas não sei não... acho que possa ser algo particular aqui do datacenter que uso... to desconfiado disso, fiz uns testes em outro server e até mesmo local e rolou! Veja o que acontece aí... []'s

Digamos que você queira digitar uma palavra em um input pra depois colocar esse input em uma query... seu input tem o nome de: txtPesquisa você faria assim: pesq = request.form ("txtPesquisa") function palavrasem(pesq) palavrasem = Replace(pesq,"a","[a, á , ã]") palavrasem = Replace(palavrasem,"A","[A, Á, Ã]") palavrasem = Replace(palavrasem,"e","[e, é , è , ê]") palavrasem = Replace(palavrasem,"E","[E , É , Ê]") palavrasem = Replace(palavrasem,"i","[i , í , ì]") palavrasem = Replace(palavrasem,"I","[I , Í]") palavrasem = Replace(palavrasem,"o","[o , ó , ò , ô , õ]") palavrasem = Replace(palavrasem,"O","[O , Ó , Ô , Õ]") palavrasem = Replace(palavrasem,"u","[u , ú , ù]") palavrasem = Replace(palavrasem,"U","[U , Ú]") palavrasem = Replace(palavrasem,"c","[c , ç]") palavrasem = Replace(palavrasem,"C","[C , Ç]") palavrasem = palavrasem end function function palavracom(pesq) palavracom = Replace(pesq,"ã","[a]") palavracom = Replace(palavracom,"Ã","[A]") palavracom = Replace(palavracom,"á","[a]") palavracom = Replace(palavracom,"Á","[A]") palavracom = Replace(palavracom,"ê","[e]") palavracom = Replace(palavracom,"Ê","[E]") palavracom = Replace(palavracom,"í","[i]") palavracom = Replace(palavracom,"Í","[I]") palavracom = Replace(palavracom,"õ","[o]") palavracom = Replace(palavracom,"Õ","[O]") palavracom = Replace(palavracom,"ú","[u]") palavracom = Replace(palavracom,"Ú","[U]") palavracom = Replace(palavracom,"ç","[c]") palavracom = Replace(palavracom,"Ç","[C]") palavracom = palavracom end function pronto... na sua query você faria assim: sql = "select * from sua_tabela where seu_campo = '"&palavrasem&"' AND seu_campo = '"&palavracom&"' " []'S

Vamos por partes: 1) certifique de que seu iis está instalado corretamente: http://www.baboo.com.br/absolutenm/templat...d=4&resumo= 2) Certifique de que as permissões foram devidamente "liberadas": http://scriptbrasil.com.br/forum/index.php?showtopic=28873 3) verifique qual componente de envio de e-mails acompanha o seu iis, se cdo.sys ou cdo.nts apartir do windows 2003 o cdo.nts foi substituído pelo cdo.sys ou seja, responsa aqui qual a versão do seu iis... porque até o 5 se usava cdo.nts e apartir de então passou-se a usar o cdo.sys... apartir daí inicie os procedimentos de programação... baixando exemplos prontos... tem vários no google... basta digitar corretamente o nome do componente que vai se usar... []'s

Agora fiquei de vez deprimido... além da piada ser "ótima" tenho que gastar uma grana e comprar um caixão pro norivan!

Sim. sem problemas: []'s

Acontece... pressa agente só faz besteira... não tinha visto aqui um detalhe, tente agora: <% While Not Rs1.EOF rsnome = LEFT(trim(RS1("nome")),1) if rsnome = "0" OR rsnome = "1" OR rsnome = "2" OR rsnome = "3" OR rsnome = "4" OR rsnome = "5" OR rsnome = "6" OR rsnome = "7" OR rsnome = "8" OR rsnome = "9" then rsnome = "#" else end if %> <td align="center"><div class="pag-link2"><a href="buscar_letra_resultado.asp?letra=<%response.write rsnome%>&idcat=<%=RS1("idcat")%>"><%response.write rsnome%> </td><td> </td> <% RS1.MoveNext Wend %> Outra coisa nada a ver com o assunto: porque você botou essas duas <todos> aqui: href="buscar_letra_resultado.asp?letra=<%response.write rsnome%>&idcat=<%=RS1("idcat")%>"><%response.write rsnome%> </td><td> </td> <% RS1.MoveNext Wend %> pode tirar aquilo ali, deixei assim: <% While Not Rs1.EOF rsnome = LEFT(trim(RS1("nome")),1) if rsnome = "0" OR rsnome = "1" OR rsnome = "2" OR rsnome = "3" OR rsnome = "4" OR rsnome = "5" OR rsnome = "6" OR rsnome = "7" OR rsnome = "8" OR rsnome = "9" then rsnome = "#" else end if %> <td align="center"><div class="pag-link2"><a href="buscar_letra_resultado.asp?letra=<%response.write rsnome%>&idcat=<%=RS1("idcat")%>"><%response.write rsnome%> </td> <% RS1.MoveNext Wend %> ;) []'s

você não postou seu código... posta aí pra darmos uma olhada... provavelmente você ta pedindo autenticação de smtp e esqueceu de setar seu nome de usuario e senha...

Amigo... tem um tópico pendurado aqui específico sobre isso... de uma lida nele, certamente encontrará a solução: http://scriptbrasil.com.br/forum/index.php?showtopic=28873? []'s Rafael Spilki

As mensagens de erro demonstram coisas completamente do que você nos passa... Poste aqui seu codigo completo, a mensagem de erro completa e novamente a linha exata a que ela se refere... Vamos resolver ;) []'s

Outra coisa tb... procure montar a data fora da query!

Não rolou velinho... Tipo... já até resolvi essa parada... resolvi desiste e ao invés de string estou resgatando o texto do bd... tinha prazos... sabe como é... mas gostaria de descobrir como consertar essa bronca... certamente vou precisar novamente... e tb gostaria de alterar o script porque ficou meio gambiarristico! Mas isso dae eu tb já tinha tentado... sei lá... Já até abri um chamado pro povo do suporte do datacenter pra ver se rola uma luz! Se rolar mais ideias posta aí... valeu mesmo!

Mostre como está o seu código...

não.. não... Loko da Web... não temos como afirmar isso... visto que nem sabemos se o id virá ou não do banco de dados... por hora o link ficaria simplesmente assim: 'resgata o id da query.string id = request.querystring ("id") response.write id 'monta novamente o link fotos.asp?id=<%=("id")%> []'s Rafael Spilki

em asp é: id = request.querystring ("id") response.write id []'s

e agora: <% While Not Rs1.EOF rsnome = LEFT(trim(RS1("nome")),1) if rsnome = "0" OR rsnome = "1" OR rsnome = "2" OR rsnome = "3" OR rsnome = "4" OR rsnome = "5" OR rsnome = "6" OR rsnome = "7" OR rsnome = "8" OR rsnome = "9" then rsnome = "#" else end if %> <td align="center"><div class="pag-link2"><a href="buscar_letra_resultado.asp?letra=<%=LEFT(trim(RS1("nome")),1)%>&idcat=<%=RS1("idcat")%>"><%=LEFT(trim(RS1("nome")),1)%> </td><td> </td> <% RS1.MoveNext Wend %>

Uhm... entendi... acho que nesse caso você terá que colocar tudo na mesma condicional, como ex.: <% While Not Rs1.EOF rsnome = LEFT(trim(RS1("nome")),1) if rsnome = "0" OR rsnome = "1" OR rsnome = "2" OR rsnome = "3" OR rsnome = "4" OR rsnome = "5" rsnome = "6" rsnome = "7" OR rsnome = "8" OR rsnome = "9" then rsnome = "#" else end if %> <td align="center"><div class="pag-link2"><a href="buscar_letra_resultado.asp?letra=<%=LEFT(trim(RS1("nome")),1)%>&idcat=<%=RS1("idcat")%>"><%=LEFT(trim(RS1("nome")),1)%> </td><td> </td> <% RS1.MoveNext Wend %> Testa aí depois me diga o que ocorreu. []'s Rafael Spilki

Bom... primeiro eu acho que tanto a sugestão como sua imediata escolha pelo aspmail são um tanto quanto precipitada! Eu por exemplo, recomendo fortemente o uso do Cdo.sys (substituto atual do cdo.nts) visto inclusive ser um componente nativo do IIS... não requer tantas configurações e talvés você inclusive já o tenha instalado em sua máquina... Dependendo a versão do IIS você pode usar o cdo.nts tb... apesar do cdo.sys ser bem mais aconselhável... Segue um link que pode esclarecer maiores dúvidas: http://www.plugin.com.br/ajuda/pergunta/23...tp-autenticados []'s Rafael Spilki

Fala Ted... Pode ser tanto ocultando como simplesmente "inativando"... Taí um quesito que está ligado diretamente com esse ponto: Fica a critério do programador... o mais importante é se funcional... vai da criatividade...