Sub no funciona al identificar numero

[Julcar]

Holas, tengo el siguiente Sub

Código:

<%
Function filtrarNumero(ip, texto)
  Dim aIPS, i
  aIPS = array(62,77,78,79,80,81,82,83,84,85,86,87,88,89,90,91,92,93,94,95,109,178,188,193,194,195,199,212,213,217,190)
  For i = 0 to UBound(aIPS)
    If ip = aIPS(i) Then
      Response.Write texto
    End If
  Next
End Function

Dim visitante
visitante = Split(Request.ServerVariables("REMOTE_ADDR"),".",2)
filtrarNumero visitante(0), "hola mundo"
%>

Al subirlo al servidor y ejecutarlo no envia la cadena "hola mundo" a pesar de que he realizado esto:

Código:

Response.Write visitante(0)

Y bota el numero 190, es decir el ultimo item del array.

Y ya me tiene de cabeza ese procedimiento y no lo puedo hacer funcionar

Alguna idea?

[u_goldman]

Asegurate que la variable ip reciba un entero:

Código:

    If cint(ip) = aIPS(i) Then
      Response.Write texto
      'Adicionalmente me imagino que debes salir del for si esta condicion se cumple
      Exit For
    End If

Saludos

[Julcar]

U_G gracias!!!!

nunca me iba a imaginar que Split() envia los punteros del array como un string pero ya está solucionado y trabaja a las mil maravillas

por cierto, a quien le sirva, es una funcion para bloquear rangos de ips enteros asi que ya saben, si lo usan denme los creditos