Mail fra database

Hej jeg skal generer en mail på serveren og det går også meget godt men jeg vil gerne have at når modtageren får mailen står modtageres egen email som til.

Dim mFrom,mTo,mSubject,mbcc,mBody,mArchive
mFrom = Request.Form(\"myemail\")
mTo = Request.Form(\"to\")
mSubject = Request.Form(\"subject\")
mbcc = Request.Form(\"users\")
mBody = Request.Form(\"body\")
mArchive = Request.Form(\"archive\")

response.write(\"Nyhedsbrevet er sendt til:<br><br>\" & mbcc )

Dim eCDO
Set eCDO = Server.CreateObject(\"CDONTS.NewMail\")

eCDO.To = mbcc
eCDO.From = mFrom
eCDO.bcc = mbcc
eCDO.Subject = mSubject
eCDO.Body = mBody
eCDO.Send

Set eCDO = Nothing

if mArchive = \"1\" then

set conn=Server.CreateObject(\"ADODB.Connection\")
conn.Provider=\"Microsoft.Jet.OLEDB.4.0\"
conn.Open(Server.Mappath(\"SpawnedMailer.mdb\"))

ArchiveSQL = \"INSERT into Archive (ArchiveSubject,ArchiveBody) VALUES (\'\" & mSubject & \"\',\'\" & mBody & \"\');\"
conn.Execute ArchiveSQL
response.write(\"<br><br><br>Archived Successfully!<br><br>\")

conn.close

end if

response.write(\"<br><br><br><center><a href=\'AdminIndex.asp\'>ADMIN HOME</a><center>\")

%>

Som den er der står afsender og modtager med samme mail.

Så jeg skal have hjælp til at hente mail nede i databasen (array) og derefter sende dem .

Jeg har prøvet meget forskeligt uden held...

Noget alle det her:

Dim mFrom,mTo,mSubject,mbcc,mBody,mArchive
mFrom = Request.Form(\"myemail\")
mTo = Request.Form(\"to\")
mSubject = Request.Form(\"subject\")
mbcc = Request.Form(\"users\")
mBody = Request.Form(\"body\")
mArchive = Request.Form(\"archive\")

response.write(\"Nyhedsbrevet er sendt til:<br><br>\" & mbcc )

\'Send Mail to the users of the
\'specified category
Function SendMail(mFrom,mSubject,mBody)
set Conn=server.CreateObject(\"ADODB.Connection\")
Conn.Provider = \"Microsoft.Jet.OLEDB.4.0\"
Conn.ConnectionString = \"SpawnedMailer.mdb\"
Conn.Open 
set Rs=server.CreateObject(\"ADODB.Recordset\")
Rs.Open \"SELECT MailingAddy FROM MailinList\"
\'If there is no record then exit the function
if Rs.RecordCount <1 then
    rs.Close
    conn.Close
    set rs=nothing
    set conn=nothing
    SendMail=0
end if

do while not rs.EOF
    Set MailToSend = CreateObject(\"CDONTS.Newmail\")\'initialize the variable
    MailToSend.TO = \"<\" & rs(\"MailingAddy\") & \">\" \'Mail to.... enclose email address in the bracket
    MailToSend.From = mFrom \' \'Mail from
    MailToSend.Subject = mSubject \' subject
    MailToSend.Body = mBody \' message to send
    MailToSend.Importance=1 \' priority of this message
    MailToSend.send \' send
    Set MailToSend=nothing \' deinitialize the variable
    rs.MoveNext \'Move next
loop
\'How many mail sent
MailSent=rs.RecordCount

rs.Close
conn.Close
set rs=nothing
set conn=nothing
SendMail=MailSent
End Function



if mArchive = \"1\" then

set conn=Server.CreateObject(\"ADODB.Connection\")
conn.Provider=\"Microsoft.Jet.OLEDB.4.0\"
conn.Open(Server.Mappath(\"SpawnedMailer.mdb\"))

ArchiveSQL = \"INSERT into Archive (ArchiveSubject,ArchiveBody) VALUES (\'\" & mSubject & \"\',\'\" & mBody & \"\');\"
conn.Execute ArchiveSQL
response.write(\"<br><br><br>Archived Successfully!<br><br>\")

conn.close

end if

response.write(\"<br><br><br><center><a href=\'AdminIndex.asp\'>ADMIN HOME</a><center>\")