Strul med utskick av nyhetsbrev

Nu senast fick 3 medlemmar aldrig nåt nyhetsbrev, 1 av dem har aldrig fått trots att hon fins med på listan. När jag ska kolla vilka som det skickas till ser jag bara mitt id trots att det går ut mail varje vecka, förra veckan kom 46 av 49 mail fram (Nyhetsbreven läses via interna mail, inte E-post)....ser dem i databasen så de har ju skickats ut . Nån som kan hitta dessa fel????

<%set mailRS=objConn.execute("SELECT userID, mailID, email, username, Headline, sender, message, mailDate "&_
"FROM tblUsers INNER JOIN tblUsers_imail ON tblUsers.userID = tblUsers_imail.reciever")
 
set mail1=objConn.Execute("select distinct userID from tblUsers where visaNyhetsbrev=1")

varName=request("toUser")
varMailID = FriendlySQL(Request.Form ("txtMailID"))
varHeadline = FriendlySQL(Request.Form ("txtHeadline"))
varDatum = FriendlySQL(Request.Form ("txtDatum"))
varTime = Time()
varMessage = FriendlySQL(Request.Form("txtMessage"))

SET objConn = connect()

do until mail1.eof
varReciever = mail1("userID")
	SQL = "INSERT INTO tblUsers_imail"
	SQL = SQL & "(sender, reciever, Headline,message, mailDate,mailTime, mailRead, Nyhetsbrev) "
	SQL = SQL & "VALUES(1,'"& varReciever &"','"&varHeadline &"','"&varMessage &"','"& varDatum &"','"& varTime &"', 1, 1)"
	response.write SQL
	response.write varReciever
	response.end
objConn.Execute(SQL)

sTo = varReciever
sFrom = "nyhetsbrev@webbisen.com"
sSubject = "Nyhetsbrev från Webbisen.com , '"& varDate &"' "
sTextBody = "Du har fått ett nyhetsbrev från [url]Http://www.webbisen.com[/url] "&vbcrlf _
& vbcrlf &"Meddelandet skickades "& varDatum &" "& varTime &" "_
& vbcrlf &"Meddelandets rubrik """& varHeadline &""""&vbcrlf _
& vbcrlf &"Mvh Admin på "& title &""

Set objMail = Server.CreateObject("CDO.Message")
objMail.From = sFrom  
objMail.To = sTo 
objMail.Subject= sSubject 
objMail.TextBody = sTextBody 
objMail.Send 
Set objMail = Nothing

mail1.movenext
loop%>