Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

Guilherme Teixeira

Objeto necessário ERRo 424 com CDonts

Por , em ASP Clássico

Recommended Posts

Guilherme Teixeira    0

Guilherme Teixeira
Postado

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"" 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</a>.<br><br>Muito 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 If
Set ObjMail= Nothing
%>

Compartilhar este post

Link para o post
Compartilhar em outros sites

Salgado    4

Salgado
Postado

Você seta ObjMail e tenta enviar usando mailobject.

 

Aconselho a usar o componente CDOSys no lugar do CDONts pois ele foi descontinuado.

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito