newslatter

[marvi 0]

Ola pessoal,

Eu tenho um newslatter e ele da esse erro: erro: 424-Object required eu funcei e nada!

Alguem tambem sabe um newslatter interessante que mande como se fosse a pagina do site para o e-mail?

 

codigo

<!--#include file="loggedin.asp"--><!--#include file="dsn.asp"--><!--#include file="body.asp"--><%on error resume nextmail.Sendif err.number<>0 thenresponse.write("erro: "&err.number&"-"&err.description)response.endend ifServer.ScriptTimeout = 1000000Set RS = Server.CreateObject("ADODB.Recordset")Set RSBODY = Server.CreateObject("ADODB.Recordset")SQL2 = "SELECT * from Settings"RSBODY.Open SQL2, Conn, 1, 3SQL = "SELECT Email FROM List"RS.open SQL, connSelect Case RSBODY("Component")Case "CDONTS"	Do While Not RS.eof		set mailObj = Server.CreateObject("CDONTS.NewMail")		If (Request("Format") = "Text") Then			mailObj.BodyFormat = 1			mailObj.MailFormat = 1		Else			mailObj.BodyFormat = 0			mailObj.MailFormat = 0		End If		mailObj.From = RSBODY("From_Email")		mailObj.To = RS("Email")		mailObj.Subject = Request("Subject")		mailObj.Body = Request("Body")		mailObj.Send  RS.movenext	LoopCase "ASPMail"	Do While Not RS.eof		Set mailObj = Server.CreateObject("SMTPsvg.Mailer")		If (Request("Format") = "Text") Then			mailObj.CharSet = 2		Else			mailObj.ContentType = "text/html"		End If		mailObj.FromName = RSBODY("From_Email")		mailObj.FromAddress= RSBODY("From_Email")		mailObj.RemoteHost = RSBODY("SMTP")		mailObj.Subject = Request("Subject")		mailObj.BodyText = Request("Body")		mailObj.AddRecipient RS("Email"),RS("Email")		mailObj.SendMail		RS.movenext	LoopCase "ASPEmail"	Do While Not RS.eof		Set mailObj = Server.CreateObject("Persits.MailSender")		mailObj.Host = RSBODY("SMTP")		mailObj.From = RSBODY("From_Email")		mailObj.AddAddress RS("Email")		mailObj.Subject = Request("Subject")		mailObj.Body = Request("Body")		If (Request("Format") = "Text") Then			mailObj.IsHTML = False		Else			mailObj.IsHTML = True		End If		mailObj.Send		RS.movenext	Loop	End SelectIF (Request("Archive") = "on") Then	Set RSARCHIVE = Server.CreateObject("ADODB.Recordset")	RSARCHIVE.Open "Archive", Conn, 2, 2	RSARCHIVE.addnew	RSARCHIVE("Subject") = Request("Subject")	RSARCHIVE("Body") = Request("Body")	RSARCHIVE("Format") = request("Format")	RSARCHIVE("Date") = Date	RSARCHIVE.updateEnd If%>

Obrigado!

Marcelo

[PedBolo 0]

está dando erro em qual linha?sobre mandar o site por email, uma alternativa seria o iframe, mas dificilmente terás um resultado satisfatorio, pois a maioria dos provedores de email e antivirus bloqueiam mensagens com esse tipo de tag html!

[marvi 0]

o problema é que ele não fala a linha e só o erro: 424-Object required mas eu não achei ainda onde coloca a conta smptEle envia normal, mas e nunca chega os e-mails, mas quando coloco um depurador ele diz erro: 424-Object required, sóGratoMarcelo

[jrcardozo 4]

possivelmente o nome do componente que está armazenado aquiRSBODY("Component")não existe instalado no servidor. Você tem que saber qual está sendo enviado para o Select Case e ver se na hospedagem existe este componente