CRISTAL VIDEO FOTO

<% if request.form("gravar")<>"" then Nome = request.form("Nome") Email = request.form("Email") Mensagem = request.form("Mensagem") Set objMail = Server.CreateObject("CDONTS.NewMail") objMail.from = Email objMail.To = "pregostriangulo@triang.com.br" objMail.Subject = "Fale Conosco" objMail.Body = "Nome do remetente: "&Nome&"
Email do Remetente: "&Email&"
Mensagem: "&Mensagem&"" objMail.BodyFormat = 0 'Aceita HTML objMail.MailFormat = 0 result = objMail.Send Set objMail = Nothing end if %> CRISTAL VIDEO FOTO

<% if request.form("Gravar")<>"" then %>

Seu email foi enviado com sucesso!

Responderemos assim que possivel
Obrigado.

<% else %>

Envie suas sugestões e críticas.

Por gentileza, preencher todos os campos.
Nome:
E-mail:
Mensagem:

<% end if %>