Estou com problema de enviar cartão virtual

[os bacana 0]

estou com um problema para enviar um cartão virtual, ele cria normal visualiza mas na hora de enviar ele da este erro

 

sent

Server object error 'ASP 0177 : 800401f3'

 

Server.CreateObject Failed

 

/entrou/send.asp, line 44

 

800401f3

o código da pagina é este

deixei marcado a linha 44 em vermelho

 

 

<!-- #include file='i_header.asp' -->

<!--#include file="config.asp"-->

 

<%

im = request.form("image")

ida = request.form("id")

title = request.form("title")

toname = request.form("toname")

tomail = request.form("tomail")

fromname = request.form("fromname")

frommail = request.form("frommail")

message = request.form("message")

bgcol = request.form("bgcol")

txtcol = request.form("txtcol")

sound = request.form("sound")

set Conna= Server.CreateObject("ADODB.Connection")

set rsa = server.CreateObject("ADODB.RecordSet")

Conna.Open Conn_String

sqla ="select * from sent"

SQLB = "select * from config"

set rsb = conna.execute (sqlb)

 

RSa.open sqla,Conna,1,3

RSa.AddNew

randomize

rsa("pid") = int(rnd*99999)+1

RSa("card")=im

RSa("fromname")=fromname

RSa("frommail")=frommail

RSa("toname")=toname

RSa("tomail")=tomail

RSa("title")= title

RSa("bgcol")= bgcol

RSa("txtcol")= txtcol

RSa("message")= message

RSa("sentdate")= date()

RSa("sound") = sound

RSa.update

response.write "sent"

ticket = rsa("pid")

mysite = rsb("url")

myname = rsb("myname")

days = rsb("days")

 

Set mySmartMail = Server.CreateObject("aspSmartMail.SmartMail") o erro esta aqui eu acho

 

mySmartMail.Server = rsb("mailserver")

mySmartMail.SenderName = fromname

mySmartMail.SenderAddress = frommail

mySmartMail.Recipients.Add tomail

mySmartMail.Subject = "Você acabou de enviar um cartão"

mySmartMail.Body = toname &"," & vbCrLf & fromname & " " & "Você acabou de enviar um cartão"& vbCrLf &_

"Para você visualizar seu cartão entre no site" & " "& mysite & vbCrLf & "Este é seu código para vizualização do cartão virtual: " & ticket & vbCrLf & " or simply click on the bleow url to automaticly view your card " & vbCrLf & mysite& "/get.asp?ticket="& ticket & vbCrLf & vbCrLf & "Regards" & vbCrLf & myname & vbCrLf & "* Card must be recived within " & days & " Tempo restamte para que seu cartão seja deletado"

' Send the message

 

mySmartMail.SendMail

 

if Err.Number<>0 then

 

Response.write "Error: " & Err.description

 

else%>

 

<center>

<font size ="4">Cartão criado com sucesso:<br>

<%=toname%> (<%=tomail%>)<br>

<hr>

<a href = "index.asp"> Enviar um novo cartão </a></font>

</center>

 

 

 

<p>

<%

end if

rsa.close

 

%>

</p>

<p><!-- #include file=i_footer.asp --></p>

Se alguém me ajudar agradeço deis de já

Obrigado!!!

[AMON-HÁ 0]

Primeiro aquela velha pergunda de sempre... hehe

você tem o componente aspSmartMail instalado???

 

Se tem... já fez testes pra vê se ele funciona??? tipow... já conseguiu mandar emails com ele???

 

http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif

[os bacana 0]

Primeiro aquela velha pergunda de sempre... hehe

você tem o componente aspSmartMail instalado???

 

Se tem... já fez testes pra vê se ele funciona??? tipow... já conseguiu mandar emails com ele???

 

http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif

no site de hospedagem que eu uso não tem mas tem instalado o aspSmartMail mas tem o jmail

 

e eu ja mudei

Set mySmartMail = Server.CreateObject("aspSmartMail.SmartMail")

para

Set mySmartMail = Server.CreateObject("Jmail.SMTPMail")

e o erro foi pra linha 45 o q k eu devo colocar no "mailserver"

[AMON-HÁ 0]

 

Primeiro aquela velha pergunda de sempre... hehe

você tem o componente aspSmartMail instalado???

 

Se tem... já fez testes pra vê se ele funciona??? tipow... já conseguiu mandar emails com ele???

 

http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif

no site de hospedagem que eu uso não tem mas tem instalado o aspSmartMail mas tem o jmail

 

e eu ja mudei

Set mySmartMail = Server.CreateObject("aspSmartMail.SmartMail")

para

Set mySmartMail = Server.CreateObject("Jmail.SMTPMail")

e o erro foi pra linha 45 o q k eu devo colocar no "mailserver"

 

Naum cara... a estrutura de um componente para o outr é diferente...

 

Veja um modelo do Jmail:

Dim objMailset objMail = Server.CreateObject("JMail.Message")objMail.From = "remetente@dominio.com.br"objMail.FromName = "Nome do Remetente"objMail.AddRecipient "destinatario@dominio.com.br", "Nome do Destinatário"objMail.Subject = "Assunto da mensagem"objMail.Body = "Texto da Mensagem." & VbCrLf & "Mensagem de Teste."If objMail.Send("smtp.dominio.com.br") Then	Response.write "E-mail enviado..."Else	Response.Write "Erro no envio de e-mail: " & objMail.logEnd ifSet objMail = Nothing

 

http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif

[os bacana 0]

Valew cara funcionou agora obrigado pela ajuda

[AMON-HÁ 0]

Valew cara funcionou agora obrigado pela ajuda

Bacana!!! http://forum.imasters.com.br/public/style_emoticons/default/joia.gif