Problemer med nyhedsbrev udsendelse
Hej alle eksperter...Jeg har nogle problemer med udsendelsen af mit nyhedsbrev. Jeg snakkede så med mit webhotels-udbyder, wannafind, og de sagde at det var fordi jeg overbelastede serveren når jeg sendte 400 mails af sted på en gang... Så de sagde at jeg skulle lave min kode såden at den kun sendte 10 afsted og ventede så 2 sekunder også videre...
Her er min kode:
<!--#include file="dsn.asp"-->
<% Session.LCID = 1030
nyhedIDlist = Request.Form("nyhed")
if nyhedIDlist <> "" then
'Hendt de valgt nyheder ud:
Set NyhedRs = Conn.Execute("Select ID, Dato, Overskrift, Nyhed From Nyheder WHERE ID IN (" & nyhedIDlist & ") Order By Dato Desc")
While Not NyhedRs.EOF
Body = Body & vbCrlf & vbCrlf & "<font face=""verdana"" size=""4"">" & NyhedRs("Overskrift") & "</font>" & "<br></td></tr><tr><td height=""1"" bgcolor=""#CCCCCC""></td></tr><tr><td>" & vbCrlf & "<font face=""verdana"" size=""1"">(" & NyhedRs("Dato") & ")</font>" & "<br><font face=""verdana"" size=""2"">" & vbCrlf & Replace(left(NyhedRs("Nyhed"),300), vbCrLf, "<br>") & vbCrlf & "...<br><a face=""verdana"" href=""http://www.u-landsnyt.dk/nyheder.asp?ID=" & NyhedRs("ID") & """> læs mere ››</a></font><br><br>"
NyhedRs.MoveNext
Wend
End If
Server.ScriptTimeout = 1000000
Set RS = Server.CreateObject("ADODB.Recordset")
SQL = "SELECT Email FROM List"
RS.open SQL, conn
Do While Not RS.eof
Set mailObj = Server.CreateObject("SMTPsvg.Mailer")
mailObj.ContentType = "text/html"
mailObj.FromName = "u-landsnyt.dk"
mailObj.FromAddress= "robot@u-landsnyt.dk"
mailObj.RemoteHost = "mail6.wannafind.dk"
mailObj.Subject = "u-landsnyt.dk - ugentlig e-mail"
mailObj.BodyText = "<html>" & vbCrLf _
& "<head>" & vbCrLf _
& " <title>u-landsnyt.dk - ugentlig e-mail</title>" & vbCrLf _
& " <meta http-equiv=Content-Type content=""text/html; charset=iso-8859-1"">" & vbCrLf _
& " </head>" & vbCrLf _
& "<body bgcolor=""#FFFFFF"" text=""#000000"" leftmargin=""0"" topmargin=""0"" marginwidth=""0"" marginheight=""0"">" & vbCrLf _
& " <TABLE WIDTH=""550"" BORDER=""0"" CELLPADDING=""0"" align=""center"" CELLSPACING=""0"" bgcolor=""#FFFFFF"">" & vbCrLf _
& " <tr>" & vbCrLf _
& " <TD><img border=""0"" src=""http://www.u-landsnyt.dk/images/logonyheds.jpg"" alt=""u-landsnyt.dk"" width=""550"" height=""50""><br><br></td>" & vbCrLf _
& " </tr><tr><td height=""1"" bgcolor=""#CCCCCC""></td></tr>" & vbCrLf _
& " </tr><tr><td><font face=""verdana"" size=""2"">" & Request.Form(replace("Body"),vbCrLf,"<br>") & </font></td></tr>" & vbCrLf _
& " <tr><td height=""1"" bgcolor=""#CCCCCC""></td></tr>" & vbCrLf _
& " <tr><td><br><font face=""verdana"" size=""2"">" & Body & "</font>" & vbCrLf _
& " </td></tr>" & vbCrLf _
& " <tr><td height=""1"" bgcolor=""#CCCCCC""></td></tr>" & vbCrLf _
& " <tr><td><br><font face=""verdana"" size=""2"">Du kan læse endnu flere u-landsnyheder på <a face=""verdana"" href=""www.u-landsnyt.dk</a><br><br>Hvis" target="_blank">http://www.u-landsnyt.dk"">www.u-landsnyt.dk</a><br><br>Hvis du ikke længere vil modtage den ugentlige e-mail fra u-landsnyt.dk, skal du gå til adressen <a face=""verdana"" href=""www.u-landsnyt.dk</a>" target="_blank">http://www.u-landsnyt.dk"">www.u-landsnyt.dk</a>, hvor du let kan afmelde e-mailen i boxen til venstre.<br><br>Har du spørgsmål eller kommentarer til u-landsnyt.dk, så send venligst en e-mail til <a face=""verdana"" href=""mailto:jessoe@u-landsnyt.dk"">jessoe@u-landsnyt.dk</a><br><br>Med venlig hilsen<br><br>u-landsnyt.dk<br></font>" & vbCrLf _
& " </td></tr>" & vbCrLf _
& " <tr><td height=""1"" bgcolor=""#CCCCCC""></td></tr>" & vbCrLf _
& " </table>" & vbCrLf _
& "</body>" & vbCrLf _
& "</html>" & vbCrLf
mailObj.AddRecipient RS("Email"),RS("Email")
mailObj.SendMail
RS.movenext
Loop
%>
På for hånd tak...
/Jens
