Dylan, You may want to use the SMTPLog property to help further debug your problem. Just make sure the user that the page is running under (i.e. IUSER account if anonymous) has priv's to manipulate it the logfile you set it too. You may also want to check the remote server to see what the total number of messages that can be sent per connection is set to.
I know that doesn't answer your question, but it will hopefully help you troubleshoot a little more. --Ben ----- Original Message ----- From: "Dylan Barber" <[EMAIL PROTECTED]> To: "ActiveServerPages" <[EMAIL PROTECTED]> Sent: Friday, November 01, 2002 10:08 AM Subject: RE: aspmail to send multiple emails 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.unsub%% --- You are currently subscribed to activeserverpages as: [email protected] To unsubscribe send a blank email to [EMAIL PROTECTED]
