Hola:
Tengo un archivo que he llamado alatoria.asp, el cual genera imagenes aleatoriamente, su codigo es el siguiente:
Código:
<%
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)%>
Devuelve la dirección de la imagen aleatoria.
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