Hola
Creo que con esto lograrás lo que buscas
Código asp:
Ver originalSub MostrarCarrito'*********************************************************
.....
<%
subtotal=CSng(FormatNumber(carrito(clave))*tabla.Fields("Precio"))
total=total+subtotal
%>
<TD><%= subtotal %></TD>
</TR>
<%
if accion<>"fin" then ' CREA OTRA TABLA (o como tu veas)
else
SQL="INSERT INTO Compras (Articulo, ....) values ('"&oRs.Fields("Nombre")&"', ......)"
oConn.Execute(SQL)
end if
Next
If carrito.Count > 0 Then
tabla.Close
Set tabla=Nothing
End If
%>
...
Suerte