04. marts 2005 - 17:57Der er
3 kommentarer og 1 løsning
Pause ved afsendelse af mails
Hejsa
Jeg udsender et nyhedsbrev hvor jeg bruger jmail, men vil gerne have at der holdes pause når der er sendt f.eks. 25... Når der afsendes listes alle mailadr på skærmen her kunne jeg godt tænke mig en tæller så jeg kan se hvor mange mails der er afsendt...
Håber der er som kan være mig behjælpelig, min kode er:
<% 'Åbner connection til databasen Set conn = Server.CreateObject("ADODB.Connection") Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("..\..\database\mail.mdb")
Set rs = Server.CreateObject ("ADODB.Recordset") sql = "SELECT * FROM test" Set rs = Conn.Execute(sql)
Do While Not rs.EOF
Dim text13
Session.Timeout = 40 Server.ScriptTimeout = 1800
Set JMail = Server.CreateObject("JMail.smtpMail") JMail.ContentType = "text/html" JMail.ServerAddress = ("smtp.unoeuro.com") JMail.Sender = "info@xx.dk" JMail.Subject = "test af jmail" JMail.AddRecipient rs("Email")
if counter mod 25 = 0 then ' hvis løkken har kørt 25 gange pause(5) end if counter = counter +1 response.write counter response.flush rs.movenext loop Set Jmail = nothing
Sub Pause(intSeconds) startTime = Time() Do Until DateDiff("s", startTime, Time(), 0, 0) > intSeconds Loop End Sub %>
At lade et ASP script stå og trille tommelfingere er noget der suger performance. Man bør seriøst overveje hvorfor, og eventuelt finde andre mulgiheder. Specielt hvis det er mange mails, og det er en hostet løsning. Så risikere man at ens ISP bliver sur, når den fælles kværn begynder at lyse rødt...
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.
