<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% Dim noticia__MMColParam noticia__MMColParam = "1" If (Request.QueryString("ID") <> "") Then noticia__MMColParam = Request.QueryString("ID") End If %> <% Dim noticia Dim noticia_cmd Dim noticia_numRows Set noticia_cmd = Server.CreateObject ("ADODB.Command") noticia_cmd.ActiveConnection = MM_Loja_STRING noticia_cmd.CommandText = "SELECT * FROM noticias WHERE ID = ?" noticia_cmd.Prepared = true noticia_cmd.Parameters.Append noticia_cmd.CreateParameter("param1", 5, 1, -1, noticia__MMColParam) ' adDouble Set noticia = noticia_cmd.Execute noticia_numRows = 0 %> <% If request.Form("email1")<>"" then Set eObjMail = Server.CreateObject("Persits.MailSender") eObjMail.Host = "localhost" eObjMail.From = "news@Seth.com.br" eObjMail.IsHTML = True eObjMail.FromName = "Seth NEWS" corpo = "" & request.Form("nome") & " " & request.Form("email") & " está navegando no Portal Seth http://www.Seth.com.br/ e enviou a notícia:

" & (noticia.Fields.Item("titulo").Value) & "

" corpo=corpo & "Comentário:
" & request.Form("comentario") & "
" corpo = corpo + "

Obrigado!

Equipe Seth" if request.Form("email1")<>"" then eObjMail.AddReplyTo request.Form("email1"), request.Form("email1") eObjMail.AddAddress request.Form("email1"), request.Form("email1") end if if request.Form("email2")<>"" then eObjMail.AddReplyTo request.Form("email2"), request.Form("email2") eObjMail.AddAddress request.Form("email2"), request.Form("email2") end if if request.Form("email3")<>"" then eObjMail.AddReplyTo request.Form("email3"), request.Form("email3") eObjMail.AddAddress request.Form("email3"), request.Form("email3") end if eObjMail.Subject = "Envio de Noticia" eObjMail.Body = corpo eObjMail.Send Set eObjMail = nothing %>

Notícia enviada com sucesso!

Fechar

<% response.End() end if %> Enviar Noticia "<%=noticia.Fields.Item("titulo").Value%>"

Enviar Noticia:

"<%=noticia.Fields.Item("titulo").Value%>"
  Dados do(s) Destinatario(s):
 
 

Nome

 E-mail
1:
2:
3:
 
  Seus Dados:
 
  Seu nome
  Seu e-mail
  Comentario
   
  Fechar  
<% noticia.Close() Set noticia = Nothing %>