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
%>

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