25/07/2002, 15:37
|
 | Colaborador | | Fecha de Ingreso: febrero-2001 Ubicación: 34.517 S, 58.500 O
Mensajes: 14.550
Antigüedad: 24 años, 2 meses Puntos: 535 | |
| Re: Se me esta quemando el coco y no puedo
Fijate si esto te sirve:
Código:
<%
Arreglo = "|"
Do While i < 10
Randomize
minimo = 1
maximo = 24
Random_Number = Int(((maximo-minimo+1) * Rnd) + minimo)
If InStr(Arreglo, "|" & Random_Number & "|") = 0 then
i = i + 1
Arreglo = Arreglo & Random_Number & "|"
End if
loop
Arreglo = Split(Arreglo, "|")
For j = 1 to UBound(Arreglo) - 1
Response.Write j & ": " & Arreglo(J) & "<br>"
Next
%>
|