Listo! ya está corregido!, había sido que no me estaba extrayendo los datos de la BD y bueno solucioné eso y después surgió otro problema, que sp(0) me lo tomaba fuera de rango, así que para solucionarlo lo metí dentro de un bucle for el cuál misteriosamente lo solucionó.
Bueno acá dejo el código final por si alguien le interesa :P
Código:
<%
dim texto
texto = rs("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, x, sp
prod_cant = split(texto, "|")
For i = 0 to ubound(prod_cant)
sp = split(prod_cant(i), "--")
for x = 1 to ubound(sp)
Response.write("<input disabled type='text' size=30 name='prod"&i&"' id='prod"&i&"' value='"&sp(0)& "'><input disabled type=text size=7 name='cant"&i&"' id='cant"&i&"' value='"&sp(1)&"'>" & "<br>")
next
next
%>
Saludos y muchas gracias Myakire por tu gran ayuda!