Skickar på tok för många mejl

Hej
Jag håller på att fixa ett skript som skickar ett nytt lösenord till alla adresser sparade i en databas. För att inte göra bort mig använde jag bara min mejl och satte loopen att stanna när X fått ett visst värde.

Nu är X satt till 10 så loopen ska köras 10 ggr. Problemet är att jag fick 55 mejl.

Jag kan inte alls förstå varför eftersom det bara ska skickas ett mejl per loopad omgång.

På sidan skrivs varje person upp vilket fungerar.. det står att jag skickat mejlet till 10 personer men ändå får jag dessto fler mejl i min inkorg.

Här har ni koden om den röran kan hjälpa :)

  strSql=("Select id, strNamn, strEpost From tblMedlem Where strLosen='blabla' order by id ASC")
  Set objRs = objConr.execute(strSql)

	If Not objRs.Eof Then

   	  Dim objJmail
	    SET objJmail = Server.CreateOBject("JMail.Message")
	X = 0
	response.write("<b>Börjar</b><br><br>")
	Do Until objRs.Eof Or X = 10
	  X = X + 1

	  strPwd = ""
	  intId = 1
	  strNamn = objRs("strNamn")	
	  strEpost = "blabla"

[b]Skriver ut namnet[/b]
	    response.write(X &". <i>" & strNamn & "</i>")

[b]Slumpar bokstäver[/b]
         strCode= "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz123456789"
          for intA = 1 to 7
            randomize
            intTest = rnd * len(strCode)
              strPwd= strPwd & mid(strCode,(intTest + 1),1)
          next

	      objJmail.From = "blabla"
	      objJmail.FromName = "blabla"
	      objJmail.AddRecipient strEpost

	    response.write(".....Skickar")
 
	      objJmail.Subject = "Nytt lösenord"
	      objJmail.Body = "Hej " & strNamn & "" & vbNewLine & _
		"" & vbNewLine & _
		"blablabla!" & vbNewLine & "" & vbNewLine & _
                "" & vbNewLine & _

		"blablabla" & vbNewLine & _
		"" & vbNewLine & _

[b]Lägger in det nya lösenordet[/b]
		"Lösenord: " & strPwd & "" & vbNewLine & _
		"" & vbNewLine & _
		"" & vbNewLine & _

		" blabla." & vbNewLine & _
		"" & vbNewLine & _
		"" & vbNewLine & _

		"blablabla!" & vbNewLine & _
		"" & vbNewLine & _
		"blablabla" & vbNewLine & _

		"" & vbNewLine & _
		"" & vbNewLine & _

	        "" & vbNewline & "" & vbNewLine & "blabla " & vbNewLine & "blabla"
  
	      objJmail.ContentType = "text/plain"
 
[b]Skickar mejl en gång[/b]
	      objJmail.Send("smtp.blabla.se")

	    response.write(".....Skickat")

	      objConr.Execute("Update tblMedlem Set strLosen='" & strPwd & "' Where id=" & intId)

	    response.write(".....<b>KLART!</b><br>")
 
	objRs.MoveNext
	Loop

	    Set objJmail = nothing

	Else

	    response.write(".....<b>Något blev fel</b><br>")

	End If

    objRs.Close : set objRs = nothing
  objConr.Close : set objConr = nothing

Tack på förhand