Temas

Artistas

<% dim x(100,1) 'La Carpeta de las Imagenes... Const mypath="artistas/fotoportada/" Set filesystem = CreateObject("Scripting.FileSystemObject") Set folder = filesystem.GetFolder(server.mappath(mypath)) Set filecollection = folder.Files 'Listar archivo por archivo... idx=0 For Each file in filecollection idx=idx+1 x(idx,0)=file.name Next 'Elegir un archivo al azar randomize timer whichNO=int(rnd()*idx)+1 if x(whichNO,0)="1.jpg" or x(whichNO,0)="4.jpg" then x(whichNO,1)="http://www.alfonsodelarisca.com" if x(whichNO,0)="2.jpg" or x(whichNO,0)="8.jpg" then x(whichNO,1)="artistas/blaya" if x(whichNO,0)="3.jpg" or x(whichNO,0)="j2.jpg" or x(whichNO,0)="j3.jpg" then x(whichNO,1)="http://www.mlax.es" if x(whichNO,0)="7.jpg" or x(whichNO,0)="6.jpg" then x(whichNO,1)="artistas/barnuevo" if x(whichNO,0)="5.jpg" then x(whichNO,1)="http://www.alfonsoescudero.com" if x(whichNO,0)="j4.jpg" then x(whichNO,1)="http://www.mlax.es" if x(whichNO,0)="pb2.jpg" then x(whichNO,1)="artistas/blaya" 'Borrar... set filesystem=nothing set folder=nothing set filecollection=nothing 'Mostrar la Imagen response.write "" %>

Contenidos