I had that and it seemed to do the same thing as it does now -------More info everyother of the email addresses timesout I have tried to change the sort order and even added a couple of dummy ones but no matter what it is every other one times out and the others seem to send
__________________________________________________ Dylan Barber (CIW Professional, A+ Technician) Programmer/Analyst DPRA Inc. phone (785) 539-3565 ext.1034 e-mail [EMAIL PROTECTED] -----Original Message----- From: Sam Thompson [mailto:decoder@;bandalize.com] Sent: Friday, November 01, 2002 10:00 AM To: ActiveServerPages Subject: Re: aspmail to send multiple emails create and destroy the SMTPsvg.Mailer object inside the loop. HTH Sam ----- Original Message ----- From: "Dylan Barber" <[EMAIL PROTECTED]> To: "ActiveServerPages" <[EMAIL PROTECTED]> Sent: Friday, November 01, 2002 3:52 PM Subject: aspmail to send multiple emails 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.unsub%% --- You are currently subscribed to activeserverpages as: [EMAIL PROTECTED] To unsubscribe send a blank email to %%email.unsub%% --- You are currently subscribed to activeserverpages as: [email protected] To unsubscribe send a blank email to [EMAIL PROTECTED]
