Jmail

do while not rsMail.eof
    on error resume next
MUF_ToEmail = rsMail("Emailadresse")
rsMail.movenext
loop

Du skal lave en løkke omkring hele scriptet, da løkken ikke køre omkring selve executen..

Det virker syadigvæk ikke. Den tager kun den første post i mit Recordset.
Her er koden med mit Recordset
-----------------------
<%
Dim rsMail
Dim rsMail_numRows

Set rsMail = Server.CreateObject("ADODB.Recordset")
rsMail.ActiveConnection = MM_connDongklubben_STRING
rsMail.Source = "SELECT Emailadresse, Personer, Personer.Personer  FROM Personer  ORDER BY Emailadresse"
rsMail.CursorType = 0
rsMail.CursorLocation = 2
rsMail.LockType = 1
rsMail.Open()

rsMail_numRows = 0
%>
<%
' *** Mail Uploaded Files 1.5.0
If (CStr(Request.QueryString("GP_upload")) <> "") Then
  Dim MUF_path, MUF_FromName, MUF_FromEmail, MUF_ToName, MUF_ToEmail, MUF_Bcc, MUF_Subject, MUF_Body, MUF_SendHtml, MUF_checkErrors, MUF_RedirectURL, MUF_SmtpServer, MUF_MailerType
  MUF_path = ""
  MUF_FromName = rsPersoner.Fields.Item("Titelnavn").Value
  MUF_FromEmail = "postmaster@fcweb.dk"
  MUF_ToName = "Tommy"
do while not rsMail.eof
    on error resume next
MUF_ToEmail = rsMail("Emailadresse")
rsMail.movenext
loop
  MUF_Bcc = ""
  MUF_Subject = "Test"
  MUF_Body = "ssss"
  MUF_SendHtml = true
  MUF_checkErrors = false
  MUF_RedirectURL = "databasen_er _opdateret.asp"
  MUF_SmtpServer = "mail.rackserv.com"
  MUF_MailerType = "JMail"
  MailUploadedFiles MUF_path, MUF_FromName, MUF_FromEmail, MUF_ToName, MUF_ToEmail, MUF_Bcc, MUF_Subject, MUF_Body, MUF_SendHtml, MUF_checkErrors, MUF_RedirectURL, MUF_SmtpServer, MUF_MailerType
end if
%>
---------------------

Hvor meget af scriptet, skal man lave et loop på.

Er der ikke en venlig sjæl, der kan vise mig, hvor min løkke skal starte og slutte. Nu har jeg prøvet rigtig mange gange, men får det ikke til at virke!

Jeg lukker det her

-