%
if request.Form("acoes") = "Enviar" then
Dim Mail
Set Mail = server.CreateObject("CDONTS.NewMail")
BODY = "Contato feito através do site www.carreiraecia.com.br
"
BODY = BODY & "
Nome: " & request("nome")
BODY = BODY & "
E-mail: " & request("email")
BODY = BODY & "
Comentários:
" & request("comentarios") & "
"
BODY = BODY & "
Mensagen enviada: " & now()
Mail.From = request("email")
Mail.Subject = "Site carreira & cia."
Mail.To = "claudia@carreiraecia.com.br"
Mail.BodyFormat = 0
Mail.MailFormat = 0
Mail.Body = BODY
Mail.Send
Set Mail = Nothing
%>
<%
end if
%>
....
 |
| Preencha o formulário abaixo ou envie seu e-mail para claudia@carreiraecia.com.br |
|
São José dos Campos e Taubaté
(12) 3021-4543 / (12) 9786-1802 |