Registros aleatorios no repetidos

[lexus]

hola he probado tu codigo y al parecer se queda en un ciclo infinito porque nunca termina de cargar la pagina, porfa que puede ser?
<%
'####################
'# Funciónes creadas por Isaí/Meruelo
'# Optimizadas por meruelo
'####################
Function RanNum(inicio, fin)
Randomize()
RanNum = Int((fin - inicio + 1) * Rnd + inicio)
End Function

Function chkRan(num, pos)
p = val_inicial
Do while p <= val_final
For d=0 To d=9
If arreglo(d)=num then
arreglo(pos) = RanNum(val_inicial, val_final)
p = 1
Else
chkRan = num
p = p + 1
End if
Next
Loop
End Function

Function getArray(val_inicial, val_final)
indice_elem_actual=0
Do While indice_elem_actual<=numero_elementos
numero=RanNum(val_inicial,val_final)
For j=0 To (numero_elementos)
If arreglo(j)=numero Then
numero=RanNum(val_inicial,val_final)
j=0
End If
Next
arreglo(indice_elem_actual)=chkRan(numero, pos)
indice_elem_actual=indice_elem_actual+1
Loop
End Function
%>





<%
'Despues, simplemente, definir el arreglo


Dim arreglo()



'Y, como ejemplo, crear un bucle para mostrar todos los números que saca



i = 0
numero_elementos= 4
Redim arreglo(numero_elementos)
call getArray(1, numero_limite)
Do While i < numero_elementos
response.write arreglo(i)
i = i + 1
Loop


%>