Response.write

UltraSeven · Abril 28, 2004

Olá galera

estou fazendo um formulário no meu site e quando envio a msg fica aparecendo assim "Enviando dados..." e não sai disso, mas os dados são transmitidos...certo

O meu código ASP está assim....

<%

'por: Marcelo

Dim iMail, Empresa, Nome, Email, Assunto, Mensagem

Empresa = Request.form("empresa")

Nome = Request.form("nome")

Email = Request.form("email")

Mensagem = Request.form("mensagem")

meu_email = "marcelo.dias@daci.com.br"

Assunto = Request.form("assunto")

corpo = corpo & "Empresa: " & Empresa & " "

corpo = corpo & "Nome: " & Nome & " "

corpo = corpo & "E-mail: " & Email & " "

corpo = corpo & "Mensagem: " & Mensagem & " "

Set iMail = CreateObject("CDONTS.NewMail")

iMail.From = email

iMail.To = meu_email

iMail.Subject = Assunto

iMail.MailFormat = 0

iMail.BodyFormat = 0

iMail.Body = corpo

iMail.Send

Response.write("alerta="+Server.URLEncode("Enviado c/ Sucesso!"))

Set objMail = nothing

%>

Este "Response.write" não serve para mandar a msg de volta para o Flash ???

Help Help Help !!!!

Desde já muito obrigado

Marcelo

ursolouco · Abril 28, 2004

Response.write("alerta="+Server.URLEncode("Enviado c/ Sucesso!"))

Para concatenar variaveis em ASP ultilize:

<% Response.Write("Texto" & Variavel) %>

Abraços!!!

UltraSeven · Abril 28, 2004

Cara.....desculpe a minha ignorância,.... mas e ae o que devo fazer ??

ursolouco · Abril 28, 2004

Cara.....desculpe a minha ignorância,.... mas e ae o que devo fazer ??

Marcelo!!

Fazendo você entender:

 <% Response.Write("Alerta") %>

OutPut: [saida na Tela] : Alerta

<%
 Variavel = "Tem um texto aqui"
 Response.Write(Variavel)%>

OutPut: [saida na Tela: Tem um texto aqui

Tudo o que tiver detro de Aspas ("") no Response.Write() vai ser interpretado como texto, fora de aspas são variaveis, que, logicamente, vai conter um valor [pelo menos deveria..... ]

Agora, se você precisa executar uma rotina em ASP, e esta rotina lhe devolve um retorno ou parametro, acredito que tenha que criar uma variavel no ASP, e se me lembro bem de flash há um operador ("eq") que pode ser ultilizado para recuperar valores de variaveis.

Abraços!!!

p.gonzalez · Abril 28, 2004

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...

UltraSeven · Abril 28, 2004

então se eu entendi.....eu devo trocar o

Response.write("alerta="+Server.URLEncode("Enviado c/ Sucesso!"))

por

Response.write("Enviado c/ Sucesso" & alerta)

certo ???

ursolouco · Abril 28, 2004

Response.write("Enviado c/ Sucesso" & alerta)

Issso ae garoto.... Parabéns!!

UltraSeven · Abril 28, 2004

Grande Urso não funcionou.....a mensagem "Enviando dados" não desaparece...

Olha só meu código Flash só para vc. ver que eu não estou louco !!!

System.useCodepage = true;

Selection.setFocus("empresa")

empresa2.txt.tabIndex = 0;

nome2.txt.tabIndex = 1;

email2.txt.tabIndex = 2;

assunto2.txt.tabIndex = 3;

mensagem2.txt.tabIndex = 4;

function Apagar() {

empresa = "";

nome = "";

email = "";

assunto = "";

mensagem = "";

alerta = "";

Selection.setFocus("_root.empresa");

}

function EnviaForm() {

if (empresa eq "") {

alerta = "Preencha o campo Empresa!";

Selection.setFocus("empresa");

} else if (nome eq "") {

alerta = "Preencha o campo Nome!";

Selection.setFocus("nome");

} else if (email eq "" || email.indexOf("@", 0) eq -1 || email.indexOf(".", 0) eq -1) {

alerta = "Insira um e-mail valido!";

Selection.setFocus("email");

} else if (assunto eq "") {

alerta = "Preencha o campo Assunto!";

Selection.setFocus("assunto");

} else if (mensagem eq "") {

alerta = "Preencha o campo Mensagem!";

Selection.setFocus("mensagem");

} else {

loadVariablesNum("comercial.asp", 0, "POST");

alerta = "Enviando dados...";

}

ursolouco · Abril 28, 2004

Marcelo!!!

Brother, gostei de flash quando começei meu curso de webdesigner, mas depois que mexi com programação... hehehe

Não vem ao caso, mas não lembro P*** nenhuma de flash, achei um tutorial simples de formulario de Flash com ASP, veja se pode lhe ajudar.... pois a principio, todo o processo esta correto e "Ok"

[]s

UltraSeven · Abril 28, 2004

Putz galera....já coloquei tudo o que vocês me mandaram e não acontece nada.....vou almoçar e depois continuo senão vou dar uma porrada no monitor....vlw

p.gonzalez · Abril 28, 2004

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...

UltraSeven · Abril 28, 2004

Amigo Pablo

O campo é dinamico sim !!!

Eu tirei o alerta do código do Flash e coloquei o código ASP como vc. sugeriu, mas não aparece nada no campo alerta e a mensagem é enviada.....

p.gonzalez · Abril 28, 2004

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

UltraSeven · Abril 28, 2004

O mail chega numa boa.....mas no site fica sem resposta se foi ou não....

vou mandar o fla e o .asp

vlw

Victor · Abril 28, 2004

Tenta isso:

Response.write("alerta=")+Server.URLEncode("Enviado c/ Sucesso!")

Caso tenha mais alguma dúvida é só posta ae!!!!

[]'s

Victor

UltraSeven · Abril 29, 2004

não funcionou....

Victor · Abril 29, 2004

Vou postar um codigo aqui, mas não quero simplemente que você copie e cole no seu site, e sim quero que você aprenda, assimquando você precisar disso mais para frente, você já saberá fazer

function_email.asp

<%
function email_cdonts(de_email, para_email, subject, mensagem)

Set objmail = Server.CreateObject("CDONTS.NewMail")
objmail.mailformat=0 'para enviar html como mensagem
objmail.bodyformat=0 'para enviar html como mensagem
objmail.from = de_email
objmail.to = para_email
objmail.subject = subject
objmail.body = mensagem
objmail.send
Set objmail = nothing

end function
%>

pagina.asp

<%If Request.Form("acao") <> "" Then
call email_cdonts (request.form("email"), "email@provedor.com.br", "Assunto", request.form("mensagem"))
Resonse.Write "E-mail enviado com sucesso!!!"
else
%>
<form action="pagina.asp" method="post">
<table>
<tr>
<td>Nome: </td>
<td><input name="nome" size="35"></td>
</tr>
<tr>
<td>E-mail: </td>
<td><input name="email" size="35"></td>
</tr>
<tr>
<td>Mensagem: </td>
<td><textarea cols="26" rows="5" name="mensagem"></textarea></td>
</tr>
<tr>
<td><input type="Hidden" name="acao" value="enviar"><input type="submit" name="enviar" value="Enviar"></td>
</tr>
</table>
</form>
<%End If%>

Ta ai.... Qualquer dúvida é só falar ai que te ajudaremos, e quero ver você aprender viu

[]'s

Victor

Victor · Abril 29, 2004

Ai conseguiu resolver seu problema?? Porque se você tiver mais dúvidas posta logo que agente te ajuda, é só falar ae!!!!

[]'s

Victor

UltraSeven · Abril 30, 2004

Ae galera com a ajuda do Pablo eu consegui resolver o problema !!!!!

é o seguinte.....

Vocês me enviaram vários exemplos de ASP e eu acredito que todos vão funcionar....mas o problema não estava ai.....a resposta que o ASP enviava na variavel "alerta" não aparecia porque ela estava dentro de dois Movie Clips no Flash e a resposta chegava no _root.......kkkkkkkkk

então eu coloquei o campo que recebe a resposta no root (ele é invisível mesmo....) e pronto....

Obrigado a todos que me ajudaram !!! vlw !!!

dark0 · Abril 30, 2004

hehehe

certinho cara..

que bom que você conseguiu a solução do seu problema!

Estou fechando o tópico, pois você encontrou a solução.. certo?

Se vc, ou alguém tiver mais alguma duvida, me mande PM, que eu reabro o tópico sem problemas..

ok?

Abraços, e até mais!

Entrar

Response.write

Pergunta

Link para o comentário

Compartilhar em outros sites

19 respostass a esta questão

Posts Recomendados

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Estatísticas dos Fóruns