Ups! perdón lo que pasa es que llevaba un tiempito sin dormir, así que mis neuronas no estaban en la mejor sincronía, volviendo a pedir disculpas aquí va el código:
Código:
<%
dim texto
texto = request("prod")
texto = Trim(texto)
'si existen espacios dobles en la cadena, los eliminamos con este bucle
Do While InStr(1, texto, " ") > 0
texto = Replace(texto, " ", " ")
Loop
'y hacemos un vector con sus palabras
Dim prod_cant, w, sp
prod_cant = split(texto, "|")
x=0
For i = 0 to ubound(prod_cant)
prod = "prod" & x
cant = "cant" & x
sp = split(prod_cant(i), "--")
w = prod & "=" & sp(0)
m = cant & "=" & sp(1)
Response.write("<input disabled type=text size=30 name=prod"&i&" id=prod"&i&" value="&w& "><input disabled type=text size=7 name=cant"&i&" id=cant"&i&" value="&m&">")
x = x+1
next
%>
Por cierto he probado lo que me pusiste arriba y no me ha funcionado
