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

Formulário Em Asp + Flash Não Funciona


Guest jonicesar

Pergunta

Guest jonicesar

huh.gif Meu nome é JOni César. Sou jornalista por formação e atuação. é um prazer participar da comunidade aqui.

Se puderem me ajudar

em um site html, coloque um formulário swf (flash) para contato e usei asp. Bom, ele diz que envia mas não consigo receber no meu email. o que será que errei.

no botão do flash eu coloquei.

on (release) {

if (nome eq "") {

status = "Por favor, preencha seu nome";

Selection.setFocus("nome");

} else if (endereco eq "") {

status = "Qual seu endereço?";

Selection.setFocus("endereco");

} else if (cidade eq "") {

status = "Por favor, informe sua cidade";

Selection.setFocus("cidade");

} else if (bairro eq "") {

status = "O campo bairro está vazio";

Selection.setFocus("bairro");

} else if (estado eq "") {

status = "Qual seu estado?";

Selection.setFocus("estado");

} else if (cep eq "") {

status = "o campo cep está vazio";

Selection.setFocus("cep");

} else if (ddd eq "") {

status = "Por favor, informe o DDD";

Selection.setFocus("ddd");

} else if (fone eq "") {

status = "Qual o seu telefone?";

Selection.setFocus("fone");

Selection.setFocus("celular");

} else if (mensagem eq "") {

status = "Qual a sua mensagem?";

Selection.setFocus("mensagem");

}

else {

getURL("enviarcontato.asp", "", "POST");

}

}

e no arquivo Asp

<%

On Error Resume Next

nome = Request.Form("nome")

endereco = Request.Form("endereco")

cidade = Request.Form("cidade")

bairro = Request.Form("bairro")

estado = Request.Form("estado")

cep = Request.Form("cep")

ddd = Request.Form("ddd")

fone = Request.Form("fone")

celular = Request.Form("celular")

mensagem = Request.Form("mensagem")

'Envia o e-mail

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

objMail.From = email

objMail.To = "jonicesar@yahoo.com"

objMail.Subject = "Contato - Site"

objMail.Body = "Nome: " & nome & "<br>Endereço: " & endereco & "<br>Cidade: " & cidade & "<br>Bairro: " & bairro & "<br>Estado: " & estado & "<br>Cep: " & cep & "<br>DDD: " & ddd & "<br>Telefone: " & fone & "<br>Celular: " & celular &"<br>Mensagem: " & mensagem

objMail.Importance = 2

objMail.BodyFormat = 0

objMail.MailFormat = 0

objMail.Send

Set objMail = Nothing

If Err.Number <> 0 Then

Response.Redirect "erro.asp?erro=" & err.number

Else

Response.write "ok. e-mail enviado com sucesso"

End If

%>

por favor, se puderem me ajudar. o servidor é o Terra.

abraços e por enquanto obrigado

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,3k
×
×
  • Criar Novo...