Lo he probado y me sale este error
Código:
Objeto Server error 'ASP 0177 : 800a004c'
Error en Server.CreateObject
/rotar.asp, line 9
00000000
Es la línea de la ruta de las imágenes, que es esta
Código:
Set ObjCarpeta = objFSO.GetFolder("imagenesrotar")
Pq este error?, les posteo todo mi código
Código:
<%@ language="VBSCRIPT" %>
<%
' Codigo ofrecido por tutores.org
Dim objFSO
Dim ObjCarpeta
Dim ObjArchivo
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Set ObjCarpeta = objFSO.GetFolder("imagenesrotar")
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>