<%
name = trim(request.form("nome"))
from = trim(request.form("email"))
city = trim(request.form("cidade"))
if request.servervariables("REQUEST_METHOD") = "POST" then
if (len(trim(from))= 0) then
msg = "Por favor, digite seu e-mail"
call imprimetela(name,from,city)
else
'=================
'= Envia o email =
'=================
Dim objMail
Set objMail = CreateObject("CDONTS.Newmail")
objMail.TO = "equipe@sobresites.com"
objMail.From = from ' You can send anonimous 'mail if you so choose
objmail.Subject = "Cadastro de E-Mail"
objMail.MailFormat = cdoMailFormatMime
objMail.BodyFormat = cdoBodyFormatHTML
objMail.Body = "
Cadastro de Guia de Hardware
" & name & "
" & from & "
" & city & "
"
objMail.send
set objMail = Nothing
response.redirect ("confirmacad.htm")
End if
else
call imprimetela("","","")
End if
%>
<%
function imprimetela(name,from,city)
%>
Cadastro para Informativo - Guia de Hardware
Digite seu e-mail no campo
abaixo para saber das atualizações.
<%=msg%> nome:
>
e-mail:
(obrigatório)
>
cidade:
>
Privacidade:
Qualquer comunicação
entre o SobreSites e seus usuários é confidencial.
Nunca venderemos ou forneceremos seu endereço de e-mail
para qualquer outra empresa ou instituição.
Você poderá cancelar sua assinatura a qualquer
momento e as instruções para isso estarão
no próprio e-mail. Para mais detalhes, por favor leia
nossas Política de Privacidade
e Condições de Uso.
