Jmail sender mails to gange

Mit mailscript sender mailen til alle modtagere to gange, but why???

<%
If Request.Querystring("send") = "" then
%>
<!--#include file="connection.inc"-->
<%
strSQL = "Select * From Brodre"
Set rs = Conn.Execute(strSQL)
%>

<script type="text/javascript">

function deleteOption(object,index) {
    object.options[index] = null;
}

function addOption(object,text,value) {
    var defaultSelected = true;
    var selected = true;
    var optionName = new Option(text, value, defaultSelected, selected)
    object.options[object.length] = optionName;
}

function copySelected(fromObject,toObject) {
    for (var i=0, l=fromObject.options.length;i<l;i++) {
        if (fromObject.options[i].selected)
            addOption(toObject,fromObject.options[i].text,fromObject.options[i].value);
    }
    for (var i=fromObject.options.length-1;i>-1;i--) {
        if (fromObject.options[i].selected)
            deleteOption(fromObject,i);
    }
}

function SelectAll(fromObject) {
    for (var i=0, l=fromObject.options.length;i<l;i++) {
        fromObject.options[i].text,fromObject.options[i].selected = true;
    }
}

</script>

<center>
<%
'<script src="valid_mail.js" type="text/javascript"></script>
%>
<form action="mail.asp?send=ja" method="post">

  <table width="550px" style="font-size:13px;" cellspacing="0">
  <tr>
  <td align="center">

  <select name="select1" size="5" multiple style="width:225px">
<%
  if Rs.EOF or Rs.BOF then
    Response.Write "<i>Der var ingen brødre i databasen...</i>"
  else
  Do until Rs.EOF
    Response.Write "<option value='" & rs("Email") & "'>" & rs("Fornavn") & " " & rs("Efternavn") & "</option>"
  Rs.MoveNext
  Loop
  End if
  rs.close
%>
  </select>
  </td>
  <td align="center">
  <input type='button' style="width:30px;" value='&#62;&#62;' onClick="copySelected(this.form.select1,this.form.select2)">
  <br>
  <input type='button' style="width:30px;" value='&#60;&#60;' onClick="copySelected(this.form.select2,this.form.select1)">
  </td>
  <td align="center">
  <select name="select2" size="5" multiple style="width:225px">
  </select>
  </td>
  </tr>
  </table>
  <table width="540px" style="font-size:13px;" cellspacing="0">
  <tr>
    <td height="5px"></td>
  </tr>
  <tr>
    <td colspan="2" align="center"><input type="text" size="83" name="emne" value="Skriv mailens emne her.." onfocus="this.value=''"></td>
  </tr>
  <tr>
    <td height="5px"></td>
  </tr>
  <tr>
    <td colspan="2" align="center"><textarea COLS=63 ROWS=18 class="box1" name="Tekst">Udform din mail her...</textarea></td>
    </td>
  </tr>
  <tr>
  <%
  strSQL2 = "Select * From Brodre WHERE brugernavn = '" & Replace(Session("bruger"),"'","''") & "'"
  Set rs2 = Conn.Execute(strSQL2)
  %>
    <td>Afsender:</td><td><input type="text" size="22" name="afsender" value="<%=rs2("Fornavn")%>&nbsp;<%=rs2("Efternavn")%>" disabled>&nbsp;&nbsp;
        <input type="text" size="22" name="afsendermail" value="<%=rs2("Email")%>" disabled>&nbsp;&nbsp;<input type="submit" value="Send mail" onClick="SelectAll(this.form.select2);submit()">
    <input type="hidden" name="afsendermail" value="<%=rs2("Email")%>"><input type="hidden" name="afsender" value="<%=rs2("Fornavn")%>&nbsp;<%=rs2("Efternavn")%>"></td>
  </tr>
  </table>
</form>
</center>
<%

Conn.Close
Set Conn = Nothing
Else

Emne = Request.Form("emne")
Indhold = Request.Form("Tekst")
Emails = Request.Form("select2")
Afsender = Request.Form("afsender")
Afmail = Request.Form("afsendermail")

htmlbody = "Testmail"
set msg = Server.CreateOBject("JMail.Message")
msg.Logging = true
msg.From = Afmail
msg.FromName = "Elite Society - " & Afsender
arrEmail = Split(Emails,",")
For i = LBound(arrEmail) to UBound(arrEmail)
      msg.AddRecipient arrEmail(i)
Next
msg.Subject = Request.Form("Emne")
msg.HTMLBody = htmlbody
msg.ContentType = "text/html"
msg.ISOEncodeHeaders = false
msg.Priority = false
msg.MailDomain = "mail.xxxxxxxxxxxx.dk"
msg.MailServerUserName = "webmaster@xxxxxxxxxxx.dk"
msg.MailServerPassWord = "xxxxxxxx"
msg.Send ("mail.xxxxxxxx.dk")
set msg = Nothing