carravetta
-
Total de itens
53 -
Registro em
-
Última visita
Tudo que carravetta postou
-
Deu este erro agora: Microsoft VBScript runtime error '800a0046' Permission denied /teste_envia_e-mail.asp, line 14
-
Bom dia Estou com problema no envio. Este é o Erro. Microsoft VBScript runtime error '800a01b6' Object doesn't support this property or method: 'objMail.TextBody' /teste_envia_e-mail.asp, line 11 Este é o meu código <% if request("botao") = "enviar" then 'Create the mail object Set objMail = Server.CreateObject("CDONTS.NewMail") 'Set key properties objMail.From = "bagaggeminfo@craweb.org.br" objMail.To = request.form("to") objMail.Subject= request.form("subject") objMail.TextBody = request.form("body") 'Send the email return = objMail.Send 'Notify user if return <> 0 then response.write "Erro: " & return else response.write "Mensagem enviada com sucesso." end if 'Clean-up mail object Set objMail = Nothing end if %> <html> <head> <title>CDONT TEST</title> <meta name="GENERATOR" content="Microsoft FrontPage 4.0"> </head> <body> <p>CDOSYS TEST<br> </p> <form method="POST" action="teste_envia_e-mail.asp"> <table border="0" width="43%"> <tr> <td width="13%">To:</td> <td width="87%"><input type="text" name="to" size="20"></td> </tr> <tr> <td width="13%">Subject:</td> <td width="87%"><input type="text" name="subject" size="20"></td> </tr> <tr> <td width="13%">Message:</td> <td width="87%"><textarea rows="2" name="body" cols="20"></textarea></td> </tr> <tr> <td width="13%"></td> <td width="87%"><input type="submit" value="enviar" name="botao"></td> </tr> </table> </form> </body> </html> alguém sabe o q esta acontecendo?
-
valeu. Nem acredito que funciona . Usei os parenteses. Abraço Fernando Beijão Andreia
-
puxa to perdido, onde eu coloca este codigo?
-
é um banco Access
-
se eu tiro o que esta em vermelho, os dados do campo da pesquisa dai filtra apenas os logistica=true. sql="select * from news where logistica=true and text LIKE '%"& strPesquisando1 &"%' or text LIKE '%"& strPesquisando2 &"%' order by news.date desc" mais eu preciso da pesquisa!
-
fiz o teste e funciona da mesma maneira não filtra os logistica=1. conhece alguém para me ajudar?
-
não posso mexar na estrutura do meu banco de dados pois tem muitos registros cadastrados.
-
Oi Andreia - Não Aparece nenhum erro. - É do tipo lógico sim/não. http://www.craweb.org.br/camaras_setoriais...erias/todos.asp Esta pagina todos.asp é onde mostra todos os artigos da logistica. Funciona bem. este é o SQL. (são 13 matérias) sql="select * from news where logistica=true order by news.date desc" Quando eu faço uma pesquisa com a palavra "Tem" vai para esta página. este é o SQL. (mostra 28 matérias) mostra matérias de outras áreas que não são da logistica. sql="select * from news where logistica=true and text LIKE '%"& strPesquisando1 &"%' or text LIKE '%"& strPesquisando2 &"%' order by news.date desc" Não sei o q eu faço!!! http://www.craweb.org.br/camaras_setoriais...ion=pesquisando
-
Coloquei uma função para pesquisa valer com ou sem acentos. function palavrasem(Str) palavrasem = Replace(Str,"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(Str) palavracom = Replace(Str,"ã","[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,"õ","[o]") palavracom = Replace(palavracom,"Õ","[O]") palavracom = Replace(palavracom,"ú","[u]") palavracom = Replace(palavracom,"Ú","[U]") palavracom = Replace(palavracom,"ü","[u]") palavracom = Replace(palavracom,"Ü","[U]") palavracom = Replace(palavracom,"ç","[c]") palavracom = Replace(palavracom,"Ç","[C]") palavracom = palavracom end function O que será que esta errado?
-
select * from news where hotelaria=true and text LIKE '%[c , ç][o , ó , ò , ô , õ]nq[u , ú , ù , ü][i , í , ì]st[a, á , ã]%' or text LIKE '%conquista%' order by news.date desc Retorna isso.
-
Ainda não funciona!!! Não está filtrando apenas os logistica=true
-
Agora entendi
-
Pode ser mais claro pois não tenho muito conhecimento em ASP. O que eu tenho que fazer?
-
Bom Dia, eu de novo Estou com problemas na minha consulta SQL. if strAction="paginacao" then set objNews=server.createobject("adodb.recordset") strPesquisando = Session("pesquisa") strPesquisando1 = Palavrasem(Session("pesquisa")) strPesquisando2 = Palavracom(Session("pesquisa")) sql="select * from news where logistica=true and text LIKE '%"& strPesquisando1 &"%' or text LIKE '%"& strPesquisando2 &"%' order by news.date desc" objNews.open sql,conn,3,3 end if "logistica=true" este comando não esta funcionando. Alquem pode me ajudar
-
Esta funcionando Corretamente Agora, podem fechar o tópico. Valeu Luciene, vocês SÃO DEMAIS
-
Eu coloco onde este código? Session("pesquisa") = variavel if strAction = "pesquisando" then function palavrasem(Str) palavrasem = Replace(Str,"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(Str) palavracom = Replace(Str,"ã","[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,"õ","[o]") palavracom = Replace(palavracom,"Õ","[O]") palavracom = Replace(palavracom,"ú","[u]") palavracom = Replace(palavracom,"Ú","[U]") palavracom = Replace(palavracom,"ü","[u]") palavracom = Replace(palavracom,"Ü","[U]") palavracom = Replace(palavracom,"ç","[c]") palavracom = Replace(palavracom,"Ç","[C]") palavracom = palavracom end function strPesquisando = "" ' variavel q recebe o q a pessoa digita na pesquisa strPesquisando1 = "" strPesquisando2 = "" strPesquisando = Request.Form("pesquisando") strPesquisando1 = Palavrasem(Request.Form("pesquisando")) strPesquisando2 = Palavracom(Request.Form("pesquisando")) set obj_Todas_Emp=server.createobject("adodb.recordset") sql="select * from empresas where pesquisa LIKE '%"& strPesquisando1 &"%' or pesquisa LIKE '%"& strPesquisando2 &"%' order by empresas.nome asc" obj_Todas_Emp.open sql,conn,3,3 end if strPesquisando = "" ' variavel q recebe o q a pessoa digita na pesquisa Não sei se dentro deste código?
-
como eu faço para salvar em uma session pode me dar um exemplo, pois não sei muito de ASP. Agradeço a Atenção.
-
Oi pessoal, Estou com dificuldades em manter a minha consulta quando clico para trocar de pagina ele não salva a variável do campo de pesquisa. O q eu faço? Esta é a página http://www.craweb.org.br/camaras_setoriais/loja/ pode usar a palavra "Ipiranga" ou "carro" para consultar no site.
-
Ola estou fazendo uma pesquisa e gostaria de indicações de sites onde me mostrem o ranking dos site tipo o www.a9.com
-
Achei este tópico, é + ou - o que precisava. Como posso fazer para criar espaçamento entre paragrafos no texto de um mesmo campo de um banco de dados Access. Tem como?
-
Este é o meu código aquele do newsletter. Me disseram que o servidor necessita de autenticação e agora, o que devo fazer? <!--#include file = "config.asp"--> <% 'Abre a conexao com o banco de dados Set Conex = Server.CreateObject ("ADODB.Connection") Conex.open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="& Server.MapPath("/newsletter/database/dados.mdb") 'Pega os dados digitados no form assunto = request("assunto") mensagem = request("mensagem") 'Faz a listagem dos usuarios para pegar o nome Set listar = Server.CreateObject("ADODB.Recordset") sql = "Select * from usuarios" listar.open sql, conex, 1,1 'Faz um while while not listar.eof 'Pega o nome e o email do usuario Set nome = Server.CreateObject("ADODB.Recordset") sql = "Select * from usuarios where id="&listar("id") nome.open sql, conex, 1,1 while not nome.eof 'envia o e-mail Set objmail = Server.CreateObject ("CDONTS.NewMail") objmail.from = nome_admin & "<"&email_admin&">" objmail.to = nome("email") objmail.subject = assunto objmail.body = "Olá <b>"& nome("nome") & "</b><br><br> " & mensagem objMail.Bodyformat = 0 objMail.MailFormat = 0 objmail.send 'Move para o próximo registro nome.movenext wend listar.movenext wend 'Exibe a mensagem de que os emails foram enviados com sucesso response.Write("Os e-mails foram enviados com sucesso.") %>
-
alguém pode me explicar melhor o q eu tenho q fazer? Obrigado
-
usei um codigo para ver os componentes intalados e me retorno que havia o CDONTS, não sei o q esta errado?
-
HTTP 500.100 - Internal Server Error - ASP error Internet Information Services -------------------------------------------------------------------------------- Technical Information (for support personnel) Error Type: Microsoft VBScript runtime (0x800A0046) Permission denied /newsletter/admin/enviar_email.asp, line 33 Browser Type: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1) Page: POST 42 bytes to /newsletter/admin/enviar_email.asp POST Data: alguém sabe que erro é este? Fiz um teste com um arquivo de teste q estava postado aki e me retornou q esta instalado o CDONTS no servidor, e agora. assunto=teste&mensagem=teste&Submit=Enviar Time: domingo, 15 de maio de 2005, 23:14:07 More information: Microsoft Support