Scriptdelen här nedan gör så att det skickas ut 2 meddelanden/mail per utskick till varje medlem men det ska bara vara 1, är det någon som kan se varför?


<!--#include file="MyConn.asp"-->
<%Set rsAdmin = Server.CreateObject("ADODB.RecordSet")
strSQL = "SELECT * FROM Admin"
rsAdmin.Open strSQL, myConn, 1, 3%>
<meta http-equiv="refresh" content="60;url=check_mail.asp">
<%Set Rst = Server.CreateObject("ADODB.Connection")
Rst.Open "DRIVER={Microsoft Access Driver (*.mdb)}; " & MyConn
Sql = "Select count(*) as Found from Mails where Read=False AND Modtager='"&Session("Brugernavn")&"'"
Set Record = Rst.Execute(Sql)
Ialt = Record("found")

IF Ialt <> 0 THEN%>
<script language="Javascript">
<!--
pop1=window.open("newmail.asp","pop2",
"width=250, height=60, toolbar=no, menubar=no, scrollbars=no, resizable=no, location=no, directories=no, status=no");
-->
</script>
<%end if

if session("brugernavn")<>"" then
Set rs = Server.CreateObject("ADODB.RecordSet")
strSQL = "SELECT * FROM Profiler where Brugernavn='"&session("Brugernavn")&"'"
rs.Open strSQL, myConn, 1, 3

rs.update
rs("SidstSet") = Now()
rs("OnlineTid") = rs("OnlineTid")+1
rs("OnlineTidIalt") = rs("OnlineTidIalt")+1
rs.update

if rs("OnlineTid") = 15 then
rs.update
rs("Points") = rs("Points")+1
rs("OnlineTid") = 0
rs.update
end if

if rs("Points") = 25 then
rs.update
rs("Rang") = "Jätte Singel"
rs.update

Set JMail = Server.CreateObject("JMail.SMTPMail")
JMail.ServerAddress = rsAdmin("mailserver")
JMail.Sender = rsAdmin("mailrobot")
JMail.Subject = "Du har modtaget en mail"
JMail.AddRecipient rs("Email")
JMail.HTMLBody = "Hej "& rs("brugernavn") &", Där finns ett mail till dig på "&rsAdmin("Title")&".. Du måste logga in för att läsa ditt nya mail.."

JMail.Body ="Hej "& rs("brugernavn") &", Där finns ett mail till dig på "&rsAdmin("Title")&".. Du måste logga in för att läsa ditt nya mail.."
' 1 - highest priority (Urgent)
' 3 - normal
' 5 - lowest

JMail.Priority = 2

JMail.Execute
set JMail = nothing

Set rsM = Server.CreateObject("ADODB.RecordSet")
strSQL = "SELECT * FROM Mails"
rsM.Open strSQL, myConn, 1, 3

rsM.addnew
rsM("Modtager") = rs("Brugernavn")
rsM("Afsender") = "Admin"
rsM("IP") = "127.0.0.1"
rsM("Emne") = "Grattis"
rsM("Indhold") = "Hej "&rs("Brugernavn")&",<br>Du har stigit i rang, du er nu "&rs("Rang")&"..<br>Mvh<br>Administratoren.."
rsM.update
end if
if rs("Points") = 50 then
rs.update
rs("Rang") = "Kör enkelspel"
rs.update

Set JMail = Server.CreateObject("JMail.SMTPMail")
JMail.ServerAddress = rsAdmin("mailserver")
JMail.Sender = rsAdmin("mailrobot")
JMail.Subject = "Du har modtaget en mail"
JMail.AddRecipient rs("Email")
JMail.HTMLBody = "Hej "& rs("brugernavn") &", Där finns ett mail till dig på "&rsAdmin("Title")&".. Du måste logga in för att läsa ditt nya mail.."

JMail.Body ="Hej "& rs("brugernavn") &", Där finns ett mail till dig på "&rsAdmin("Title")&".. Du måste logga in för att läsa ditt nya mail.."
' 1 - highest priority (Urgent)
' 3 - normal
' 5 - lowest

JMail.Priority = 2

JMail.Execute
set JMail = nothing

Set rsM = Server.CreateObject("ADODB.RecordSet")
strSQL = "SELECT * FROM Mails"
rsM.Open strSQL, myConn, 1, 3

rsM.addnew
rsM("Modtager") = rs("Brugernavn")
rsM("Afsender") = "Admin"
rsM("IP") = "127.0.0.1"
rsM("Emne") = "Grattis"
rsM("Indhold") = "Hej "&rs("Brugernavn")&",<br>Du har stigit i rang, du är nu "&rs("Rang")&"..<br>Mvh<br>Administratoren.."
rsM.update
end if
if rs("Points") = 100 then
rs.update
rs("Rang") = "enmanstillstånd "
rs.update

Set JMail = Server.CreateObject("JMail.SMTPMail")
JMail.ServerAddress = rsAdmin("mailserver")
JMail.Sender = rsAdmin("mailrobot")
JMail.Subject = "Du har modtaget en mail"
JMail.AddRecipient rs("Email")
JMail.HTMLBody = "Hej "& rs("brugernavn") &", Där finns ett mail til dig på "&rsAdmin("Title")&".. Du måste logga in för att läsa ditt nya mail.."

JMail.Body ="Hej "& rs("brugernavn") &", Där finns ett mail till dig på "&rsAdmin("Title")&".. Du måste logga in för att läsa ditt nya mail.."
' 1 - highest priority (Urgent)
' 3 - normal
' 5 - lowest

JMail.Priority = 2

JMail.Execute
set JMail = nothing

Set rsM = Server.CreateObject("ADODB.RecordSet")
strSQL = "SELECT * FROM Mails"
rsM.Open strSQL, myConn, 1, 3

rsM.addnew
rsM("Modtager") = rs("Brugernavn")
rsM("Afsender") = "Admin"
rsM("IP") = "127.0.0.1"
rsM("Emne") = "Grattis"
rsM("Indhold") = "Hej "&rs("Brugernavn")&",<br>Du stigit i rang, du är nu "&rs("Rang")&"..<br>Mvh<br>Administratoren.."
rsM.update
end if
if rs("Points") = 125 then
rs.update
rs("Rang") = "jag har inte sett Amor "
rs.update

Set JMail = Server.CreateObject("JMail.SMTPMail")
JMail.ServerAddress = rsAdmin("mailserver")
JMail.Sender = rsAdmin("mailrobot")
JMail.Subject = "Du har modtaget en mail"
JMail.AddRecipient rs("Email")
JMail.HTMLBody = "Hej "& rs("brugernavn") &", Där finns ett mail til dig på "&rsAdmin("Title")&".. Du måste logga in för att läsa ditt nya mail.."

JMail.Body ="Hej "& rs("brugernavn") &", Där finns ett mail til dig på "&rsAdmin("Title")&".. Du msåte logga in för att läsa ditt nya mail.."
' 1 - highest priority (Urgent)
' 3 - normal
' 5 - lowest

JMail.Priority = 2

JMail.Execute
set JMail = nothing

Set rsM = Server.CreateObject("ADODB.RecordSet")
strSQL = "SELECT * FROM Mails"
rsM.Open strSQL, myConn, 1, 3

rsM.addnew
rsM("Modtager") = rs("Brugernavn")
rsM("Afsender") = "Admin"
rsM("IP") = "127.0.0.1"
rsM("Emne") = "Grattis"
rsM("Indhold") = "Hej "&rs("Brugernavn")&",<br>Du har stigit i rang, du är nu "&rs("Rang")&"..<br>Mvh<br>Administratoren.."
rsM.update
end if
if rs("Points") = 150 then
rs.update
rs("Rang") = "Vill mingla"
rs.update

Set JMail = Server.CreateObject("JMail.SMTPMail")
JMail.ServerAddress = rsAdmin("mailserver")
JMail.Sender = rsAdmin("mailrobot")
JMail.Subject = "Du har modtaget en mail"
JMail.AddRecipient rs("Email")
JMail.HTMLBody = "Hej "& rs("brugernavn") &", Där finns ett mail til dig på "&rsAdmin("Title")&".. Du måste logga in för att läsa ditt nya mail.."

JMail.Body ="Hej "& rs("brugernavn") &", Där finns ett mail til dig på "&rsAdmin("Title")&".. Du måste logga in för att läsa ditt nya mail.."
' 1 - highest priority (Urgent)
' 3 - normal
' 5 - lowest

JMail.Priority = 2

JMail.Execute
set JMail = nothing

Set rsM = Server.CreateObject("ADODB.RecordSet")
strSQL = "SELECT * FROM Mails"
rsM.Open strSQL, myConn, 1, 3

rsM.addnew
rsM("Modtager") = rs("Brugernavn")
rsM("Afsender") = "Admin"
rsM("IP") = "127.0.0.1"
rsM("Emne") = "Grattis"
rsM("Indhold") = "Hej "&rs("Brugernavn")&",<br>Du har stigit i rang, du är nu "&rs("Rang")&"..<br>Mvh<br>Administratoren.."
rsM.update
end if
if rs("Points") = 175 then
rs.update
rs("Rang") = "Börjar spana"
rs.update

Set JMail = Server.CreateObject("JMail.SMTPMail")
JMail.ServerAddress = rsAdmin("mailserver")
JMail.Sender = rsAdmin("mailrobot")
JMail.Subject = "Du har modtaget en mail"
JMail.AddRecipient rs("Email")
JMail.HTMLBody = "Hej "& rs("brugernavn") &", Där finns ett mail till dig på "&rsAdmin("Title")&".. Du måste logga in för att läsa ditt nya mail.."

JMail.Body ="Hej "& rs("brugernavn") &", Där finns ett mail till dig på "&rsAdmin("Title")&".. Du måste logga in för att läsa ditt nya mail.."
' 1 - highest priority (Urgent)
' 3 - normal
' 5 - lowest

JMail.Priority = 2

JMail.Execute
set JMail = nothing

Set rsM = Server.CreateObject("ADODB.RecordSet")
strSQL = "SELECT * FROM Mails"
rsM.Open strSQL, myConn, 1, 3

rsM.addnew
rsM("Modtager") = rs("Brugernavn")
rsM("Afsender") = "Admin"
rsM("IP") = "127.0.0.1"
rsM("Emne") = "Grattis"
rsM("Indhold") = "Hej "&rs("Brugernavn")&",<br>Du har stigit i rang, du är nu "&rs("Rang")&"..<br>Mvh<br>Administratoren.."
rsM.update
end if
if rs("Points") = 200 then
rs.update
rs("Rang") = "Spanar fortfarande"
rs.update

Set JMail = Server.CreateObject("JMail.SMTPMail")
JMail.ServerAddress = rsAdmin("mailserver")
JMail.Sender = rsAdmin("mailrobot")
JMail.Subject = "Du har modtaget en mail"
JMail.AddRecipient rs("Email")
JMail.HTMLBody = "Hej "& rs("brugernavn") &", Där finns ett mail till dig på "&rsAdmin("Title")&".. Du måste logga in för att läsa ditt nya mail.."

JMail.Body ="Hej "& rs("brugernavn") &", Där finns ett mail till dig på "&rsAdmin("Title")&".. Du måste logga in för att läsa ditt nya mail.."
' 1 - highest priority (Urgent)
' 3 - normal
' 5 - lowest

JMail.Priority = 2

JMail.Execute
set JMail = nothing

Set rsM = Server.CreateObject("ADODB.RecordSet")
strSQL = "SELECT * FROM Mails"
rsM.Open strSQL, myConn, 1, 3

rsM.addnew
rsM("Modtager") = rs("Brugernavn")
rsM("Afsender") = "Admin"
rsM("IP") = "127.0.0.1"
rsM("Emne") = "Grattis"
rsM("Indhold") = "Hej "&rs("Brugernavn")&",<br>Du har stigit i rang, du är nu "&rs("Rang")&"..<br>Mvh<br>Administratoren.."
rsM.update
end if
if rs("Points") = 225 then
rs.update
rs("Rang") = "Spanar vilt"
rs.update

Set JMail = Server.CreateObject("JMail.SMTPMail")
JMail.ServerAddress = rsAdmin("mailserver")
JMail.Sender = rsAdmin("mailrobot")
JMail.Subject = "Du har modtaget en mail"
JMail.AddRecipient rs("Email")
JMail.HTMLBody = "Hej "& rs("brugernavn") &", Där finns ett mail til dig på "&rsAdmin("Title")&".. Du måste logga in för att läsa ditt nya mail.."

JMail.Body ="Hej "& rs("brugernavn") &", Där finns ett mail til dig på "&rsAdmin("Title")&".. Du måste logga in för att läsa ditt nya mail.."
' 1 - highest priority (Urgent)
' 3 - normal
' 5 - lowest

JMail.Priority = 2

JMail.Execute
set JMail = nothing

Set rsM = Server.CreateObject("ADODB.RecordSet")
strSQL = "SELECT * FROM Mails"
rsM.Open strSQL, myConn, 1, 3

rsM.addnew
rsM("Modtager") = rs("Brugernavn")
rsM("Afsender") = "Admin"
rsM("IP") = "127.0.0.1"
rsM("Emne") = "grattis"
rsM("Indhold") = "Hej "&rs("Brugernavn")&",<br>Du har stigit i rang, du är nu "&rs("Rang")&"..<br>Mvh<br>Administratoren.."
rsM.update
end if
if rs("Points") = 250 then
rs.update
rs("Rang") = "Visionär"
rs.update

Set JMail = Server.CreateObject("JMail.SMTPMail")
JMail.ServerAddress = rsAdmin("mailserver")
JMail.Sender = rsAdmin("mailrobot")
JMail.Subject = "Du har modtaget en mail"
JMail.AddRecipient rs("Email")
JMail.HTMLBody = "Hej "& rs("brugernavn") &", Där finns ett mail till dig på "&rsAdmin("Title")&".. Du måste logga in för att läsa ditt nya mail.."

JMail.Body ="Hej "& rs("brugernavn") &", Där finns ett mail till dig på "&rsAdmin("Title")&".. Du måste logga in för att läsa ditt nya mail.."
' 1 - highest priority (Urgent)
' 3 - normal
' 5 - lowest

JMail.Priority = 2

JMail.Execute
set JMail = nothing

Set rsM = Server.CreateObject("ADODB.RecordSet")
strSQL = "SELECT * FROM Mails"
rsM.Open strSQL, myConn, 1, 3

rsM.addnew
rsM("Modtager") = rs("Brugernavn")
rsM("Afsender") = "Admin"
rsM("IP") = "127.0.0.1"
rsM("Emne") = "grattis"
rsM("Indhold") = "Hej "&rs("Brugernavn")&",<br>Du har stigit i rang, du er nu "&rs("Rang")&"..<br>Mvh<br>Administratoren.."
rsM.update
end if
if rs("Points") = 275 then
rs.update
rs("Rang") = "Drömmare"
rs.update

Set JMail = Server.CreateObject("JMail.SMTPMail")
JMail.ServerAddress = rsAdmin("mailserver")
JMail.Sender = rsAdmin("mailrobot")
JMail.Subject = "Du har modtaget en mail"
JMail.AddRecipient rs("Email")
JMail.HTMLBody = "Hej "& rs("brugernavn") &", Där finns ett mail till dig på "&rsAdmin("Title")&".. Du måste logga in för att läsa ditt nya mail.."

JMail.Body ="Hej "& rs("brugernavn") &", Där finns ett mail till dig på "&rsAdmin("Title")&".. Du måste logga in förr att läsa ditt nya mail.."
' 1 - highest priority (Urgent)
' 3 - normal
' 5 - lowest

JMail.Priority = 2

JMail.Execute
set JMail = nothing

Set rsM = Server.CreateObject("ADODB.RecordSet")
strSQL = "SELECT * FROM Mails"
rsM.Open strSQL, myConn, 1, 3

rsM.addnew
rsM("Modtager") = rs("Brugernavn")
rsM("Afsender") = "Admin"
rsM("IP") = "127.0.0.1"
rsM("Emne") = "Grattis"
rsM("Indhold") = "Hej "&rs("Brugernavn")&",<br>Du har stigit i rang, du är nu "&rs("Rang")&"..<br>Mvh<br>Administratoren.."
rsM.update
end if
if rs("Points") = 300 then
rs.update
rs("Rang") = "Kanske kär"
rs.update

Set JMail = Server.CreateObject("JMail.SMTPMail")
JMail.ServerAddress = rsAdmin("mailserver")
JMail.Sender = rsAdmin("mailrobot")
JMail.Subject = "Du har modtaget en mail"
JMail.AddRecipient rs("Email")
JMail.HTMLBody = "Hej "& rs("brugernavn") &", Där finns ett mail till dig på "&rsAdmin("Title")&".. Du måste logga in för att läsa ditt nya mail.."

JMail.Body ="Hej "& rs("brugernavn") &", Där finns ett mail till dig på "&rsAdmin("Title")&".. Du måste logga in för att läsa ditt nya mail.."
' 1 - highest priority (Urgent)
' 3 - normal
' 5 - lowest

JMail.Priority = 2

JMail.Execute
set JMail = nothing

Set rsM = Server.CreateObject("ADODB.RecordSet")
strSQL = "SELECT * FROM Mails"
rsM.Open strSQL, myConn, 1, 3

rsM.addnew
rsM("Modtager") = rs("Brugernavn")
rsM("Afsender") = "Admin"
rsM("IP") = "127.0.0.1"
rsM("Emne") = "Grattis"
rsM("Indhold") = "Hej "&rs("Brugernavn")&",<br>Du har stigit i rang, du är nu "&rs("Rang")&"..<br>Mvh<br>Administratoren.."
rsM.update
end if
if rs("Points") = 325 then
rs.update
rs("Rang") = "Kanske dejtar"
rs.update

Set JMail = Server.CreateObject("JMail.SMTPMail")
JMail.ServerAddress = rsAdmin("mailserver")
JMail.Sender = rsAdmin("mailrobot")
JMail.Subject = "Du har modtaget en mail"
JMail.AddRecipient rs("Email")
JMail.HTMLBody = "Hej "& rs("brugernavn") &", Där finns ett mail till dig på "&rsAdmin("Title")&".. Du måste logga in för att läsa ditt nya mail.."

JMail.Body ="Hej "& rs("brugernavn") &", Där finns ett mail till dig på "&rsAdmin("Title")&".. Du måste logga in för att läsa ditt nya mail.."
' 1 - highest priority (Urgent)
' 3 - normal
' 5 - lowest

JMail.Priority = 2

JMail.Execute
set JMail = nothing

Set rsM = Server.CreateObject("ADODB.RecordSet")
strSQL = "SELECT * FROM Mails"
rsM.Open strSQL, myConn, 1, 3

rsM.addnew
rsM("Modtager") = rs("Brugernavn")
rsM("Afsender") = "Admin"
rsM("IP") = "127.0.0.1"
rsM("Emne") = "Grattis"
rsM("Indhold") = "Hej "&rs("Brugernavn")&",<br>Du har stigit i rang, du är nu "&rs("Rang")&"..<br>Mvh<br>Administratoren.."
rsM.update
end if
if rs("Points") = 350 then
rs.update
rs("Rang") = "<B>Kanske Skambo</B>"
rs.update

Set JMail = Server.CreateObject("JMail.SMTPMail")
JMail.ServerAddress = rsAdmin("mailserver")
JMail.Sender = rsAdmin("mailrobot")
JMail.Subject = "Du har modtaget en mail"
JMail.AddRecipient rs("Email")
JMail.HTMLBody = "Hej "& rs("brugernavn") &", Där finns ett mail till dig på "&rsAdmin("Title")&".. Du måste logga in för att läsa ditt nya mail.."

JMail.Body ="Hej "& rs("brugernavn") &", Där finns ett mail til dig på "&rsAdmin("Title")&".. Du måste logga in för att läsa ditt nya mail.."
' 1 - highest priority (Urgent)
' 3 - normal
' 5 - lowest

JMail.Priority = 2

JMail.Execute
set JMail = nothing

Set rsM = Server.CreateObject("ADODB.RecordSet")
strSQL = "SELECT * FROM Mails"
rsM.Open strSQL, myConn, 1, 3

rsM.addnew
rsM("Modtager") = rs("Brugernavn")
rsM("Afsender") = "Admin"
rsM("IP") = "127.0.0.1"
rsM("Emne") = "Grattis"
rsM("Indhold") = "Hej "&rs("Brugernavn")&",<br>Du har stigit i rang, du är nu "&rs("Rang")&"..<br>Mvh<br>Administratoren.."
rsM.update
end if
if rs("Points") = 375 then
rs.update
rs("Rang") = "<B>kanske Limbo</B>"
rs.update

Set JMail = Server.CreateObject("JMail.SMTPMail")
JMail.ServerAddress = rsAdmin("mailserver")
JMail.Sender = rsAdmin("mailrobot")
JMail.Subject = "Du har modtaget en mail"
JMail.AddRecipient rs("Email")
JMail.HTMLBody = "Hej "& rs("brugernavn") &", Där finns ett mail till dig på "&rsAdmin("Title")&".. Du måste logga in för att läsa ditt nya mail.."

JMail.Body ="Hej "& rs("brugernavn") &", Där finns ett mail till dig på "&rsAdmin("Title")&".. Du måste logga in för att läsa ditt nya mail.."
' 1 - highest priority (Urgent)
' 3 - normal
' 5 - lowest

JMail.Priority = 2

JMail.Execute
set JMail = nothing

Set rsM = Server.CreateObject("ADODB.RecordSet")
strSQL = "SELECT * FROM Mails"
rsM.Open strSQL, myConn, 1, 3

rsM.addnew
rsM("Modtager") = rs("Brugernavn")
rsM("Afsender") = "Admin"
rsM("IP") = "127.0.0.1"
rsM("Emne") = "Grattis"
rsM("Indhold") = "Hej "&rs("Brugernavn")&",<br>Du har stigit i rang, du är nu "&rs("Rang")&"..<br>Mvh<br>Administratoren.."
rsM.update
end if
if rs("Points") = 400 then
rs.update
rs("Rang") = "Kanske Krylbo"
rs.update

Set JMail = Server.CreateObject("JMail.SMTPMail")
JMail.ServerAddress = rsAdmin("mailserver")
JMail.Sender = rsAdmin("mailrobot")
JMail.Subject = "Du har modtaget en mail"
JMail.AddRecipient rs("Email")
JMail.HTMLBody = "Hej "& rs("brugernavn") &", Där finns ett mail til dig på "&rsAdmin("Title")&".. Du måste logga in för att läsa ditt nya mail.."

JMail.Body ="Hej "& rs("brugernavn") &", Där finns ett mail til dig på "&rsAdmin("Title")&".. Du måste logga in för att läsa ditt nya mail.."
' 1 - highest priority (Urgent)
' 3 - normal
' 5 - lowest

JMail.Priority = 2

JMail.Execute
set JMail = nothing

Set rsM = Server.CreateObject("ADODB.RecordSet")
strSQL = "SELECT * FROM Mails"
rsM.Open strSQL, myConn, 1, 3

rsM.addnew
rsM("Modtager") = rs("Brugernavn")
rsM("Afsender") = "Admin"
rsM("IP") = "127.0.0.1"
rsM("Emne") = "Grattis"
rsM("Indhold") = "Hej "&rs("Brugernavn")&",<br>Du har stigit i rang, du är nu "&rs("Rang")&"..<br>Mvh<br>Administratoren.."
rsM.update
end if
if rs("Points") = 425 then
rs.update
rs("Rang") = "Kanske Delsbo"
rs.update

Set JMail = Server.CreateObject("JMail.SMTPMail")
JMail.ServerAddress = rsAdmin("mailserver")
JMail.Sender = rsAdmin("mailrobot")
JMail.Subject = "Du har modtaget en mail"
JMail.AddRecipient rs("Email")
JMail.HTMLBody = "Hej "& rs("brugernavn") &", Där finns ett mail til dig på "&rsAdmin("Title")&".. Du måste logga in för att läsa ditt nya mail.."

JMail.Body ="Hej "& rs("brugernavn") &", Där finns ett mail till dig på "&rsAdmin("Title")&".. Du måste logga in för att läsa ditt nya mail.."
' 1 - highest priority (Urgent)
' 3 - normal
' 5 - lowest

JMail.Priority = 2

JMail.Execute
set JMail = nothing

Set rsM = Server.CreateObject("ADODB.RecordSet")
strSQL = "SELECT * FROM Mails"
rsM.Open strSQL, myConn, 1, 3

rsM.addnew
rsM("Modtager") = rs("Brugernavn")
rsM("Afsender") = "Admin"
rsM("IP") = "127.0.0.1"
rsM("Emne") = "Grattis"
rsM("Indhold") = "Hej "&rs("Brugernavn")&",<br>Du har stigit i rang, du är nu "&rs("Rang")&"..<br>Mvh<br>Administratoren.."
rsM.update
end if
if rs("Points") = 450 then
rs.update
rs("Rang") = "Giftalusten"
rs.update

Set JMail = Server.CreateObject("JMail.SMTPMail")
JMail.ServerAddress = rsAdmin("mailserver")
JMail.Sender = rsAdmin("mailrobot")
JMail.Subject = "Du har modtaget en mail"
JMail.AddRecipient rs("Email")
JMail.HTMLBody = "Hej "& rs("brugernavn") &", Där finns ett mail till dig på "&rsAdmin("Title")&".. Du måste logga in för att läsa ditt nya mail.."

JMail.Body ="Hej "& rs("brugernavn") &", Där finns ett mail til dig på "&rsAdmin("Title")&".. Du måste logga in för att läsa ditt nya mail.."
' 1 - highest priority (Urgent)
' 3 - normal
' 5 - lowest

JMail.Priority = 2

JMail.Execute
set JMail = nothing

Set rsM = Server.CreateObject("ADODB.RecordSet")
strSQL = "SELECT * FROM Mails"
rsM.Open strSQL, myConn, 1, 3

rsM.addnew
rsM("Modtager") = rs("Brugernavn")
rsM("Afsender") = "Admin"
rsM("IP") = "127.0.0.1"
rsM("Emne") = "Grattis"
rsM("Indhold") = "Hej "&rs("Brugernavn")&",<br>Du har stigit i rang, du är nu "&rs("Rang")&"..<br>Mvh<br>Administratoren.."
rsM.update
end if
if rs("Points") = 475 then
rs.update
rs("Rang") = "Bor i Getingbo"
rs.update

Set JMail = Server.CreateObject("JMail.SMTPMail")
JMail.ServerAddress = rsAdmin("mailserver")
JMail.Sender = rsAdmin("mailrobot")
JMail.Subject = "Du har modtaget en mail"
JMail.AddRecipient rs("Email")
JMail.HTMLBody = "Hej "& rs("brugernavn") &", Där finns ett mail til dig på "&rsAdmin("Title")&".. Du måste logga in för att läsa ditt nya mail.."

JMail.Body ="Hej "& rs("brugernavn") &", Där finns ett mail till dig på "&rsAdmin("Title")&".. Du måste logga in för att läsa ditt nya mail.."
' 1 - highest priority (Urgent)
' 3 - normal
' 5 - lowest

JMail.Priority = 2

JMail.Execute
set JMail = nothing

Set rsM = Server.CreateObject("ADODB.RecordSet")
strSQL = "SELECT * FROM Mails"
rsM.Open strSQL, myConn, 1, 3

rsM.addnew
rsM("Modtager") = rs("Brugernavn")
rsM("Afsender") = "Admin"
rsM("IP") = "127.0.0.1"
rsM("Emne") = "Grattis"
rsM("Indhold") = "Hej "&rs("Brugernavn")&",<br>Du har stigit i rang, du är nu "&rs("Rang")&"..<br>Mvh<br>Administratoren.."
rsM.update
end if
if rs("Points") = 500 then
rs.update
rs("Rang") = "Enbo"
rs.update

Set JMail = Server.CreateObject("JMail.SMTPMail")
JMail.ServerAddress = rsAdmin("mailserver")
JMail.Sender = rsAdmin("mailrobot")
JMail.Subject = "Du har modtaget en mail"
JMail.AddRecipient rs("Email")
JMail.HTMLBody = "Hej "& rs("brugernavn") &", Där finns ett mail till dig på "&rsAdmin("Title")&".. Du måste logga in för att läsa ditt nya mail.."

JMail.Body ="Hej "& rs("brugernavn") &", Där finns ett mail till dig på "&rsAdmin("Title")&".. Du måste logga in för att läsa ditt nya mail.."
' 1 - highest priority (Urgent)
' 3 - normal
' 5 - lowest

JMail.Priority = 2

JMail.Execute
set JMail = nothing

Set rsM = Server.CreateObject("ADODB.RecordSet")
strSQL = "SELECT * FROM Mails"
rsM.Open strSQL, myConn, 1, 3

rsM.addnew
rsM("Modtager") = rs("Brugernavn")
rsM("Afsender") = "Admin"
rsM("IP") = "127.0.0.1"
rsM("Emne") = "Grattis"
rsM("Indhold") = "Hej "&rs("Brugernavn")&",<br>Du har stigit i rang, du är nu "&rs("Rang")&"..<br>Mvh<br>Administratoren.."
rsM.update
end if

end if
rsAdmin.Close
Set rsAdmin = Nothing

myConn.Execute("DELETE FROM Mails where Dato<Now()-90")
myConn.Execute("DELETE FROM Mailsud where Dato<Now()-90")
myConn.Execute("DELETE FROM Chat where Dato<Now()-#00:30:00#")
myConn.Execute("DELETE FROM Messenger where Dato<Now()-#00:30:00#")

myConn.Close
Set myConn = Nothing%>

/Micke

Jösses vilken kod, jag hade strippat ner den till att börja med.
Jag skummade lite snabbt men det ser ut som om att du skickar samma mail, men med olika texter.
Jag skulle göra en IF sats som kollar Points, är points 25 så tilldelas en variabel ett värde, osv
Sen skriver jag in variabeln i mailkoden och behöver på så sätt bara en kod.

Eftersom det går iväg två mail så betyder det att din kod körs två gånger, du får kolla mailen och på det sättet försöka lista ut vilken kod som körs två gånger, eller om det är så att någon IF sats stämmer två gånger.


//Anna-Karin