Skicka email

Hej,

Hur kan jag rada upp info. från databasen i ett email?
Asså jag har ett fält i db med en massa namn som tillhör en email-adress.
Nu vill jag att användaren ska kunna få alla namn skickade till sig, men hur ska man kunna få med alla namn i mailet?
Titta på koden så kanske du förstår bättre vad jag menar ;)

dim myMail
Set myMail = CreateObject("CDONTS.NewMail") 
myMail.Host="mail.hosting.com"
myMail.From = "min@email"
myMail.To = email
myMail.Subject = "Hej" 
myMail.Body = "Hej " & vbcrlf & vbcrlf _
& "Du har följande Namn sparde: " & vbcrlf _
& "Här vill jag nu skriva ut alla namn som hittades i db"
& "namn1" & namn & vbcrlf _
& "namn2" & namn & vbcrlf _
& "namn3" & namn & vbcrlf _
& "namn4" & namn & vbcrlf _
myMail.Send 
Set myMail = Nothing

Mvh Jimpa

<%
set RS = conn.execute("SELECT namn FROM tabell")
do until RS.eof
	namn = namn & RS("namn") & vbcr
RS.MoveNext
Loop
set RS = nothing

dim myMail
Set myMail = CreateObject("CDONTS.NewMail")
myMail.Host="mail.hosting.com"
myMail.From = "min@email"
myMail.To = email
myMail.Subject = "Hej"
myMail.Body = "Hej " & vbcrlf & vbcrlf _
& "Du har följande Namn sparde: " & vbcrlf _
& namn
myMail.Send
Set myMail = Nothing
%>

------------------
MVH // Cyprys
Cyprys
Synd att du inte kan köpa en voodoojordglob och sedan snurra på den fort som fan och skrämma skiten ur alla.