¤ 8º FOREST - 2006 ¤

CONTATO

<% if request("send") <> "yes" then %>

Preencha corretamente o formulário abaixo.

Todos os campos são obrigatórios.

Formulário para contato.

Nome:
Cidade/Estado:	/
E-mail:
Digite sua mensagem:

<% else nomex = request.form("nome") cidadex = request.form("cidade") estadox = request.form("estado") emailx = request.form("email") emaily = "eliana@alphasystem.com.br" ' emaily = "ancele@alphasystem.com.br" mensagemx = request.form("mensagem") Set mail = Server.CreateObject("SMTPSvg.Mailer") mail.FromName = nomex mail.FromAddress = emailx mail.RemoteHost = "smtp2.locaweb.com.br" mail.AddRecipient "FOREST 2006", emaily mail.ContentType = "text/HTML" corpo = "E-mail enviado pelo formulário de contato do site do FOREST 2006" corpo = corpo & "

" corpo = corpo & "Dados do Contato" corpo = corpo & "

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

" corpo = corpo & "Cidade: " & cidadex & "

" corpo = corpo & "Estado: " & estadox & "

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

" corpo = corpo & "Mensagem: " & mensagemx mail.Subject = "Contato - Site FOREST 2006" mail.BodyText = corpo %> <% if mail.SendMail then %> <% else %> <% end if %>

Resultado

Sua mensagem foi enviada com sucesso.

Houve um erro no envio dos dados. Por favor, tente novamente.
"Clique aqui"

<% end if %>