[On on, 26 maj 2004 18:27:47 GMT, "Bjarne" wrote (link:
<news:40b4e1a3$0$527$edfadb0f@dread14.news.tele.dk>)]:
> Hej NG
>
> Jeg har følgende kode der udsender et nyhedsbrev til dem der står
> i min database "db.mdb". Det virker perfekt bortset fra at jeg får
> nogle meddelelser tilbage bla. fra Orange at de ikke godtager
> spam, så jeg tænker at det er fordi jeg udsender 20 - 30 email's
> lige efter hinanden.
>
> Hvis dette er årsagen til at bla. Orange tolker mine mail's som
> spam, kunne man så ikke indsætte en form for "delay" i scriptet så
> der ville gå ca. 5 sekunder mellem hver email ? men hvor og
> hvordan ved jeg ikke. Håber I kan hjælpe mig.
>
> Vh Bjarne
>
> Her følger scriptet :
>
> <%
Dim A ' Grund: Se nedenfor...
> Set Conn = Server.CreateObject("ADODB.Connection")
> Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" &
> Server.MapPath
> ("db.mdb") %>
>
> strSQL = "Select* from email"
> Set rs = Conn.Execute(strSQL)
>
> Do While Not rs.EOF
>
> strEmail = rs("email")
> strFornavn = rs("fornavn")
> strMellemnavn = rs("mellemnavn")
> strEfternavn = rs("efternavn")
>
> Dim JMail
> Set JMail = Server.CreateObject("JMail.SMTPMail")
> JMail.ContentType = "text/html"
> JMail.ServerAddress = "127.0.0.1"
> JMail.Priority = 3
> JMail.Sender = "nyhedsbrev@birkealleen.dk"
> JMail.AddRecipientEx "" & strEmail, strFornavn & " " &
> StrMellemnavn & " "
> & strEfternavn
> JMail.Subject = "Nyhedsbrev fra Birkealleen"
> JMail.Body = JMail.Body & "<BODY bgColor=#ffffcc>"
> JMail.Body = JMail.Body & "<p align=center>" & strTekst1 & "</p>"
> JMail.Body = JMail.Body & "<p align=center>Besked fra webmaster
> på
> Birkealleen</p>"
> JMail.Body = JMail.Body & "<p align=center>Hej " & strFornavn & "
> " &
> strMellemnavn & " " & strEfternavn & "</p>"
> JMail.Body = JMail.Body & "<p align=center>Hjemmesiden er
> opdateret med
> følgende :</p>"
> JMail.Body = JMail.Body & "<p align=center>" & strTekst2 & "</p>"
> JMail.Body = JMail.Body & "<p align=center>" & strTekst3 & "</p>"
> JMail.Body = JMail.Body
> JMail.Execute
> Set JMail = Nothing
>
> rs.MoveNext
Lav noget i retning af
Do While Not a = 10000
a = a - 1
a = a + 1
Loop
> Loop
>
> Conn.Close
> %>
Dette vil få serveren til at fortage de beregniner 10000 gange mellem
hver afsendelse af mail.
Husk at gøre brugeren opmærksom på, at det kan tage noget tid, inden du
starter siden.
Og den løsning virker kun med en relativ lille DB, da de fleste servere
har en indbygget sikring mod sider, der tager for lang tid at generere.
Så kan du evt. dele den op, så den tager de første 100 mails, og så
redirecter du til den samme side med en querystring med ?a=100, og så
henter du den variabel i starten af siden.
--
Mikoangelo - webmaster of
http://harrypotter.lk-data.net
Scrambled email (ROT-13):
uneelcbggre [on] yx [hyphen] qngn [spot] qx