Disculapen amigos, ese dia tuve que salir de emergencia y no pude completar la pregunta, el codigo a que me rferia es este:
<%@ language="VBSCRIPT" %>
<%
' Codigo ofrecido por tutores.org
Dim objFSO
Dim ObjCarpeta
Dim ObjArchivo
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Set ObjCarpeta = objFSO.GetFolder("C:\Inetpub\wwwroot\asp\Portal_Co ntrol_Estudio\Fotos")
ReDim ArrayImagenes(0)
Indice=0
For Each ObjArchivo In ObjCarpeta.Files
Indice=Indice+1
ReDim Preserve ArrayImagenes(Indice)
Next
Set objCarpeta = Nothing
Set objArchivo = Nothing
Set objFSO = Nothing
%>
<HTML><HEAD><TITLE>MMi imagen aleatoria</TITLE></HEAD>
<BODY>
<%
Randomize Timer
al_azar=Int(Rnd()*(UBound(ArrayImagenes))+1)
%>
<img src="mis_imagenes\<%=ArrayImagenes(al_azar)%>">
</BODY>
<HTML>
Por favor revisenlo y me diga que esta mal???
Miguel
