Função "UBound "

[marciolvs 1]

Alguem sabe se consigo trocar esta função por uma outra que faz o mesmo ?

Ao exibir a página ele me dá o erro:

Microsoft VBScript runtime erro '800a000d'

 

Type mismatch: 'UBound'

 

Simplesmente que dá este erro de imcompatibilidade, mas não sei doq tbm, acredito ser do servidor.

[hargon 64]

Qual o objetivo?

 

Essa função apenas retorna o tamanho do vetor.

[marciolvs 1]

Qual o objetivo?

 

Essa função apenas retorna o tamanho do vetor.

 

Então, tipo é um sistema que peguei esta parte pronta e um dia ele funciona redondinho no servidor e no outro para do nada.

[hargon 64]

Mas você precisa substituir a função para saber o que?

 

Utilizando UBOUND, presume-se que você está utilizando um array e precisa do retorno dele.

 

No caso você quer saber o tamanho do array sem utilizar essa função? É essa a idéia?

[marciolvs 1]

Mas você precisa substituir a função para saber o que?

 

Utilizando UBOUND, presume-se que você está utilizando um array e precisa do retorno dele.

 

No caso você quer saber o tamanho do array sem utilizar essa função? É essa a idéia?

 

O que tenho é

 

 n = UBound(usuario)

 

pelo que entendi no sistema ele conta o o total de login ativo no momento.

[hargon 64]

Como disse, ubound só retorna o tamanho do vetor.

 

Não existe outra função para isso. O máximo que você pode fazer é utilizar essa que criei abaixo, faz a mesma coisa:

<%
valor = array(0,1,2,3,4,5,6)

Function uBoundF(vetor)
	Dim i, x
	i = 0
	If isArray(vetor) Then
		For Each x In vetor
			i = i + 1
		Next
		If (i > 0) Then
			i = i - 1
		End If
	End If
	uBoundF = i
End Function

Response.Write uBoundF(valor)
%>

Obs. Se dar o erro, é porque a variável não é um vetor. No caso, você poderia verificar antes, utilizando isArray.