Aviso de envio formulario

[Cadu Rezende 0]

Pessoal tenho um formulário de contato que envia os dados para meu email. O envio e feito atraves da minha pagina inicial default.htm que acessa um arquivo externo o contato.asp. Gostaria de colocar o codigo do contato.asp na pagina incial e fazer com q o aviso de envio responde.write aparecesse numa layer q ficara visivel ao clikar no bt enviar do formulario. Depois gostaria colocaria dentro da layer um botao fechar que deixaria a layer invisivel e ao mesmo tempo limparia o formulario.

 

como é que ficaria o codigo asp na minha pagina inicial, como ficaria o action do meu form, como ficar o bt enviar do formulario que é uma imagem, como ficaria o response.write dentro da layer e como ficaria o botao fechar da layer que alem de fechar, limpa o formulario.

 

o meu codigo asp do contato.asp para o envio é esse

 

<%
Dim nome, email, tel, mensagem, br 

nome = Trim(Request.Form("nome"))
email = Trim(Request.Form("email"))
tel = Trim(Request.Form("tel"))
mensagem = Trim(Request.Form("mensagem"))
br = "<br>"

Set Br_Rs = Server.CreateObject("CDONTS.NewMail") 
Br_Rs.from = email
Br_Rs.to = "falecom@falecom.com.br" 
Br_Rs.subject = "Contato - Seu site" 
Br_Rs.body = "<font face=Verdana size=2><b>Nome:</b> " & nome & br & "<b>E-mail:</b> " & email & br & " <b>Telefone:</b> " & tel & br & "<b>Mensagem:</b> " & mensagem & br &"</font>"'aqui é a parte onde serão exibidos os dados que foram preenchidos
Br_Rs.BodyFormat = 0 
Br_Rs.MailFormat = 0 
Br_Rs.send

Set Br_Rs = nothing
response.Write("Obrigado! Sua mensagem foi enviada com sucesso!")
%>

 

Abcs a todos, se alguem tiver algum exemplo pode ser tb

[xanburzum 169]

você poderia usar um auto-responder

[Cadu Rezende 0]

nao sei fazer isso

 

 

você poderia usar um auto-responder

 

nao sei fazer