Hola de nuevo, bien mi solucion final a sido esta:
valorproductos2 = ",-72--3--0--0--0--0--0--0-,-78--2--0--0--0--0--0--0-"
valorproductos = right(valorproductos2,len(valorproductos2)-1)
valorsincoma = Split(valorproductos,",")
for I=LBound(valorsincoma) to UBound(valorsincoma)
valorsinguinfinal = left(valorsincoma(I),len(valorsincoma(I))-1)
valorsinguinfinal = right(valorsinguinfinal,len(valorsinguinfinal)-1)
valorsinguinfinal2 = replace(valorsinguinfinal,"--","-")
valorsincoma2 = Split(valorsinguinfinal2,"-")
n = 0
for I2=LBound(valorsincoma2) to UBound(valorsincoma2)
n = n + 1
if n = "1" then
nuemroid = valorsincoma2(I2)
response.cookies("idm")(nuemroid) = valorsincoma2(I2)
Diccionario.add "idm"&nuemroid, valorsincoma2(I2)
elseif n = "2" then
response.cookies("elementosm")(nuemroid) = valorsincoma2(I2)
Diccionario.add "elementosm"&nuemroid, valorsincoma2(I2)
end if
next
next
De esta forma e ido sacando los productos.
A lo primero habia utilizado cookies para almacenar los datos pero al compilarlo en un .exe no me recogia los valores, despues de preguntar en este mismo foro y comentarme lo del objeto diccionario decidi cambiar las cookies por esto último y ahora funciona todo a la perfección.
Un saludo
