Problema em array

[renan.mafra 0]

Olá pessoal,

 

Eu quero pegar cada item distinto(sem repetições) de uma tabela

e guardar em um array, eu estou fazendo assim:

 

sqlstring = "SELECT DISTINCT produtos FROM avaliacoes"

-

-

quantidade = int(rs.recordcount - 1) ' a variavel quantidade é = 12

dim arrQuantidade(quantidade) ' AQUI DA ERRO

 

quando coloco a váriavel quantidade que é igual a 4

dentro da declaração do tamanho da array aparece um erro, por que isso

esta acontecendo ???

 

Aparece o seguinte erro:

 

Constante inteira esperada

 

dim arrQuantidade(quantidade)

------------------------^

[renan.mafra 0]

Pessoal, consegui usei o Redim arrQuantidade(quantidade).

 

 

Agora estou com a seguinte dúvida....

 

 

Como pego o maior valor de um número na array ?

Agora to com a seguinte dúvida, como faço

para classificar um array de acordo com seu valor ex:

 

Preciso classificar arrays de acordo com seu maior

valor, do maior até o menor valor do conteúdo

 

ex:

 

arrQuantidade(0) = 5,7

arrQuantidade(1) = 8,9

arrQuantidade(2) = 4,6

arrQuantidade(3) = 5,5

 

gostaria de dar um response.write de todos só que

do maior valor para o menor valor.... ex:

 

arrQuantidade(1) = 8,9 primeiro

arrQuantidade(0) = 5,7 segundo

arrQuantidade(3) = 5,5 terceiro

arrQuantidade(2) = 4,6 quarto

 

Como faço isso ??

[Ted k' 126]

isso resolve:

 

<%
dim arrQuantidade(3)
arrQuantidade(1) = 8.9 'primeiro
arrQuantidade(0) = 5.7 'segundo
arrQuantidade(3) = 5.5 'terceiro
arrQuantidade(2) = 4.6 'quarto 

maxArr = ubound(arrQuantidade)

for i = 0 to maxArr 
   for j = i + 1 to maxArr 
	  if (arrQuantidade(i) < arrQuantidade(j)) then
		  Temp = arrQuantidade(i)
		  arrQuantidade(i) = arrQuantidade(j)
		  arrQuantidade(j) = Temp
	 end if
   next 
next  

for i = 0 to maxArr 
  Response.write (arrQuantidade(i) & "<br />") 
next  
%>