codigo para enviar e-mail

[leite4 0]

este codigo abaixo tá dando erro na linha 42, foi feito no dreamweaver 8..

Ajudem meus amigos

 

<!-- #include file="Config.asp"-->
<!-- #include file="abrirconexao.asp"-->
<!--#INCLUDE file="topogeral.inc" -->
<%
'-------------------------------------------------------------
'Arquivo: enviar.asp
'Descrição: Procedimento para envio das mensagens
'Criado dia 14/06/02 - por Flavio Cardoso
'http://www.codigolivre.com.br
'-------------------------------------------------------------
Response.write "<div align=""center"">"
Function Plic(strTexto)
 Temp = Replace(strTexto, "'", "''")
 Plic = Replace(Temp, """", """")
End Function

Assunto = Request("Assunto")
Mensagem = Request("Mensagem")
Data = Date()
sSQL="SELECT * FROM Masters"
Set rs=ConPortal.Execute(sSQL)
emailadministrador=rs("email")
Set rs=Nothing
sql_select = "select * from Lista"
no = 0
Set rs_sendmail = Server.CreateObject("ADODB.Recordset")
rs_sendmail.Open sql_select, ConPortal
if rs_sendmail.EOF then
Response.write "<br><br><center><font face=arial size=2>" & Msg_NenhumEmail & "</font></center>"
Else
strSQL = "INSERT INTO HistoricoLista (Assunto, Mensagem, Data) VALUES ('" & Assunto & "', '" & Plic(Mensagem) & "', '" & Data & "')"
ConPortal.Execute(strSQL)
Response.write "<br><br><font face=arial size=""2"">" & Msg_HistoricoAdicionado & "</font><br>"
While Not rs_sendmail.EOF
Set mail = Server.CreateObject("CDONTS.NewMail")
Mail.From=emailadministrador
Mail.To=rs_sendmail("email")
Mail.Subject=Assunto
Mail.BodyFormat=0
Mail.MailFormat=0
Mail.Body = Mensagem & "<BR><BR><font face=arial size=2><a href=""" & Msg_Cancelamento & "/deletar.asp?modo=Email&id=" & rs_sendmail("id") & "&Serial=" & rs_sendmail("SerialNumber") & """>Para remover seu e-mail desta lista CLIQUE AQUI!</a></font>"
LINHA 42 -->Mail.Send
Set mail = Nothing
no = no + 1
rs_sendmail.MoveNext
Wend
Response.Write "<br><font face=arial size=2>Total de Emails enviado:  " & no & " email(s).</font>"
rs_sendmail.Close
Set rs_sendmail = Nothing
End If
Response.write "</div>"
%>
<!-- #include file="undergeral.inc"-->
<!-- #include file="fecharconexao.asp"-->

Vale acrescentar que nessa linha de código era para ele enviar os e-mails cadastro no banco de dados..

é tipo uma página para enviar newsletter, email em massa e tal..

sei que vocês tem conhecimento suficiente para me ajudar a solucionar este problema.

Desde já agradeço a atenção.

[Salgado 4]

Que erro está dando? Qual a linha 42? Ajude-nos a ajudá-lo!

 

 

Outra coisa, o CDONTS está em total desuso, foi substituído pelo CDOSys. Entre em contato com o suporte de sua hospedagem e verifique qual o componente de e-mail eles utilizam para que possa refazer seu script.