
16/05/2005, 18:25
|
 | | | Fecha de Ingreso: octubre-2004 Ubicación: Argentina
Mensajes: 836
Antigüedad: 20 años, 7 meses Puntos: 4 | |
tenes que tener una carpeta BANNER con todos los banners que queres rotar y ademas denominarlos con los días que queres mostrar (lun-mier-vier.gif/mar-dom.gif)
fijate si te sirve:
fecha=date()
dia=Weekday(fecha)//con esto obtengo el número del día de la semana(1 es domingo,2 es lunes,...)
dia=WeekDayName(dia, True)
'con lo siguiente , creas el objeto y abres la carpeta "banner"
Set fso = CreateObject("Scripting.FileSystemObject")
Set folder = fso.GetFolder(server.mappath("banner/"))
Set filex = folder.Files
' luego de abrir , con un bucle revisas todos los archivos que tienes en la carpeta banner
For Each listing in filex
cantidad=cantidad+1
'de esta formas obtienes el nombre del archivo por cada vez que gira el bucle
titulo=listing.name
' solo restaría comprobar que en el nombre del archivo esté el día que buscas
if InStr(1,titulo,dia,1) then
'si lo encuentra, lo muestras mediante response.write
response.write "<img src=""banner/" & titulo & """ alt=""" & dia & """>"
else
'si no encuentra no hace nada
end if
' y vuelve a realizar el bucle
next
set folder=nothing
response.write cantidad ///// con esto solamente es para ver cuantos banners en total tienes
response.write dia /// es para ver el valor de l a variable dia
este codigo te selecciona los banner segun el día del servidor.
para rotarlos usá javascript.
cualquier otra idea , será bienvenida
suerte
__________________ by Capitán Buscapina
. |