|
<%
sub form()
%>
<%
end sub
if Request.ServerVariables("REQUEST_METHOD") = "POST" then
dim contatos, mailer, nome, email, msg
nome = Request.Form("nome")
email = Request.Form("email")
msg = Request.Form("msg")
msg = " " & vbCrLf & _
" " & vbCrLf & _
" " & vbCrLf & _
" ![]() | " & vbCrLf & _
" " & vbCrLf & _
" " & vbCrLf & _
" " & vbCrLf & _
" " & vbCrLf & _
" | NEWSLETTER - TVBeltrão | " & vbCrLf & _
" " & vbCrLf & _
" " & vbCrLf & _
" " & vbCrLf & _
" " & vbCrLf & _
" " & vbCrLf & _
" | " & vbCrLf & _
" " & vbCrLf & _
" " & vbCrLf & _
" " & vbCrLf & _
" " & vbCrLf & _
" | Nome: | " & vbCrLf & _
" "& nome &" | " & vbCrLf & _
" " & vbCrLf & _
" " & vbCrLf & _
" | Email: | " & vbCrLf & _
" "& email &" | " & vbCrLf & _
" " & vbCrLf & _
" " & vbCrLf & _
" " & vbCrLf & _
" " & vbCrLf & _
" | " & vbCrLf & _
" " & vbCrLf & _
" | " & vbCrLf & _
" " & vbCrLf & _
" " & vbCrLf & _
" " & vbCrLf & _
" " & vbCrLf & _
" | www.tvbeltrao.com.br | " & vbCrLf & _
" " & vbCrLf & _
" " & vbCrLf & _
" " & vbCrLf
Set mailer = Server.CreateObject("SMTPsvg.Mailer")
with mailer
.FromName = nome
.FromAddress = "diretoria@tvbeltrao.com.br" 'romulo@activesolucoes.com carbraz@netconta.com.br
.Recipient = "diretoria@tvbeltrao.com.br"
.RemoteHost = "smtp.tvbeltrao.com.br" '(locaweb)
.Subject = "TVBeltrão - Newsletter"
.BodyText = msg
.CharSet = 2
.ContentType = "text/html"
.TimeOut = 5000
if .SendMail then
Response.Write " " & vbCrLf & _
" " & vbCrLf & _
" | Cadastro efetuado com sucesso! | " & vbCrLf & _
" " & vbCrLf & _
" " & vbCrLf
else
Response.Write " " & vbCrLf & _
" " & vbCrLf & _
" Ocorreram erros! "& .Response &".
Tente novamente! | " & vbCrLf & _
" " & vbCrLf & _
" " & vbCrLf
end if
end with
Set mailer = Nothing
else
form()
end if
%> |
|
 |
DE SEGUNDA A SEXTA ÀS 12:30 E ÀS 19:00HS |
|
|
