Ir para conteúdo
Fórum Script Brasil

p.gonzalez

Membros
 Perfil  Explorar Conteúdo

  • Total de itens

    12

  • Registro em

  • Última visita

Sobre p.gonzalez

p.gonzalez's Achievements

0

Reputação

  1. p.gonzalez

    Response.write

    pergunta respondeu ao UltraSeven de p.gonzalez em ASP

    Pergunta: Os dados que você envia são recebidos corretamentes? ou seja, o e-mail chega sem problemas? Se sim então o problema é simplesmente na resposta da mensagem. Cara, se puder me enviar o arquivo ".Fla" pra eu dar uma olhada + o arquivo ASP de resposta eu faço funcionar... té mais
  2. p.gonzalez

    Response.write

    pergunta respondeu ao UltraSeven de p.gonzalez em ASP

    Marcelo, primeiramente remova no action script a linha: "alerta = "Enviando dados...";" pois senão a mensagem será estática. Depois disso no ASP, apague o código antigo e acrescente o código abaixo depois da linha "iMail.Body = corpo" '------- início On Error Resume Next iMail.Send If Err <> 0 Then 'resposta 1: Response.write("alerta="+Server.URLEncode("Erro no envio da mensagem: "& Err.Description)) Else 'resposta 2: Response.write("alerta="+Server.URLEncode("Mensagem enviada com sucesso!")) End If Set iMail = Nothing '------- fim do código Tenha a certeza que o campo que mostra a resposta no flash é um campo "dinâmico" pois senão não irá adiantar. Caso não funcione, troque a resposta 1 por: Response.Write &alerta="Erro no envio da mensagem: "&Server.URLEncode(Err.Description) e a resposta 2 por: Response.Write &alerta="Mensagem enviada com sucesso!" Té mais...
  3. p.gonzalez

    Response.write

    pergunta respondeu ao UltraSeven de p.gonzalez em ASP

    Fala Ultraseven O correto ao usar o envio de e-mail Flash X ASP é fazer um tratamento de erros onde você terá a certeza de que o e-mail foi enviado corretamente como no exemplo: if Err <> 0 Then Response.Write "popup.mensaje=Error, Por favor, tente mais tarde " & Err.Description Else Response.Write "popup.mensaje=Mensagem enviada com sucesso!." End If No meu caso eu tenho um pop-up no flash que mostra a mensagem de resposta. No seu caso tente usar assim: Response.Write "alerta=Mensagem enviada com sucesso!." ou então envie o código Action Script se não conseguir. té mais...
  4. p.gonzalez
    Agora deu certo! O problema está no arquivo swf e não no ASP ou no CDONTS. No frame 1 do flash coloque: System.useCodepage = true; (faz o flash usar o código "ISO-Latino" referenciado no html "content=text/html; charset=iso-8859-1>") Obrigado a todos! p.gonzalez
  5. p.gonzalez
    ok!!! desculpas... []'s
  6. p.gonzalez
    Olá pessoal, estou com o seguinte problema: Tenho um formulário em flash (swf) que envia um e-mail usando o componente CDONTS. A mensagem é enviada normalmente mas quando eu a leio, percebo que as palavras que usam acentos aparecem de forma estranha, exemplo: a palavra "você" aparece como "você". Estou usando o formato latino (charset=iso-8859-1) mas não sei aonde está o problema. Alguém sabe o que pode estar acontecendo? segue o cód.: <% Dim mail Destino = "pgonzalez@terra.com.br" titulo = Request("assunto") Origen = Request("email") nombre = Request("nombre") fone = Request("fone") Mensaje = Request("mensaje") 'Creamos una instancia del objeto CDONTS Set mail = Server.CreateObject("CDONTS.Newmail") ' Creamos el cuerpo del mensaje strBody = "<!DOCTYPE HTML PUBLIC""-//IETF//DTD HTML//EN"">" strBody = strBody & "<html>" strBody = strBody & "<head>" strBody = strBody & "<meta http-equiv=""Content-Type""" strBody = strBody & "content=""text/html; charset=iso-8859-1"">" strBody = strBody & "<body bgcolor=""FFFFFF"">" strBody = strBody & "<p><font size =""2"" face=""Verdana"">" strBody = strBody & " De: </p>" strBody = strBody & "" & nombre & "<br>" strBody = strBody & "<p><font size =""2"" face=""Verdana"">" strBody = strBody & "E-mail: </p>" strBody = strBody & "" & Origen & "<br>" strBody = strBody & "<p><font size =""2"" face=""Verdana"">" strBody = strBody & " Fone: </p>" strBody = strBody & "" & fone & "<br> -------------------------------------------------------------------------------- <br>" strBody = strBody & "<p><font size =""2"" face=""Verdana"">" strBody = strBody & "Mensagem: </p>" strBody = strBody & "" & Mensaje & "<br>" strBody = strBody & "</body>" strBody = strBody & "</html>" mail.To = Destino mail.Body = strBody mail.BodyFormat =0 ' 0 = HTML, 1 = Plain mail.MailFormat =0 ' 0 = MIME (HTML), 1 = Text mail.From = Origen mail.Subject = titulo On Error Resume Next mail.Send If Err <> 0 Then Response.Write "popup.mensaje=Error, Por favor, tente mais tarde " & Err.Description Else Response.Write "popup.mensaje=Mensagem enviada com sucesso!." End If Set mail = Nothing %>
  7. p.gonzalez
    valeu A TODOS GALERA... CONSEGUI! NA VERDADE EU MUDEI O COMPONENTE E estou USANDO O ASPMAIL... TKS
  8. p.gonzalez
    Pô, já contactei o servidor e não suporta o CDOSYS. Tentei receber texto comum (sem HTML) e continua o mesmo problema. Voltei a usar o CDONTS. Agora vou partir para o Flash pois o formulário é feito em flash, mas mesmo assim já usei o "Session.Lcid = 1046 " e o "<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">" e não deu certo... mas eu descubro!!! quem tiver mais dicas pode mandar, valeu por enquanto!
  9. p.gonzalez
    Me sugeriram o usar o "CDOSYS" funcionou o envio, mas os caracteres acentuados continuam vindo errado... usei este código, pode estar faltando alguma linha para codificação de idioma <% Destino = "falecomgonzalez@terra.com.br" titulo = Request("assunto") Origen = Request("email") nombre = Request("nombre") fone = Request("fone") Mensaje = Request("mensaje") sch = "http://schemas.microsoft.com/cdo/configuration/" Set cdoConfig = CreateObject("CDO.Configuration") With cdoConfig.Fields .Item(sch & "sendusing") = 2 ' cdoSendUsingPort .Item(sch & "smtpserver") = "smtp.digiweb.com.br" .update End With Set cdoMessage = CreateObject("CDO.Message") With cdoMessage Set .Configuration = cdoConfig .From = Origen .To = Destino .Subject = titulo .TextBody = Mensaje & "<br>" & fone & "<br>" & nombre On Error Resume Next .send If Err <> 0 Then Response.Write "popup.mensaje=Error, Por favor, tente mais tarde " & Err.Description Else Response.Write "popup.mensaje=Mensagem enviada com sucesso!." End If end with Set cdoMessage = Nothing Set cdoConfig = Nothing %>
  10. p.gonzalez
    jÁ CONTACTEI O SERVIDOR... ESTOU AGUARDANDO UMA RESPOSTA OBRIGADO POR ENQUANTO GALERA, quando TIVER A SOLUÇÃO EU VOU POSTAR... ABRAÇOS
  11. p.gonzalez
    Creio que falta alguma linha para codificação do HTML... Estilo padrões de linguagem ou algo assim: strBody = "<!DOCTYPE HTML PUBLIC ""-//IETF//DTD HTML//EN"">" & vbCrLf O Cdonts está correto.
  12. p.gonzalez
    Olá pessoal... Estou com uma dúvida no uso do CDONTS pois creio que estou usando a codificação correta mas as palavras acentuadas vem codificadas como no exemplo: "Isto é um teste de mensagem... Parabéns!" Alguém sabe o que pode ser este erro? O envio e recebimento da mensagem é perfeito, só está com este problema... Abraços Segue o código: <% Dim mail Destino = p.gonzalez@ids-scheer.com.br titulo = Request(assunto) Origen = Request(email) nombre = Request(nombre) fone = Request(fone) Mensaje = Request(mensaje) Set mail = Server.CreateObject(CDONTS.Newmail) Creamos el cuerpo del mensaje strBody = strBody & <font face=Verdana, Arial, Helvetica, sans-serif size=2 color=#555555> strBody = strBody & De: strBody = strBody & <b> & nombre & </b><br><br> strBody = strBody & E-mail: strBody = strBody & <b> & Origen & </b><br><br> strBody = strBody & Fone: strBody = strBody & <b> & fone & </b><br><hr><br> strBody = strBody & Mensagem: <br> strBody = strBody & Mensaje & chr(10) strBody = strBody & </font> mail.To = Destino mail.Body = strBody mail.BodyFormat = 0 mail.MailFormat = 0 mail.Importance = 1 mail.From = Origen mail.Subject = titulo On Error Resume Next mail.Send If Err <> 0 Then Response.Write popup.mensaje=Error, Por favor, tente mais tarde & Err.Description Else Response.Write popup.mensaje=Mensagem enviada com sucesso!. End If Set mail = Nothing %>
×
×
  • Criar Novo...