Objeto necessário ERRo 424 com CDonts
Olá amigos, fiz este código para fazer um sistema de newsletter no meu site. A parte para adicionar no Banco de dados está ok. Porém a de envio via cdonts, não. Eu adaptei um código para ver o erro e toda hora ele acusa que é necessário um objeto e que o numero do erro é 424.Porém este mesmo código de envio está funcionando em outra página minha, porém na outra não existe a parte para adicionar ao banco de dados. Alguem tem alguma sugestão? Segue o código abaixo:
<!--#include file="files/connect.asp"-->
<% if request.Form("email_news") = "" or request.Form("nome_news") = "" then
response.redirect "mensagens.asp?id=5"
else
dim email
dim nome
dim sqlstmt
dim rsquery
dim sql
dim codigo
email = request.Form("email_news")
nome = request.Form("nome_news")
sqlstmt = "Insert into News (Nome, Email) values ('"&Nome&"','"&email&"')"
Set rs = server.createobject("adodb.connection") 'abre a conexão com o banco de dados
rs.open conn 'avisa qual banco de dados será utilizado na consulta
set rsquery = rs.execute(sqlstmt)
set rsquery = nothing
set rs = nothing
Set rec0 = Server.CreateObject ("ADODB.RecordSet")
sql="SELECT * FROM News WHERE (Nome='"&nome&"') AND (Email='"&email&"')"
rec0.open sql, conn, 3,3
codigo = rec0.Fields.Item("Cod").value
set rec0 = nothing
set conn = nothing
end if
%>
<%
Dim SenderEmail
Dim Subject
Dim Recipient
Dim CC
Dim Body
SenderEmail = "Newsletter - GMT Web Services"
Recipient = email
CC = "mensagens@gmtwebservices.com"
Subject = "Confirmação de cadastro"
Body = "<html><head><meta http-equiv=""Content-Type"" content=""text/html; charset=iso-8859-1""><title>GMT Web Services</title></head><body><div align=""center""><img src=""[http://www.gmtwebservices.com/new/files/logo-mail.jpg""](http://www.gmtwebservices.com/new/files/logo-mail.jpg) width=""150"" height=""150"" /><br /></div><p><font size=""-1"" face=""Arial""><b>Resposta automática. Não é preciso responder este e-mail.</b><br><br>Olá,<br><br>Confirmado sua inscrição no Newsletter do site <a href=""[http://www.gmtwebservices.com"">www.gmtwebservices.com.
Muito](http://www.gmtwebservices.com) obrigado.<br><br>Você pode cancelar seu recebimento pelo seguinte endereço: <a href=""www.gmtwebservices.com/newsdelete.asp?Cod="&codigo&" target=""_blank"">www.gmtwebservices.com/newsdelete.asp?Cod="&codigo&"</a></font></p></body></html>"
Set ObjMail = Server.CreateObject ("CDONTS.NewMail")
ObjMail.FROM = Senderemail
ObjMail.Subject = Subject
ObjMail.TO = Recipient
If CC <> "" Then
ObjMail.Cc = CC
End If
ObjMail.Body = Body
' CdoHigh = 2 - Highest priority (Urgent)
' CdoNormal = 1 - Normal
' CdoLow = 0 - Lowest
ObjMail.Importance = 2
ObjMail.BodyFormat = 0
ObjMail.MailFormat = 0
' Send it...
ObjMail.send
On Error Resume Next
mailobject.send
If Err.Number = 0 Then %>
<script language="javascript"> alert ("E-Mail enviado com sucesso!");
window.close();
</script>
<%
Else
Response.Write "Error: " & Err.Description &"-" & Err.Number
End IfSet ObjMail= Nothing
%>
Discussão (1)
Carregando comentários...