Tema: ayuda con paginacion alfabetica
Ver Mensaje Individual
  #3 (permalink)  
Antiguo 21/06/2005, 10:23
Avatar de u_goldman
u_goldman
Moderador
  
Fecha de Ingreso: enero-2002
Mensajes: 8.031
Antigüedad: 23 años, 10 meses
Puntos: 98
Es correcto!

Aqui un ciclo para imprimir "la botonera"
Código: 
For y = asc("A") to asc("Z")
	If  chr(y) <> Ucase(letter) Then
		Response.Write("<a href=""?letter=" & chr(y) & """>" & chr(y) & "</a>")
	Else
		Response.Write(chr(y))
	End If
	If y <> asc("Z") Then
		Response.Write("&nbsp;|&nbsp;")
	End If
Next
Salu2,
__________________
"El hombre que ha empezado a vivir seriamente por dentro, empieza a vivir más sencillamente por fuera."
-- Ernest Hemingway