random sub

[deccweb]

Como puedo hacer un random sobre "SUB"?

<% Sub uno %>
<table width="130" border="0" cellpadding="0" cellspacing="0">
<tr>
<td><img src="eltiempo.jpg"></td>
</tr>
<tr>
<td><table cellspacing=1 cellpadding=3 bgcolor="#000000" width=130>
<tr>
<td bgcolor=eeeeee><a href="eltiempo.asp"><img src="http://www.meteored.com/ccaa/imagenes/catalunya.gif" width=122 border="0"></a>
</td>
</tr>
</table><br>
<% End Sub %>


<% Sub dos %>
<table width="130" border="0" cellpadding="0" cellspacing="0">
<tr>
<td><img src="eltiempo.jpg"></td>
</tr>
<tr>
<td><table cellspacing=1 cellpadding=3 bgcolor="#000000" width=130>
<tr>
<td bgcolor=eeeeee><a href="eltiempo.asp"><img src="http://www.meteored.com/ccaa/imagenes/andalucia.gif" width=122 border="0"></a>
</td>
</tr>
</table><br>
<% End Sub %>

[Muzztein]

mmmm yia ....

[u_goldman]

No entendi nada...sera que es viernes??

Salu2,

[deccweb]

jeje! Pues imaginense que tengo 4 subs diferentes, pues quiero que me haga un random de los 4 y solo me aparezca uno de los 4.

[u_goldman]

Sigo sin entender, lo que tu quieres es llamar a una Sub aleatoriamente?
Hazte una rutina que te devuelva un numero entre 1 y 4 de manera aleatoria, me parece que en la biblioteca de funciones hay alguna...despues pasa ese numero por un case y lo mandas a la sub respectiva, sub1, sub2, sub3, sub4.
Es eso????

[deccweb]

si si! es que no sabia si se podia hacer. Gracias por la aclaración

[AlZuwaga]

Mmm igual no sé si se pueda ejecutar aleatoriamente varias subs de ese modo. Creo que lo ideal sería hacer sólo una SUB que se encargue de "aleatorizar" algo (en este caso el nombre de la imagen.. porque aparentemente es lo único que cambia en el código). Propongo algo así:

Código:

<%
Function LugarAleatorio()
	Randomize
	NumeroAleatorio = int(rnd*4)
	Select Case NumeroAleatorio
		Case 0
		LugarAleatorio = "catalunya"
		Case 1
		LugarAleatorio = "andalucia"
		Case 2
		LugarAleatorio = "Otro lugar"
		Case 3
		LugarAleatorio = "Y otro lugar"
	End Select
End Function
%>

<% VarLugar = LugarAleatorio() %>
<table width="130" border="0" cellpadding="0" cellspacing="0">
<tr>
<td><img src="eltiempo.jpg"></td>
</tr>
<tr>
<td><table cellspacing=1 cellpadding=3 bgcolor="#000000" width=130>
<tr>
<td bgcolor=eeeeee><a href="eltiempo.asp"><img src="http://www.meteored.com/ccaa/imagenes/<% = VarLugar %>.gif" width=122 border="0" alt="<% = VarLugar %>"></a>
</td>
</tr>
</table><br>

[u_goldman]

Pues si, mejor solucion

[AlZuwaga]

Psstt... u_g... igual creí que estabas diciendo algo así como...

Código:

varAleatoria = ' acá te devuelve un número... del 1 al 4
Call SuB & varAleatoria()

... en vez de lo siguiente (que creo ahora que a eso te referías)...

Código:

Select Case varAleatoria
Case 1 Call Sub1()
Case 2 Call Sub2()
...
End Select

Lo primero no se puede hacer (por eso decía "igual no sé si se pueda ejecutar aleatoriamente varias subs de ese modo") y lo segundo si.

Igual, con una sola función se puede hacer.

Salú

[u_goldman]

... en vez de lo siguiente (que creo ahora que a eso te referías)...


Código:
Select Case varAleatoria
Case 1 Call Sub1()
Case 2 Call Sub2()
...
End Select

Si, a eso me referia, pero igual tu solucion es mejor...