Direcciones IP

He desarrollado la siguiente función para recuperar la IP del usuario que
visita mi página

<%
function ip (addr, host, client, x)

dim temp, arr()
if not isempty(x) and x <> "" then
temp = x
elseif not isempty(client) and client <> "" then
temp = client
elseif not isempty(addr) and addr <> "" then
temp = addr
else
temp = "0.0.0.0"
end if
if len(temp) > 15 then
arr() = split(temp,",")
temp = arr(0)
end if
ip = temp

end function
%>

A la función se le pasan como parámetros las variables de servidor
REMOTE_ADDR, REMOTE_HOST, HTTP_CLIENT_IP y HTTP_X_FORWARDED_FOR. La variable
REMOTE_HOST creo que no es necesaria y de hecho no la utilizo en la función,
pero por si acaso la he incluido como parámetro. Me gustaría que me dijerais
si veis correcta la función, sobre todo la parte final, porque tengo
entendido que algunos servidores devuelven más de una IP separadas por
comas. Gracias.

Carlos V

"Carlos V" escribió en el mensaje
news:%

¿Alguien puede decirme las diferencias, y lo que me está devolviendo en

cada

caso, entre las variables de servidor REMOTE_ADDR y HTTP_CLIENT_IP? Y si

ya

puede explicarme REMOTE_HOST y HTTP_X_FORWARDED_FOR me haría el favor
completo. Muchas gracias.

Carlos V