Ir para conteúdo
Fórum Script Brasil
  • 0

varáveis do FLASH para o ASP


Marcelo Faggioni

Pergunta

Pessoal, postei a mesma dúvida no fórum de Flash & ActionScript daki, pois o assunto se refere tanto a flash como asp. Caso não seja necessário apaguem..

Vams lá, Tenho um formulário de e-mail que está rolando tranquilo..

Possuo alguns campos de input, como: nome, e-mail e mensagem, onde a pessoa preenche e clica em enviar..

Para enviar... utilizo a classe loadVars() com o método POST.. tudo vai tranquilo!

No ASP, o recebimento dessas variáeis é feito através de Request.form("variável")

Gostaria de enviar também, variáveis que não viessem através dos campos de input, mas sim algumas outras que eu quisesse setar, como por exemplo:

var naosei:String = "Olá pessoal"

Isso não ta dando pra fazer.. o ASP não entende essa variável, e dá erro no envio!

vou colocar o código aki pra ver se vocês podem me ajudar..

NO FLASH!

var haha:String = "Deu Certo!";

loadVarsEmail = new LoadVars();

//função que envia as variáveis preenchidas nos campos de texto ao PHP/ASP
function enviar() {
    loadVarsEmail.email = email_txt.text;
    loadVarsEmail.nome = nome_txt.text;
    loadVarsEmail.haha = haha;
    loadVarsEmail.sendAndLoad("aspmails.asp",loadVarsEmail,"POST");
}

//se as variáveis enviadas do FLASH ao ASP/PHP forem carregadas com sucesso,
//ele limpa todos os campos e exibe a mensagem de envio com sucesso, caso contrário é exibida a mensagem de erro.
loadVarsEmail.onLoad = function(ok) {
    if (ok) {
        email_txt.text = "";
        nome_txt.text = "";
        saida = "E-mail enviado com sucesso";
    } else {
        saida = "Erro no envio";
    }
}
NO ASP
<%@ Language=VBScript %>
<%
Dim myMail, f1,f2, f3 fields

f1 = "Nome: "  & Request.Form("nome") & vbcrlf
f2 = "E-mail: " & Request.Form("email") & vbcrlf
f3 = "Testando: " & Request.Form("haha") & vbcrlf

fields = f1 & f2 & f3

Set myMail = Server.CreateObject("CDONTS.NewMail")

myMail.From = request.Form("email")
myMail.Subject = "E-Mail do Site"
myMail.To = "atendimento@bertollini.com.br"
myMail.Body = fields
myMail.MailFormat = 1
myMail.Send

Set myMail = Nothing

Response.write "&ok=true"
%>

Por favor pessoal, aguardo uma sincera ajuda!

Abração!

Editado por Marcelo Faggioni
Link para o comentário
Compartilhar em outros sites

1 resposta a esta questão

Posts Recomendados

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152,3k
    • Posts
      652,6k
×
×
  • Criar Novo...