Yo esto lo uso para mostrar una imagen de manera aleatoria tomandolas desde una carpeta con FSO
Código:
<TABLE width="160" border="0" cellspacing="0" cellpadding="1" style="border: 1px solid #000066;">
<TR align="center" valign="top" bgcolor="#FF8715" class="normal">
<TD>
<%
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
%> <STRONG>Imagen del dia</STRONG>
<A href="imagen.asp?ver=<%=archivo(numero)%>"><IMG src="galeria/mini/<%=archivo(numero)%>" width="150" border="0"></A><BR>
<%= replace(archivo(numero),".jpg","")%>
</TD>
</TR>
</TABLE>
Espero te pueda servir