hola, muchas gracias por contestar, de esa forma lo tenia, pero me daba la ip del proxy, y queria que muestre la ip real, lo he conseguido cone sto:
ip = CStr(request.ServerVariables("HTTP_CLIENT_IP"))
pues asi lo solucione , si alguien mas tiene esa duda ahy está.
saludos