Kan ikke gennemskue resultatet efter loop
Jeg har en email funktion og min test skulle resultere i at der bliver sendt 2 email. Ligenu skriver jeg bare resultatet ud på skærmen i stedet for at sende. Men jeg kan simpelhen ikke forstår hvorfor det står der 3 gange, men min tæller siger at det kun bliver sendt til 2 brugere (som er det rigtige). Jeg har stirret mig blind på det tror jeg.<!--#include file="db.inc"-->
<%
aktiv = "nej"
ID = Request.QueryString("id")
if session("brugernavn")="" then
nubruger=Request.Cookies("LoginInfo")("Brugernavn")
else
nubruger=session("brugernavn")
End If
strSQL = "SELECT email, brugernavn as tilbrugernavn FROM bruger WHERE send_email=true AND brugernavn<>'"& nubruger & "'"
set rs = Conn.Execute(strSQL)
strSQL1 = "SELECT forfatter, overskrift FROM blog WHERE id="& id
set rs1 = Conn.Execute(strSQL1)
'num variablen skal tælle hvor mange brugere vi sender til
num = 0
while not rs.eof
if rs("email") <> "" then
Set JMail = Server.CreateObject("JMail.SMTPMail")
JMail.ServerAddress = "localhost"
JMail.ContentType = "text/html"
JMail.Charset = "iso-8859-1"
JMail.ContentTransferEncoding = "8bit"
JMail.Sender = "robot@familiencaroe.dk"
JMail.Subject = "Der er oprettet en nyhed på familiencaroe.dk"
JMail.AddRecipient rs("email")
JMail.HTMLBody = "Hej "& rs("tilbrugernavn") & "<br><br>Der er oprettet en nyhed af <b><i>"& rs1("forfatter") & "</i></b> med overskriften <b><i>"& rs1("overskrift") & "</i></b><br>Log på <a
href=""http://www.familiencaroe.dk/default.asp?sitepage=blogview_indlag&id="&id&""">http://www.familiencaroe.dk</a> og læs nyheden.<br><br>Mvh Kristian"
JMail.Priority = 3
JMail.Silent = True
JMail.Logging = True
If aktiv="ja" then
JMail.Execute
End if
sWrite=sWrite&"<pre>" & JMail.Log & "</pre>"
sWrite=sWrite&rs("email")
sWrite=sWrite&"<br>"
sWrite=sWrite&JMail.ServerAddress
sWrite=sWrite&"<br>"
sWrite=sWrite&jmail.htmlbody
sWrite=sWrite&"<br>"
Response.Write sWrite
Conn.Execute("INSERT INTO [log] ([log],logtype) VALUES ('"&Replace(sWrite,"'","''")&"','send_email')")
set JMail = nothing
else
End If
rs.MoveNext
num = num + 1 ' tilføjer 1 til varariablen for hvert gennemløb
Wend
Response.write "<span class='text' align='center'>Nyhedsmailen blev sendt til <b>" & num & " </b> brugere<br>"
'Reset server objects
Conn.Close
Set Conn = Nothing
Set rs = Nothing
Set rs1 = Nothing
'Response.Redirect "default.asp?sitepage=blogview_indlag&id=" & id
%>
Resultat
kri@privat.dk
localhost
Hej Kristian
Der er oprettet en nyhed af Test med overskriften Det var da
Log på http://www.familiencaroe.dk og læs nyheden.
Mvh Kristian
kri@privat.dk
localhost
Hej Kristian
Der er oprettet en nyhed af Test med overskriften Det var da
Log på http://www.familiencaroe.dk og læs nyheden.
Mvh Kristian
jet@mail.dk
localhost
Hej Niels
Der er oprettet en nyhed af Test med overskriften Det var da
Log på http://www.familiencaroe.dk og læs nyheden.
Mvh Kristian
Nyhedsmailen blev sendt til 2 brugere