Hola de nuevo, aqui te dejo otro ejemplo:
Código PHP:
<%
Dim Cont,Ciclo,Arreglo(10),Resultado
For Cont = 1 To 10
Arreglo(Cont) = "../Archivos"&Cont&"@Producto"&Cont
Response.Write(Arreglo(Cont)&"<br/>")
Next
Response.Write("<br/>")
For Ciclo = 1 To Cont-1
Resultado = Split(Arreglo(Ciclo),"@",-1)
Response.Write(Resultado(0)&"<br/>")
Response.Write(Ciclo&"<br/>")
Next
%>
Hasta la próxima.