Copiar los codigos y pegar

<% '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.programatium.com/" ArrayLink(0,2)="Taller de Java,la coleccion de scripts mas grande de la red" ArrayLink(1,1)="http://www.lawebdelprogramador.com" ArrayLink(1,2)="LWP... (La Web del Programador)" ArrayLink(2,1)="http://www.programatium.com" ArrayLink(2,2)="Todos los manuales y Recursos deProgramacion" ArrayLink(3,1)="http://www.astalavista.com" ArrayLink(3,2)="AstaLaVista: Busca tu crack aqui" ArrayLink(4,1)="http://www.bolsamania.com" ArrayLink(4,2)="La web mas reconocida de finanzas" 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 %> <a target="new" href="<%=ArrayLink(Random,1)%>"> <%=ArrayLink(Random,2)%> </a> <% si = false NEXT %>