Tengo un archivo que he llamado alatoria.asp, el cual genera imagenes aleatoriamente, su codigo es el siguiente:
Código:
Devuelve la dirección de la imagen aleatoria.<% Set ObjetoFSO = Server.CreateObject("Scripting.FileSystemObject") 'nos selecciona la carpeta en la que esta el archivo Set ObjetoCarpeta = ObjetoFSO.GetFolder(Server.MapPath("imagenes")) i=0 cuenta=0 For each Fichero in ObjetoCarpeta.Files cuenta=cuenta+1 Next if cuenta>0 then cuenta=cuenta-1 redim archivo(cuenta) For Each Fichero in ObjetoCarpeta.Files archivo(i)=Fichero.Name i=i+1 Next Randomize minimo = 0 maximo = cuenta numero = Int(((maximo-minimo+1) * Rnd) + minimo) 'response.write archivo(numero) Set Fichero = Nothing Set ObjetoCarpeta = Nothing Set ObjetoFSO = Nothing %> <%= archivo(numero)%>
Me gustaría modificarle para que desde index.asp llamaramos a aleatoria.asp y nos devuelva la dirección de la imagen.
¿Como lo puedo hacer?
Muchas Gracias