Fale Conosco - Guia de Hardware

<% 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 = "equipe@sobresites.com" 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 - Hardware

" & 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 Conosco - Guia de Hardware


	SobreSites > Hardware > Fale Conosco


	Página Inicial do Guia

	Envie Guia por E-mail

	Portais de Hardware

	Placas Mãe

	Chipsets

	Processadores

	Cooling

	BIOS

	Overclock

	CaseMod

	Software

	Placas de Video

	DVD

	Memórias

	HD

	Monitores

	Banda Larga

	Fóruns de Hardware

	Revistas

	Drivers

	Fale Conosco


		Hardware Equipe SobreSites Seu Guia de Hardware na Internet

FALE CONOSCO

<%=msg%>
nome:
>

e-mail:
>

assunto:
>

texto:

Projeto SobreSites | Sala de Imprensa | Usabilidade
Política de Privacidade | Condições de Uso | Torne-se Editor