Send ordre med Jmail

Hej
Har arbejdet på en hjemmeside nogen tid nu, og er kommet til det punkt hvor kunden har købt sine varer, og der dermed skal sendes en mail ud til kunen og til mig, ang brugerinfo og købsinfo.
Har roddet lidt med det, men syntes ikke rigtig at kunne få det til at fungere.

Mit mailscript ser sådan ud:

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!--#include file="inc_CharonCart.asp" -->
<!--#include file="Connections/db.asp" -->
<%
Dim bruger__MMColParam
bruger__MMColParam = "1"
If (Session("MM_Username") <> "") Then
  bruger__MMColParam = Session("MM_Username")
End If
%>
<%
Dim bruger
Dim bruger_numRows

Set bruger = Server.CreateObject("ADODB.Recordset")
bruger.ActiveConnection = MM_db_STRING
bruger.Source = "SELECT * FROM brugere WHERE brugernavn = '" + Replace(bruger__MMColParam, "'", "''") + "'"
bruger.CursorType = 0
bruger.CursorLocation = 2
bruger.LockType = 1
bruger.Open()

bruger_numRows = 0
%>

<%
Set msg = Server.CreateObject("JMail.Message")
msg.ContentType = "text/html"
msg.Logging = True
msg.Silent = True
msg.From = "info@zenithart.dk"  'Afsender e-mail
msg.FromName = "zenithart"
msg.Charset = "iso-8859-1"

msg.AddRecipient "min mail", "mit navn"
msg.Subject = "ordre"
msg.body =


if not msg.Send("smtp.danhost.dk" ) then
  Response.write "<pre>" & msg.log & "</pre>"
else
  Response.write "Meddelelsen er nu sendt!"
end if

Set msg = nothing


%>

Men hvordan jeg får sendt informationerne fra mit recordset, og fra CharonCarten, er jeg ikke helt med på....
De forskllige informationer er følgende:

Fra recordsettet "bruger":
<%=(bruger.Fields.Item("firmanavn").Value)%></font>
<%=(bruger.Fields.Item("CVR").Value)%></font>
<%=(bruger.Fields.Item("fornavn").Value)%></font>
<%=(bruger.Fields.Item("efternavn").Value)%></font>
<%=(bruger.Fields.Item("gade").Value)%></font>
<%=(bruger.Fields.Item("postnummer").Value)%></font>
<%=(bruger.Fields.Item("bynavn").Value)%></font>
<%=(bruger.Fields.Item("Land").Value)%></font>
<%=(bruger.Fields.Item("tlf").Value)%></font>
<%=(bruger.Fields.Item("fax").Value)%></font>
<%=(bruger.Fields.Item("email").Value)%></font>
<%=(bruger.Fields.Item("Ffirma").Value)%></font>
<%=(bruger.Fields.Item("Fgade").Value)%></font>
<%=(bruger.Fields.Item("Fpostnr").Value)%></font>
<%=(bruger.Fields.Item("Fby").Value)%></font>
<%=(bruger.Fields.Item("Fland").Value)%></font>

Fra CharonCharten - hvilket måske er lidt mere kompliceret, eftersom ser er en repeat region med i billedet:

<%
'
'Begin cart repeat region
'
For i=0 to ubound(CCcart,2)
if CCcart(CC_PRODUCTID,i) <> "" then
%>
                         
<%=CCcart(CC_Quantity,i)%>
<%=CCcart(CC_Name,i)%>
<%=CCcart(CC_storrelseVare,i)%>
<%=CCcart(CC_NrVare,i)%>
<%=CCcart(CC_Price,i)%>
<%=CCcart_LineTotal%>

<%
end if
next  'end cart repeat region
%>

<%=CCcart_GrandTotal%>


Håber virkelige der er nogen de kan hjælpe...
P.S. Der skal selvølgelig være beskrivende tekst, foran de forskellige dynamiske tekstfelter, og evt. noget tabel eller lign.

Mvh Sigurd