Efter at have sidet hele natten og arbejdet fik jeg lavet lidt om i scriptet :-)
Nu er det muligt at se den reloade... Den skriver status undervejs. Fx.: Sender 12 af 400 mails.
Den henter også alt data der sendes fra en database.
Her er den færdige kode som virker perfekt :-)
<%
Response.Buffer = true
SendBrev = request("SendBrev")
if SendBrev = "" then
Response.redirect "Fejl.asp"
end if
strSQL = "SELECT * FROM nyhedsbrev WHERE id = " & SendBrev
set rs = Conn.execute(strSQL)
BrevId = RS("id")
BrevEmne = RS("Emne")
BrevIndhold = RS("Indhold")
BrevIndhold = replace(BrevIndhold,vbcrlf,"<br>")
BrevBrev = RS("Brev")
BrevBrev = replace(BrevBrev,vbcrlf,"<br>")
rs.close
idStart = request("id")
if idStart = "" then
idStart = 0
end if
strSQL = "SELECT * FROM bruger WHERE id > " & idStart & " AND nyhedsbrev = 'True' ORDER BY id;"
set rs = Conn.execute(strSQL)
AntalSendt = request("AntalSendt")
if AntalSendt = "" then
AntalSendt = 0
else
end if
on error resume next
EmailSend = 0
Do While (not rs.EOF) AND (EmailSend < 10)
EmailSend = EmailSend + 1
AntalSendt = AntalSendt + 1
strId = RS("id")
strFornavn = RS("fornavn")
strEfternavn = RS("efternavn")
strEmail = RS("email")
'Her begynder mail at blive lavet
Set jmail = Server.CreateObject("JMail.Message")
'Adresse der bliver sendt fra
jmail.From = "robot@bodykits.dk"
'Emne linjer
jmail.Subject = BrevEmne
jmail.Body = BrevEmne
'Henter modtagerens mail adresse og navn
jmail.AddRecipient ""&strEmail&"", ""&strFornavn&""
'Beskeden
jmail.HTMLBody = "<html><body><font face='Arial' size='2'>"
jmail.appendHTML "Hej " & strFornavn & " " & strEfternavn & ",<br><br>"
jmail.appendHTML "Bodykits nyhedsbrev nr. 1<br><br>"
jmail.appendHTML "I dette nyhedsbrev kan du læse om følgende:<br><br>"
jmail.appendHTML BrevIndhold
jmail.appendHTML "<br><br>"
jmail.appendHTML BrevBrev
jmail.appendHTML "</font></body></html>"
'Hvis du ikke kan læse HTML
jmail.Body = "Denne mail indeholder tegn som du ikke kan se her."
jmail.appendText "Denne mail indeholder tegn som du ikke kan se her."
jmail.Send( "mail.bodykits.dk" )
rs.MoveNext
Loop
if (NOT rs.EOF) AND (EmailSend = 10) then
'Manul reload
'Response.write "<a HREF='test.asp?id="
'Response.write strId
'Response.write "&AntalSendt="
'Response.write AntalSendt
'Response.write "&SendBrev="
'Response.write BrevId
'Response.write "'>Send de næste 10 mails</a><br>"
'Automatisk reload med pause
Response.write "<meta Http-equiv='Refresh' Content='4; Url=test.asp?id="
Response.write strId
Response.write "&AntalSendt="
Response.write AntalSendt
Response.write "&SendBrev="
Response.write BrevId
Response.write "'>"
end if
rs.close
Set rs2 = Conn.Execute("SELECT COUNT(id) AS Antal From bruger WHERE nyhedsbrev = 'True'")
str2AntalModtagerIalt = rs2("antal")
rs2.Close
Response.write "<table border='0' width='100%' height='100%' cellspacing='0' cellpadding='0'>"
Response.write "<tr>"
Response.write "<td width='100%'><p align='center'>"
Response.write "<font face='Arial' size='2'><b><br>"
Response.write AntalSendt
Response.write " af "
Response.write str2AntalModtagerIalt
Response.write "</b></font>"
If str2AntalModtagerIalt > 0 Then ' Calculate the percentage
Procent = Int((AntalSendt / str2AntalModtagerIalt) * 100)
Else
Procent = 0
End If
Response.write "</p>"
Response.write "<div align='center'><center><table border='1' width='300' cellspacing='0' cellpadding='0' height='6' bordercolor='Green'>"
Response.write "<tr>"
Response.write "<td width='100%' height='6'><table border='0' width='"
Response.write Procent
Response.write "%' height='4' bgcolor='#008000' cellspacing='0' cellpadding='0'>"
Response.write "<tr>"
Response.write "<td width='100%'><font face='Arial' size='1' color='#FFFFFF'><center>"
Response.write Procent
Response.write "%"
Response.write "</center></font></td>"
Response.write "</tr>"
Response.write "</table>"
Response.write "</td>"
Response.write "</tr>"
Response.write "</table>"
Response.write "</center></div><p align='center'>"
if FormatDateTime(AntalSendt,vbShortDate) = FormatDateTime(str2AntalModtagerIalt,vbShortDate) then
Response.write "<font face='Arial' size='2' color='Green'><b>Alle mails er sendt !!</b></font>"
else
Response.write "<font face='Arial' size='2' color='Red'><b>Sender... Vent venligst! - Må ikke stoppes !!!</b></font>"
end if
Response.write "</tr>"
Response.write "</table>"
%>
