Försöker hitta ett sätt att skicka ett internt mail till alla medlemmar men får inte till hur man ska göra....vid andra utskicket fick jag själv 14 mail av samma utskick
Med denna kod
Kod:

<%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 ")

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 mailRS.eof
varReciver = mailRS("userID")
SQL = "INSERT INTO tblUsers_imail"
SQL = SQL & "(sender, reciever, Headline,message, mailDate,mailTime, mailRead) "
SQL = SQL & "VALUES(1,'"& mailRS("userID") &"','"&varHeadline &"','"&varMessage &"','"& varDatum &"','"& varTime &"', 1)"
objConn.Execute(SQL)

sTo = ""& mailRS("email") &""
sFrom = "nyhetsbrev@webbisen.com"
sSubject = "Nyhetsbrev från Webbisen.com [Testmail]"
sTextBody = "Du har fått ett nyhetsbrev från Admin på Http://www.webbisen.com "&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
response.write "Mailet skickat till "&mailRS("userID")
mailRS.movenext
loop%>