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,