::erro no meu código::

[nickian 0]

Oi PESSOAL, B)

 

Será que vcs poderiam me ajudar com o erro do código abaixo ? Segue o erro que esta dando e o código logo abaixo do mesmo ( essa linha do erro está em vermelho no código).

Estou fazendo um sistema de newsletter (peguei o código na web), funciona tudo direitinho, porem quando vou enviar email para todas as pessoas cadastradas no bco. de dados, acontece o erro abaixo. Por que ?

 

Abraços,

 

 

Microsoft VBScript runtime error '800a01b6'

 

Object doesn't support this property or method: 'smtp.Host'

 

/isv/admin.asp, line 70

 

 

<p><font face="Verdana" size="2">

<% acao=Request.querystring("acao")

select case acao

case "enviar" %>

</font></p>

<font face="Verdana" size="2"><form action="admin.asp?acao=enviando" method="post">

<input type="hidden" name="data" value="<%=Date()%>">

 

<p align="center"> <font color="#000099"><strong>Assunto :</strong></font><br>

<input type="text" name="assunto" size="50">

<br>

<strong><font color="#000099">Mensagem :</font></strong><br>

<textarea name="mensagem" cols="60" rows="15"></textarea><br>

<input type="submit" value="Enviar">

</form><BR>

<hr size="1">

 

<% case "enviando" %>

<% user = 0

assunto = Request.Form("assunto")

mensagem = Request.form("mensagem")

mensagem = mensagem & "<BR><BR><BR>Para parar de receber este email <a href="& site & ">clique aqui</a>"

 

AbreConexao

Sql = "SELECT email FROM dados"

If Len(mensagem) Then

 

Set rs = Server.CreateObject("ADODB.Recordset")

rs.Open Sql, ConStr, 3, 3

 

While Not rs.EOF

Set mail = Server.CreateObject("CDONTS.NewMail")

mail.From = email

mail.Host = smtp (essa é a minha linha 70(erro) no Dreamweaver MX)

mail.To = rs("email")

mail.Subject = assunto

mail.BodyFormat = 0

mail.Body = mensagem

mail.Send

Set mail = Nothing

Response.Write "Email enviado para : " & rs("email") & "<br>"

user = user + 1

rs.MoveNext

Wend

Response.Write "No total foram enviados " & user & " emails."

rs.Close

Set rs = Nothing

Sql = "INSERT INTO enviados (assunto,mensagem,data) "

Sql = Sql & "VALUES('" & Request.Form("assunto") & "','" & mensagem & "','" & Request.Form("data") & "')"

Conexao.Execute(Sql)

Else

Response.Redirect "admin.asp?acao=erro"

End If

FechaConexao %>

 

<% case "modificar" %>

<% AbreConexao

Sql = "SELECT * From dados"

Set rs = Conexao.Execute(Sql)

while not rs.EOF%>

<table border="0" cellpadding="0" cellspacing="0">

<tr>

<td><input type="text" value="<%=rs("email")%>" name="email" size="30"></td>

<td><form method="POST" action="admin.asp?acao=alterar&id=<%=rs("id")%>">

<input type="submit" value="Alterar"></form></td>

<td><form method="POST" action="admin.asp?acao=deletar&id=<%=rs("id")%>">

<input type="submit" value="Apagar"></form></td>

</tr>

</table>

<hr size="1">

<% rs.MoveNext

wend

FechaConexao %>

 

<% case "deletar" %>

<% id = request.querystring("id")

AbreConexao

Sql = "DELETE id,email FROM dados WHERE id = " & id &""

Conexao.Execute(Sql)

FechaConexao %>

<font color="#000099"><strong>E-Mail deletado com sucesso!</strong></font><BR>

<hr size="1">

 

<% case "alterar" %>

<% id = request.querystring("id")

AbreConexao

Sql = "UPDATE dados SET email = '" & Request.Form("email") & "' WHERE id = " & id & " "

Conexao.Execute(Sql)

FechaConexao %>

<strong><font color="#000099">E-Mail alterado com sucesso!</font></strong><BR>

<hr size="1">

 

<% case "todas" %>

<% AbreConexao

Sql = "SELECT * From enviados"

Set rs = Conexao.Execute(Sql)

while not rs.EOF %>

<strong><font color="#000099">Assunto:</font></strong> <font color="red"><%=rs("assunto")%></font><BR>

<strong><font color="#000099">Enviada em:</font></strong> <font color="red"><%=rs("data")%></font><BR>

<strong><font color="#000099">Mensagem:</font></strong><BR>

<%=rs("mensagem")%><BR><BR><BR>

<HR size="1">

<% rs.MoveNext

wend

FechaConexao %>

 

<% case "erro" %>

<strong><font color="#000099">Ocorreu um erro ao tentar efetuar a operação. Tente

novamente.</font></strong><BR>

<hr size="1">

 

<% case else %>

<% AbreConexao

Sql = "SELECT * FROM dados"

Set rs = Server.CreateObject("ADODB.Recordset")

rs.Open Sql, ConStr, 3, 3 %>

<strong><font color="#000099">No total</font></strong> <%=rs.recordcount%> <strong><font color="#000099">pessoas estão cadastradas no seu newsletter<BR>

<a href="admin.asp?acao=modificar">Modificar/Alterar os dados dos cadastrados</a></font></strong><BR>

<a href="admin.asp?acao=enviar"><strong>Enviar E-Mail</strong></a><strong><BR>

<a href="admin.asp?acao=todas">Todos os e-mails já enviados</a> </strong>

<HR size="1">

<% FechaConexao

end select %>

</font>

 

<p align="center">

[nostrinkes 0]

esta linha é necessaria?Eu te pergunto porque eu mando emils tipo newsletters enão uso esta var..while not rs.EOFSet objMail = Server.CreateObject("CDONTS.NewMail")objMail.To =rs("email") objMail.From = ""objMail.Subject = ""objMail.Body = STRbodyobjMail.Importance = 2objMail.Bodyformat = 0objMail.MailFormat = 0objMail.Send Set objMail = Nothingrs.movenextwend

[nickian 0]

Oi, :lol: Muito obrigada pelo código, usei o seu e deu certo, como eu havia pegado na web esse sistema, deixei como estava, mas deu esse erro.Mas agora nao está dando mais erro, porem quando eu envio os e-mails, ele diz que foram enviados com sucesso e lista as pessoas, sendo que eu coloquei um email meu de teste e nao recebi a mensagem de newsletter.A onde tenho que mexer, para eu poder receber ? Acredito que as outras pessoas listadas nao receberam essa msg.Poderiam me informar?

[nickian 0]

Oi, :rolleyes: Muito obrigada pelo código, usei o seu e deu certo, como eu havia pegado na web esse sistema, deixei como estava, mas deu esse erro.Mas agora nao está dando mais erro, porem quando eu envio os e-mails, ele diz que foram enviados com sucesso e lista as pessoas, sendo que eu coloquei um email meu de teste e nao recebi a mensagem de newsletter.A onde tenho que mexer, para eu poder receber ? Acredito que as outras pessoas listadas nao receberam essa msg.Poderiam me informar?

help-me please ! :blink: