Me respondo a mi mismo :
El codigo casi correcto ( pues no me devuelve los productos seleccionados ) es el siguiente
<%@ Language=VBScript %>
<%
Dim Producto, Cantidad, ProductoTotal, Total, mail, index
Producto = Request.form("Producto" + index)
Cantidad = Request.form("Cantidad" + index)
ProductoTotal = Request.form("ProductoTotal" + index)
Total = Request.form("Total" + index)
For index = 1 to Request.form.Count
Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
Mailer.FromName = "VIAS-PROXIM"
Mailer.FromAddress = "
[email protected]"
Mailer.AddRecipient"JOSE LUIS","
[email protected]"
Mailer.Subject = "COMANDA"
Mailer.ContentType = "text/html"
Mailer.charset = 2
Mailer.Bodytext= "PROXIMVIAS - COMANDA"
Mailer.RemoteHost = "smtpMail.activeisp.com"
Mailer.BodyText = Cuerpo
Cuerpo = "<HTML><HEAD><TD Align='Center'><TITLE>COMANDA DE PROVA</TITLE></HEAD><BODY bgColor=#FFFF80><br><TABLE cellSpacing=0 cellPadding=2 width=800 align=center bgColor=#FFFF80 border=1><TR><TD Align='Center'></BODY></HTML>"
Mailer.Bodytext = "Producto" + " : " + Producto & VbCrLf & "Cantidad" + " : " + Cantidad & VbCrLf & "ProductoTotal" + " : " + ProductoTotal + VbCrLf
next
Mailer.Bodytext = "Total" + ": " + Total + " Euros "
Mailer.Bodytext = "Nombre " + Request.form("nombre") + VbCrLf
Mailer.Bodytext = "Domicilio " + Request.form("domicilio") + VbCrLf
Mailer.Bodytext = "Ciudad " + Request.form("ciudad") + VbCrLf
Mailer.Bodytext = "Codigo Postal " + Request.form("cp") + VbCrLf
Mailer.Bodytext = "email " + Request.form("email") + VbCrLf
Mailer.Bodytext = "Telefono " + Request.form("telefono") + VbCrLf
Mailer.sendmail
if Mailer.SendMail then
response.write ("MENSAJE ENVIADO")
else
response.write ("MENSAJE NO ENVIADO.")+ Mailer.Response
end if
%>