JMail-problem

Hej!
Håller på att skapa en "mailmotor". Den ska funka så här:
Man fyller i subject, frommail, och html-sidan som ska skickas med mailet i ett formulär. Därefter ska man kunna välja grupp man ska skicka mailet till. De här grupperna av mailadresser ligger samlade i -ett- fält i databasen. Problemet kommer när jag ska skriva ut och skicka mailet till alla.

Kan man lägga in flera mailadresser i en msg.AddRecipient på en gång? Hur i så fall? Vad ska man separera mailadresserna med?

tack

msg.AddRecipient "blabla1@humor.com"
msg.AddRecipient "blabla2@humor.com"
msg.AddRecipient "blabla3@humor.com"

Nja...kanske dåligt förklarat, men det ska ligga i samma msg.AddRecipient

Alltså

msg.AddRecipient "bla@blaha.com, bla@blaha.com, bla@blaha.com, bla@blaha.com"

Eftersom alla mailadresser ligger i samma post (under samma id) i databasen.

Vet bara inte vad jag ska separera mailadresserna med, eller om det ens går att göra så.

prova med mellanslag eller ,-tecken.
Det brukar fungera.

Något av dessa bör fungera

msg.AddRecipient "blabla@humor.com", "blabla1@humor.com"

msg.AddRecipient "blabla@humor.com, blabla1@humor.com"

------------------
Mvh
Patrik aka Brimba
<A HREF="http://www.brimba.nu/default.asp?oPID=poll&PollID=20" TARGET=_blank>Har du husdjur hemma?
</A>Varför får man inte dricka saltvatten?

Nope...funkar inte. Kanske inte ska gå att göra så *suck* .Jag som hade kommit på en så bra lösning. Får ge upp för dagen...tåg att passa.
Hoppas att jag får en trevlig överraskning imorgon när jag kommer till jobbet, då lösningen ligger här och väntar på mig ;)

Hämtar från en access databas e-postadresserna

Do until RS.EOF
Set msg = Server.CreateOBject( "JMail.Message" )

msg.Logging = True
msg.silent  = True

server.scripttimeout = 900	

message				= Request.Form("message")

msg.Subject			= "nyhetsmail"
msg.From			= "kalle@mail.com"
msg.FromName		= "kalle"
msg.ReplyTo			= "kalle@mail.com"
msg.AddRecipient	RS("epost")

msg.Body = message 	

If Not msg.Send ("smtp.mail.se") Then
notsend = (notsend + 1)

arr = Split(RS("epost"),", ")
tecken = "\<p\>"
For i = 0 To Ubound(arr)
var = var & arr(i) & tecken
Next

End If

RS.MoveNext
Loop

RS.Close
Set RS = Nothing

Conn.Close
Set Conn = Nothing