recibir n variables de flash para enviar por mail

[bookmark]

Hola estoy haciendo un aplicación en flash para luego enviar por mail un pedido.

De Flash sé enviar la info al archivo asp que enviará el correo pero no recibo bien las variables.

Sí las leo si sé el número de productos que me vienen, es decir si leo las variables estáticamente, pero no lo lee si las variables se definen y se lee dinámicamente.

Ejemplo que funciona:
ref1 = Request.QueryString("ref1")
descripcio1 = Request.QueryString("descripcio1")
quantitat1 = Request.QueryString("quantitat1")
ref2 = Request.QueryString("ref2")
descripcio2 = Request.QueryString("descripcio2")
quantitat2 = Request.QueryString("quantitat2")
...

Ejemplo que no funciona:
For i = 1 to numProductes
execute ("ref" & i & " = " & Request.QueryString("ref"&i))
execute ("descripcio " & i & " = " & Request.QueryString("descripcio"&i))
execute ("quantitat" & i & " = " & Request.QueryString("quantitat"&i))
Next

El problema está en leer las variables dinámicament para luego montar un mail y enviarlo.

Necesito ayuda por favor

Gracias,

[bookmark]

Hola a ver si me podéis ayudar, no sé qué hacer... Os pongo el código entero de la página ASP que recibe las variables:

<%

Set oMail = Server.CreateObject ("CDONTS.NewMail")

oMail.BodyFormat = 0
oMail.MailFormat = 0

Remitente = Request.QueryString("email")
Destino = "[email protected]" 'Email de destino

Asunto = "Comanda online de www.xxx.com"
Nombre = Request.QueryString("usuari")
numProductes = Request.QueryString("numproductes")

'Si leo así los parámetros, manualmente no hay ningún problema
ref1 = Request.QueryString("ref1")
descripcio1 = Request.QueryString("descripcio1")
quantitat1 = Request.QueryString("quantitat1")
ref2 = Request.QueryString("ref2")
descripcio2 = Request.QueryString("descripcio2")
quantitat2 = Request.QueryString("quantitat2")
'...

'Así es como los tengo que leer ya que no sé cuantos me vienen. ESTO NO FUNCIONA
'For i = 1 to numProductes
' execute ("ref"&i&"="&Request("ref"&i))
' execute ("descripcio"&i&"="&Request("descripcio"&i))
' execute ("quantitat"&i&"="&Request("quantitat"&i))
'Next

strBody = strBody & "<font face='Verdana, Arial, Helvetica, sans-serif' size='2' color='#000000'>"
strBody = strBody & "Nom: "
strBody = strBody & "<b>" & Nombre & "</b><br>"
strBody = strBody & "Email: "
strBody = strBody & "<b>" & Remitente & "</b><br><hr>"
strBody = strBody & "Número de productes: "
strBody = strBody & "<b>" & numProductes & "</b><br>"
strBody = strBody & "COMANDA<br><br>"
strBody = strBody & "REFERÈNCIA | DESCRIPCIÓ | QUANTITAT<br>"
For i = 1 to numProductes
strBody = strBody & "<b>" & eval("ref"&i) & " | </b>"
strBody = strBody & "<b>" & eval("descripcio"&i) & " | </b>"
strBody = strBody & "<b>" & eval("quantitat"&i) & "</b>"
strBody = strBody & "<br>"
Next
strBody = strBody & "<br>"
strBody = strBody & "</font>"

Cuerpo = strBody

oMail.Send Remitente, Destino, Asunto, Cuerpo

Set oMail = Nothing

%>