I am trying to use aspmail on a remote webserver and can not seem to get
this script to work anybody have any ideas?
if request.Form("send") = "y" then
server.ScriptTimeout = 500
bodytext = request.Form("newsletter")
Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
While ((Repeat1__numRows <> 0) AND (NOT Recordset1.EOF))
'replace **email** with the email address
bodysend =
replace(bodytext,"**email**",(Recordset1.Fields.Item("EMAIL").Value))
'Send the mail from here
Mailer.ClearAllRecipients
Mailer.ClearBodyText
Mailer.IgnoreRecipientErrors = True
Mailer.Timeout = 60
Mailer.FromName = "Codegalaxy.com Newsletter Staff"
Mailer.FromAddress= "[EMAIL PROTECTED]"
Mailer.RemoteHost = "**.***.***.**"
Mailer.AddRecipient "Newsletter Reciepient",
(Recordset1.Fields.Item("EMAIL").Value)
Mailer.Subject = "Codegalaxy.com Newsletter (Volume "
& (Recordset2.Fields.Item("PublishedDate").Value) & ")"
Mailer.ContentType = "text/html"
Mailer.BodyText = bodysend
if Mailer.SendMail then
Response.Write "Message Sent to " &
(Recordset1.Fields.Item("EMAIL").Value) & "<br>"
Response.Flush()
else
Response.Write "Mail send failure. Error was " &
Mailer.Response & "<br>" & (Recordset1.Fields.Item("EMAIL").Value)
Response.Flush()
end if
'-------------------------------------
Repeat1__index=Repeat1__index+1
Repeat1__numRows=Repeat1__numRows-1
Recordset1.MoveNext()
Wend
Set Mailer=nothing
response.Redirect("index.asp")
end if
I used Dreamweaver to write the databse stuff but I think it is all good
__________________________________________________
Dylan Barber (CIW Professional, A+ Technician)
Programmer/Analyst
DPRA Inc.
phone (785) 539-3565 ext.1034
e-mail [EMAIL PROTECTED]
---
You are currently subscribed to activeserverpages as: [email protected]
To unsubscribe send a blank email to [EMAIL PROTECTED]
