<%
seunome = trim(request.form("seunome"))
seuemail = trim(request.form("seuemail"))
'destino= trim(request.form("destino"))
destinoemail = trim(request.form("destinoemail")) %>
<% if request.servervariables("REQUEST_METHOD") = "POST" then
if (len(trim(seunome))= 0) then
msg1 = " Por favor, digite seu nome"
call imprimetela(seunome,seuemail,destino,destinoemail,msg)
elseif len(trim(seuemail)) = 0 then
msg2 = " Por favor, digite seu e-mail"
call imprimetela(seunome,seuemail,destino,destinoemail,msg)
'elseif len(trim(destino)) = 0 then
'msg3 = " Por favor, digite o nome do destinatário"
'call imprimetela(seunome,seuemail,destino,destinoemail,msg)
elseif (len(trim(destinoemail))= 0) then
msg4 = " Por favor, digite o e-mail do distinatário"
call imprimetela(seunome,seuemail,destino,destinoemail,msg)
else
'=================
'= Pegar Página Inicial =
'=================
set fs=server.createobject("scripting.filesystemobject")
x = server.mappath ("index.htm")
set arqmod=fs.opentextfile(x)
m=arqmod.readall
arqmod.close
set arq=fs.opentextfile(x)
'=================
'= Envia o email =
'=================
Dim objMail
Set objMail = CreateObject("CDONTS.Newmail")
objMail.TO = destinoemail
objMail.bcc="crocha@sobresites.com"
objMail.From = seuemail
objmail.Subject = "Guia de Desenvolvimento Web"
objMail.MailFormat =cdoMailFormatMime
objMail.BodyFormat = cdoBodyFormatHTML
objMail.Body = " "&" "&seunome&" mandou esse Guia por email para você.
"&m
objMail.send
set objMail = Nothing
response.redirect ("confirmaguia.htm")
End if
else
call imprimetela("","","","","")
End if
%>
<%
function imprimetela(seunome,seuemail,destino,destinoemail,msg)
%>
Enviar Guia por E-mail - Guia de Desenvolvimento Web
