|
| |
|
|
Brad
Posts: 70
From: Ogden, UT, USA
Status: offline
 |
Changing From ASP to CDONTS - 7/1/2003 16:32:08
Dangit!!! I switched my web host and the new host (Microsoft' s bCentral) does not support ASP mail. I had lots of little scripts and now they don' t work. IS this what I should be looking for....
Set Mailer = Server.CreateObject (" SMTPsvg.Mailer" )
and change the SMTPsvg.Mailer to
Set Mailer = CreateObject(" CDONTS.NewMail" )
or something like that? There is also sometimes SetMailer1 and SetMailer2
|
|
|
|
Brad
Posts: 70
From: Ogden, UT, USA
Status: offline
|
RE: Changing From ASP to CDONTS - 7/1/2003 16:57:34
Does it make any difference what the name of the Mailer is? Like in your example you have " oMailer" on my site it' s just Mailer or Mailer1 or Mailer2.
Also I have seen objMail and others...any difference?
| |
|
|
|
Brad
Posts: 70
From: Ogden, UT, USA
Status: offline
|
RE: Changing From ASP to CDONTS - 7/1/2003 17:31:20
Okay...awesome. So, if my page is currently this:
-----------------------------------------------------------------------------------------------------
Set rsPass = dbquery(passRet,con)
if not rsPass.eof then
Password = rsPass(0)
Email = rsPass(1)
FromName = " Administrator"
FromEmail = Application(" AdminEmail" )
Subject = " Your Password."
BodyText = " Dear " &FirstName&" " &LastName&" ," &vbcrlf&vbcrlf&" your password is " &Password&" ." &vbcrlf&" Thankyou for using our services " &vbcrlf&vbcrlf&" Regards," &vbcrlf&" Administrator."
Set Mailer = Server.CreateObject (" SMTPsvg.Mailer" )
Mailer.FromName = FromName
Mailer.FromAddress = FromEmail
Mailer.Subject = Subject
Mailer.BodyText = BodyText
Mailer.RemoteHost = " mail-fwd.boca15-verio.com"
Mailer.AddRecipient FirstName&" " &LastName , Email
if Mailer.SendMail then
mailSent = True
else
' Message send failure
mailSent = False
end if
Set Mailer = Nothing
------------------------------------------------------------------------------------------------------
And I want it to go CDONTS I would make it:
-----------------------------------------------------------------------------------------------------
Set rsPass = dbquery(passRet,con)
if not rsPass.eof then
Password = rsPass(0)
Email = rsPass(1)
FromName = " Administrator"
FromEmail = Application(" AdminEmail" )
Subject = " Your Password."
BodyText = " Dear " &FirstName&" " &LastName&" ," &vbcrlf&vbcrlf&" your password is " &Password&" ." &vbcrlf&" Thankyou for using our services " &vbcrlf&vbcrlf&" Regards," &vbcrlf&" Administrator."
Set Mailer = CreateObject(" CDONTS.NewMail" )
Mailer.From = FromName
Mailer.MailFormat = 0 Mailer.Subject = Subject
Mailer.Body = BodyText
Mailer.To FirstName&" " &LastName , Email
if Mailer.Send then
mailSent = True
else
' Message send failure
mailSent = False
end if
Set Mailer = Nothing
| |
|
 New Messages |
 No New Messages |
 Hot Topic w/ New Messages |
 Hot Topic w/o New Messages |
 Locked w/ New Messages |
 Locked w/o New Messages |
|
Post New Thread
Reply to Message
Post New Poll
Submit Vote
Delete My Own Post
Delete My Own Thread
Rate Posts
|
|
|
Printable Version 
k¥ 