Trocar componente

[m.designer 0]

Ola eu tenho um sistema de Cartão virtual aqui mais da erro na hora de enviar o cartão, porque meu servidor não tem o componente que ele usa, eu queria mudar o codigo para usar o Componente que meu servidor tem, meu servidor tem esse componente "Persits - ASPEmail" se alguem puder me ajudar ficarei agradeçido, ai vai o código ...<!--#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_Stringsqla ="select * from sent"SQLB = "select * from config"set rsb = conna.execute (sqlb)RSa.open sqla,Conna,1,3RSa.AddNewrandomizersa("pid") = int(rnd*99999)+1RSa("card")=imRSa("fromname")=fromnameRSa("frommail")=frommailRSa("toname")=tonameRSa("tomail")=tomailRSa("title")= titleRSa("bgcol")= bgcolRSa("txtcol")= txtcolRSa("message")= messageRSa("sentdate")= date()RSa("sound") = soundRSa.update'response.write "sent"ticket = rsa("pid")mysite = rsb("url")myname = rsb("myname")days = rsb("days")Dim MailerSet Mailer = Server.CreateObject("SMTPsvg.Mailer")Mailer.FromName = fromnameMailer.FromAddress= frommailMailer.RemoteHost = rsb("mailserver")Mailer.AddRecipient tomail, tomailMailer.Subject = "Você recebeu um cartão"Mailer.BodyText = toname &"," & vbCrLf & fromname & " " & "Você acaba de receber um cartão virtual "& vbCrLf &_ "you can pick up you card on our site" & " "& mysite & vbCrLf & "by entering your ticket number witch is: " & 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 & " days or it will be deleted"Mailer.SendMailset Mailer = nothingif Err.Number<>0 then Response.write "Error: " & Err.descriptionelse%><center> <p> </p><table width="98" border="0" align="center" cellpadding="0" cellspacing="0"> <tr> <td><img src="top.gif" width="750" height="111"></td> </tr> <tr> <td bgcolor="#333399"><table width="100%" border="0" cellspacing="1" cellpadding="1"> <tr> <td valign="top" background="bg.jpg" bgcolor="#FFFFFF"> <center> </center> <center> <p> </p> <p> </p> <p><font size ="2" face="Verdana, Arial, Helvetica, sans-serif">Seu cartão foi enviado para:<br> <%=toname%> (<%=tomail%>)<br> </font><font size ="4"> <font size="2" face="Verdana, Arial, Helvetica, sans-serif"><a href = "index.asp"> Voltar</a></font></font> </p> </center> <%end ifrsa.close%> <p> </p> <center> </center></td> </tr> </table></td> </tr> <tr> <td bgcolor="#333399"> <div align="center"><font color="#FFFFFF" size="1" face="Verdana, Arial, Helvetica, sans-serif">Superasp.com.br - Copyright© 2001 - Todos os direitos reservados</font></div></td> </tr> </table> </center>

[m.designer 0]

nadA?

[arr 0]

Meu amigo, não há dificuldade nenhuma em trocar o componente, basta você investir um pouquinho do seu tempo, visitar o site http://www.persits.com/ e estudar um pouquinho o manual para usar as propriedades compatíveis com o aspemail.

 

Troca:

Set Mailer = Server.CreateObject("SMTPsvg.Mailer")

Por:

Set Mailer = Server.CreateObject("Persits.MailSender")

 

Mailer.FromName = fromname

por:

Mailer.From = fromname

 

e por aí vai.

Agora levanta essa bunda gorda do chão e mãos à obra ^_^