Bueno, te paso este codigo que toma las imagenes de una carpeta, las cuenta y muestra una aleatoriamente, en este caso busca en la carpeta
galeria\mini:
Código:
<%'--------GENERAR IMAGEN ALEATORIA---------------------
Set ObjetoFSO = Server.CreateObject("Scripting.FileSystemObject")
'nos selecciona la carpeta en la que esta el archivo
Set ObjetoCarpeta = ObjetoFSO.GetFolder(Server.MapPath("galeria\mini"))
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
%>
<A href="imagen.asp?ver=<%=archivo(numero)%>"><IMG src="galeria/mini/<%=archivo(numero)%>" alt="Galeria" height="90" border="0"></A>
<%'--------TERMINA GENERAR IMAGEN ALEATORIA-------------%>