Selcionando 3 posições de um array aleatoriamente.

Alguém poderia dar uma testada neste script pra mim, aparentemente pela lógica esta tudo certo mas ele não esta rodando direito. Tipo, quanto troco o valor de while da pau, nem soma o valor de "i". Até parece que é minha máquina que esta com problemas.

Alguém testa isso ai pra mim.

A função disto é a seguinte: Tenho uma variável com valor "1,2,3,5,10,7,55,22,", devo pegar e randomizar três destes valores sem repeti-los para exibir uma imagem referênte a eles, estes números são os id's de cada registro no DB.

<%dim numeros,n,nrfunction verifica(valor)n = split(numeros,",")for i=0 to UBound(n)   if n(i) = valor then      verifica = "encontrado"      exit for   else      if i = UBound(n) then         verifica = "não encontrado"      end if   end ifnextend functionnumeros = "21,20,19,22,15,32,24,"nr = 22i=0while not i=3response.write verifica(nr) & " = " & nr & "<BR>"nr = nr + 1i = i + 1wend%>