Un ejemplo para mostrar links en forma diferente cada vez que se ingresa. Para verlo cambiar, hagan un refresh
y verán que el orden de los siguientes links será diferente. La forma de hacerlo, es creando un array bidimensional, y buscando mediante un random
las posiciones.
<% 'Hacemos un array bidimensional.
Dim ArrayLink(4,2) 'Ponemos los links en el array. 'Si desean más links, deben agrandar el array. 'El primer elemento de cada array será la URL donde apuntar. 'El segundo elemento es la descripcion del sitio. Como se verá.
ArrayLink(0,1)="http://www.soloasp.com.ar/"
ArrayLink(0,2)="Solo ASP, con ejemplos, artículos, foro de discusión"
ArrayLink(1,1)="http://www.lawebdelprogramador.com"
ArrayLink(1,2)="LWP... (La Web del Programador)"
ArrayLink(2,1)="http://www.QuakeUno.com.ar"
ArrayLink(2,2)="Te gusta el Quake? Todo sobre Q1"
ArrayLink(3,1)="http://www.astalavista.com"
ArrayLink(3,2)="AstaLaVista: Busca tu crack aqui"
ArrayLink(4,1)="http://www.wavenet.com.ar"
ArrayLink(4,2)="Hosting para tu web"
Randomize
noelegir = "#" 'Hacemos un bucle FOR hasta alcanzar la última dimension del array.
FOR i=0 TO UBound(ArrayLink)
Do While Not si = True 'Guardamos en la variable Random el numero aleatorio que salio con Rnd.
Random = Int(Rnd * (Ubound(ArrayLink)+1))
IF InStr(noelegir,"#" & Random & "#")=0 THEN
si = true
noelegir = noelegir & Random &"#"
END IF
Loop
%>
