no repetir preguntas. . .

[AlfaCenturio]

Que tal a todos Uds. en este foro. . .

En asp tengo un arreglo con un determinado numero de preguntas, de las cuales se mostraran 3 de ellas aleatoriamente y en lista ordenada como se puede ver en el siguiénte código:

Código:

<%
dim arreglo
dim limite

arreglo = array("¿Archivo editable de Flash?","¿Simbolo que se puede programar?","¿FPS de una linea de tiempo estandar?","¿Funcion para detener linea de tiempo?","¿Metacomando para separar un objeto?","¿Tecla de función para crear un nuevo fotograma clave?","¿Cuantos tipod se animaciones existen?")
 
limite = ubound(arreglo)

function pregazar(limite)
    randomize()
    aleatorio = int(rnd*limite)
    response.write arreglo(aleatorio)
end function
   
response.write("<ol>")	 
response.write("<li>")
response.write(pregazar(limite))    
response.write("<li>")  
response.write(pregazar(limite))    
response.write("<li>")
response.write(pregazar(limite))      
response.write("</ol>")	   
%>

¿Cómo podría hacerle para que las preguntas que se muestran no se repitan, es decir, que las 3 preguntas que se muestran sean siempre diferentes?

Saludos.

[AlZuwaga]

Hola, a mi se me ocurre algo así:

Código:

<%
arreglo = array("¿Archivo editable de Flash?","¿Simbolo que se puede programar?","¿FPS de una linea de tiempo estandar?","¿Funcion para detener linea de tiempo?","¿Metacomando para separar un objeto?","¿Tecla de función para crear un nuevo fotograma clave?","¿Cuantos tipod se animaciones existen?")
limite = ubound(arreglo)
cuantos = 3

function pregazar(limite, cuantos)
	tmp = ""
	i = 1
	randomize()
	while i <= cuantos
		aleatorio = int(rnd*limite)
		if InStr(tmp, aleatorio) = 0 then
			tmp = tmp & aleatorio & ","
			i = i + 1
		end if
	wend
	pregazar = split(left(tmp, len(tmp) - 1), ",")
end function

arr = pregazar(limite, cuantos)

response.write "<ol>"
for i = 0 to cuantos - 1
	response.write "<li>" & arreglo(arr(i)) & "</li>"
next
response.write("</ol>")
%>

Saludos

[AlfaCenturio]

Gracias Al Zuwaga por la ayuda . . .