Problemas Para Enviar Datos De Carro Por Email

[HeRnAn alb]

Hola...nuevamente molestandolos

Tengo un carro de compras, adaptado de estos que circulan por la red.
Todo bien hasta ahi... guardamos los datos clientes y compras en la base..
Ahora el problema está cuando intento enviar por email los datos de la compra, pues solo me envia los datos del primer producto comprado... y no se agregan los datos de los siguientes.

Codigo...

localCart = Session ("cart")

Set rs1 = Server.CreateObject("ADODB.Recordset")
SQL = "Select * From Pedidos"
rs1.Open "Pedidos", oConn, adOpenKeySet, adLockOptimistic

Dim i
for i = lbound(localCart,2) to ubound(localCart,2)
If localCart(0,i) <> "" Then
rs1.AddNew
rs1 ("Orden_Id_Cliente") = idofaddedrecord
rs1 ("Id_Clave") = localCart (0,i)
rs1 ("Titulo") = localCart (1,i)
rs1 ("Precio") = localCart (2,i)
rs1 ("Cantidad") = localCart (4,i)
rs1.Update
End If
next
rs1.Close

Acá los guarda muy bien en la BD, pero no sé como hacer para enviarlos

Desde ya muchas gracias