Mostrando Codigo - Asp
EXPLICACION
Debemos modificar las urls de los banners y enlaces, en el ejemplo mostramos banners nulos.
<%
' Codigo ofrecido por http://www.tutores.org
Randomize(Cbyte(Left(Right(Time(),5),2)))
RANDOMVALUE =(Int((10 - 1 + 1) * Rnd + 1))
Select Case RANDOMVALUE
%>
<%' modificar las imagenes%>
<% Case 1 %>
<img src="imagen1.gif" alt="imagen1" width="460" height="60">
<% Case 2 %>
<img src="imagen2.gif" alt="imagen2" width="460" height="60">
<% Case 3 %>
<img src="imagen3.gif" alt="imagen3" width="460" height="60">
<% Case 4 %>
<img src="imagen4.gif" alt="imagen4" width="460" height="60">
<% Case 5 %>
<img src="imagen5.gif" alt="imagen5" width="460" height="60">
<% Case 6 %>
<img src="imagen6.gif" alt="imagen6" width="460" height="60">
<% Case 7 %>
<img src="imagen7.gif" alt="imagen7" width="460" height="60">
<% Case 8 %>
<img src="imagen8.gif" alt="imagen8" width="460" height="60">
<% Case 9 %>
<img src="imagen9.gif" alt="imagen9" width="460" height="60">
<% Case 10 %>
<img src="imagen10.gif" alt="imagen10" width="460" height="60">
<% End Select %>
ENLACE AL CODIGO
Si quieres enlazar desde tu pagina a este codigo
COMENTARIOS
Aun no existe ningun comentario para este Codigo.