Fale com o Editor - Guia de Televisão

<% name = trim(request.form("nome")) from = trim(request.form("email")) subject = trim(request.form("assunto")) text = trim(request.form("text")) if request.servervariables("REQUEST_METHOD") = "POST" then if (len(trim(name))= 0) then msg = "Por favor, digite seu nome" call imprimetela(name,from,subject,text,msg) elseif len(trim(from)) = 0 then msg = "Por favor, digite seu e-mail" call imprimetela(name,from,subject,text,msg) elseif len(trim(text)) = 0 then msg = "Por favor, digite a mensagem" call imprimetela(name,from,subject,text,msg) else '================= '= Envia o email = '================= Dim objMail Set objMail = CreateObject("CDONTS.Newmail") objMail.TO = "narafranco@uol.com.br" objMail.BCC = "equipe@sobresites.com" objMail.From = from ' You can send anonimous 'mail if you so choose objmail.Subject = subject objMail.MailFormat = cdoMailFormatMime objMail.BodyFormat = cdoBodyFormatHTML objMail.Body = "

Fale conosco - Televisão

" & name & "

" & from & "

" & assunto & "

" & text & "

" objMail.send set objMail = Nothing response.redirect ("confirma.htm") End if else call imprimetela("","","","","") End if %> <% function imprimetela(name,from,subject,text,msg) %> Fale com o Editor - Guia de Televisão


	SobreSites > Televisão > Fale com o Editor


	Página Inicial do Guia

	Envie Guia por E-mail

	História da televisão

	TV Aberta

	TV por Assinatura

	TV Internacional

	Programação

	Astros e Estrelas

	Programas

	Bastidores

	Fale com o Editor


		Televisão Nara Franco Editor do seu Guia de Televisão na Internet

Neste Guia Em todos os Guias

FALE COM O EDITOR

<%=msg%>
nome:
>

e-mail:
>

assunto:
>

texto:

Projeto SobreSites | Sala de Imprensa | Usabilidade
Política de Privacidade | Condições de Uso | Fale Conosco

<% end function %>