Tæller til nyhedsbrevscript
jeg har lavet et script til at udsende nyhedsbreve som virker fint, men det holder ikke længere fordi der er for mange tilmeldt. jeg vil gerne opdele afsendelsen i mindre stykker og skal derfor implementere en tæller der kan holde styr på hvor mange der er sendt - men jeg aner ikke hvordan (har skrevet lidt noter i koden hvor jeg tror tælleren skal være). jeg ønsker ikke bare at sætte scripttimeout op.<%@LANGUAGE="VBSCRIPT"%>
<%Server.Scripttimeout=1000%>
<!--#include file="../../Connections/scandlines.asp" -->
<%
Dim rsNyhedsbrev
Dim rsNyhedsbrev_numRows
Set rsNyhedsbrev = Server.CreateObject("ADODB.Recordset")
rsNyhedsbrev.ActiveConnection = MM_scandlines_STRING
rsNyhedsbrev.Source = "SELECT * FROM BorderShopNyhedsbrev ORDER BY IDnyhedsbreve DESC"
rsNyhedsbrev.CursorType = 0
rsNyhedsbrev.CursorLocation = 2
rsNyhedsbrev.LockType = 1
rsNyhedsbrev.Open()
rsNyhedsbrev_numRows = 0
Overskrift = (rsNyhedsbrev.Fields.Item("Overskrift").Value)
Tekst = (rsNyhedsbrev.Fields.Item("Tekst").Value)
Dim rsEmails
Dim rsEmails_numRows
Set rsEmails = Server.CreateObject("ADODB.Recordset")
rsEmails.ActiveConnection = MM_scandlines_STRING
rsEmails.Source = "SELECT * FROM test"
rsEmails.CursorType = 0
rsEmails.CursorLocation = 2
rsEmails.LockType = 1
rsEmails.Open()
rsEmails_numRows = 0
on error resume next
Do While Not rsEmails.EOF
' Send emails fra IDbordershop=Request.QueryString("Antal")+1
' så den tager værdien Antal fra URL og fortsætter fra den næste modtager på listen
strEmail = (rsEmails.Fields.Item("Email").Value)
strNavn = (rsEmails.Fields.Item("Fornavn").Value)
Set JMail = Server.CreateObject("JMail.SMTPMail")
JMail.ServerAddress = "websmtp.border-wines.dk;websmtp.border-wines.dk;mailrelay.andersenit.dk"
JMail.Sender = "admin@border-wines.dk"
JMail.SenderName = "Border Shop"
JMail.ContentType = "text/html"
JMail.Subject = Overskrift
JMail.AddRecipient strEmail
JMail.Priority = 3
JMail.AddHeader "Originating-IP", Request.ServerVariables("REMOTE_ADDR")
Jmail.Body = replace(Tekst, "ModtagerensNavn", strNavn)
' Denne kode er med så man hele tiden kan følge med i hvor langt den er kommet i forhold til modtagerne
Response.write "E-mail sendt til " & strEmail & " " & strNavn & "<br>"
JMail.Execute
Set JMail = Nothing
rsEmails.MoveNext
Loop
' When taeller=Request.QueryString("Antal")+10 Then Response.Redirect("oversigt_nyhedsbrev.asp?Antal=")
rsEmails.close
Set rsEmails = Nothing
rsNyhedsbrev.Close()
Set rsNyhedsbrev = Nothing
'Når du har sendt til alle modtagerne skal du gå til denne fil
'Response.Redirect("oversigt_nyhedsbrev.asp")
%>
<html>
<head>
<title>Test</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body>
<img src="../../images/admin/precent.gif" width="100" height="15">
</body>
</html>
