Numeros Aleatorios

[indis]

Quiero generar 6 numeros aleatorios entre 1 y 49, pero que los
numeros no se repitan.
Tengo esta programacion pero me sale un error, no se que
pasa que no corre el asp.

Me pueden ayudar.?

Gracias

INDI


----------------------

<%
Dim N (1 To 6) As Integer
Dim i As Integer, j As Integer
Dim A As Integer, OK As Boolean

Randomize Timer

N(1) = 1 + Int(Rnd * 49)
For i = 2 To 6
Do
A = 1 + Int(Rnd * 49)
OK = True
For j = 1 To i - 1
If N(j) = A Then
OK = False
Exit For
End If
Next j
Loop Until OK
N(i) = A
Next i

Cls
For i = 1 To 6
Print "N("; i; ")="; N(i)
Next i
%>

------------------------

[Don Graff]

Mensaje Original por indis
<%
Dim N (1 To 6) As Integer
Dim i As Integer, j As Integer
Dim A As Integer, OK As Boolean

Randomize Timer

N(1) = 1 + Int(Rnd * 49)
For i = 2 To 6
Do
A = 1 + Int(Rnd * 49)
OK = True
For j = 1 To i - 1
If N(j) = A Then
OK = False
Exit For
End If
Next j
Loop Until OK
N(i) = A
Next i

Cls
For i = 1 To 6
Print "N("; i; ")="; N(i)
Next i
%>

------------------------

lo que esta en negritas no es ASP...

[indis]

Gracias por tu tiempo.
Entonces que hago?

gracias

[meru-kun]

Response.write "N("; i; ")="; N(i)

[indis]

cuando corro la pagina me sale esto:

Error Type:
Microsoft VBScript compilation (0x800A03EE)
Expected ')'
/mega-2.asp, line 2, column 9
Dim N (1 To 6) As Integer

[indis]

algien me pude ayudar, me sigue saliendo esto:

Error Type:
Microsoft VBScript compilation (0x800A03EE)
Expected ')'
/mega-2.asp, line 2, column 9
Dim N (1 To 6) As Integer


gracias

[u_goldman]

Pos mas bien yo no veo mucho asp aquí, lo adapté un poco, a ver si te sirve

<%
Dim N (6)
Dim i, j
Dim A, OK

Randomize Timer

N(1) = 1 + Int(Rnd * 49)
For i = 2 To 6
Do
A = 1 + Int(Rnd * 49)
OK = True
For j = 1 To i - 1
If N(j) = A Then
OK = False
Exit For
End If
Next
Loop Until OK
N(i) = A
Next

'Cls
For i = 1 To 6
Response.Write("N("& i & ")=" & N(i))
Next
%>

Salu2,

[indis]

Gracias ya me funciona


Indis