Jmail repeat indhold fra recordset

jeg har et script som skal sende en ordrebekræftelse, men jeg kan ikke få den til at lave en repeat på produkterne.

her er koden:
<%@LANGUAGE="VBSCRIPT"%>
<!--#include file="Connections/scandlines.asp" -->
<%
Dim rsIndkoebskurv__MMColParam
rsIndkoebskurv__MMColParam = Session.SessionID
%>
<%
Dim rsIndkoebskurv
Dim rsIndkoebskurv_numRows

Set rsIndkoebskurv = Server.CreateObject("ADODB.Recordset")
rsIndkoebskurv.ActiveConnection = MM_scandlines_STRING
rsIndkoebskurv.Source = "SELECT Overskrift, Land, Pris_DKK, SUM(Antal) AS VinAntal  FROM Indkoebskurv, Vin  WHERE SessionID = " + Replace(rsIndkoebskurv__MMColParam, "'", "''") + " AND VinID = IDvin    GROUP BY Overskrift  ORDER BY Overskrift ASC"
rsIndkoebskurv.CursorType = 0
rsIndkoebskurv.CursorLocation = 2
rsIndkoebskurv.LockType = 1
rsIndkoebskurv.Open()

rsIndkoebskurv_numRows = 0
%>
<%
Dim rsKunde__MMColParam
rsKunde__MMColParam = Session.SessionID
%>
<%
Dim rsKunde
Dim rsKunde_numRows

Set rsKunde = Server.CreateObject("ADODB.Recordset")
rsKunde.ActiveConnection = MM_scandlines_STRING
rsKunde.Source = "SELECT * FROM Kunder WHERE LastSession = " + Replace(rsKunde__MMColParam, "'", "''") + ""
rsKunde.CursorType = 0
rsKunde.CursorLocation = 2
rsKunde.LockType = 1
rsKunde.Open()

rsKunde_numRows = 0
%>
<%
Dim rsTotal
Dim rsTotal_numRows

Set rsTotal = Server.CreateObject("ADODB.Recordset")
rsTotal.ActiveConnection = MM_scandlines_STRING
rsTotal.Source = "SELECT SUM(Pris_DKK) AS Total  FROM Indkoebskurv, Vin  WHERE SessionID = "+ Session.SessionID + " AND VinID = IDvin"
rsTotal.CursorType = 0
rsTotal.CursorLocation = 2
rsTotal.LockType = 1
rsTotal.Open()

rsTotal_numRows = 0
%>
<%
Dim Repeat1__numRows
Dim Repeat1__index

Repeat1__numRows = -1
Repeat1__index = 0
rsIndkoebskurv_numRows = rsIndkoebskurv_numRows + Repeat1__numRows
%>
<%
    Set JMail                 = Server.CreateObject("JMail.SMTPMail")
    JMail.ContentType        = "text/html"
    JMail.ServerAddress        = "websmtp.border-wines.dk"
    JMail.AddRecipient        rsKunde.Fields.Item("Email").Value
    JMail.Sender            = "Border-Wines"
    JMail.Subject            = "Bekræftelse på forudbestilling"
   
JMail.Body = "<font size='2' face='Verdana'>" &_
"<img src=""http://www.border-wines.dk/images/orderconfirmation.jpg"">" &_
"<br>" &_
"<br>" &_
"Hej " &_
rsKunde.Fields.Item("Navn").Value &_
"<br>" &_
"<br>" &_
"Vi har nu registreret din forudbestilling. Den ligger pakket og klar til afhentning maks 48 timer efter afgivelsen af ordren." &_
"<br>" &_
"Dine varer vil ligge klar 5 dage efter ordreafgivelsen. Herefter inddrages varene og din ordre slettes." &_
"<br>" &_
"<br>" &_
"<STRONG>KUNDEOPLYSNINGER</STRONG>" &_
"<br>" &_
rsKunde.Fields.Item("Navn").Value &_
"<br>" &_
rsKunde.Fields.Item("Adresse").Value &_
"<br>" &_
rsKunde.Fields.Item("Postnummer").Value &_
" " &_
rsKunde.Fields.Item("Bynavn").Value &_
"<br>" &_
rsKunde.Fields.Item("Land").Value &_
"<br>" &_
"<br>" &_
"<STRONG>FORUDBESTILLING</STRONG>" &_
"<br>" &_
rsIndkoebskurv.Fields.Item("Overskrift").Value &_
" (" &_
rsIndkoebskurv.Fields.Item("Land").Value &_
") " &_
" Antal: " &_
rsIndkoebskurv.Fields.Item("VinAntal").Value &_
" Pris: " &_
FormatNumber((rsIndkoebskurv.Fields.Item("Pris_DKK").Value),2) &_
"<br>" &_
"Total " &_
FormatNumber((rsTotal.Fields.Item("Total").Value),2) &_
"<br>" &_
"</font>"

    JMail.Priority = 3
    JMail.AddHeader "Originating-IP", Request.ServerVariables("REMOTE_ADDR")
    JMail.Execute
    Response.Redirect "test.asp"
%>
<%
rsIndkoebskurv.Close()
Set rsIndkoebskurv = Nothing
%>
<%
rsKunde.Close()
Set rsKunde = Nothing
%>
<%
rsTotal.Close()
Set rsTotal = Nothing
%>


det er denne del af koden der skal repeates:
rsIndkoebskurv.Fields.Item("Overskrift").Value &_
" (" &_
rsIndkoebskurv.Fields.Item("Land").Value &_
") " &_
" Antal: " &_
rsIndkoebskurv.Fields.Item("VinAntal").Value &_
" Pris: " &_
FormatNumber((rsIndkoebskurv.Fields.Item("Pris_DKK").Value),2) &_
"<br>" &_