<%

Function getIP()

Dim strIPAddr

ProxyIP=Request.ServerVariables("HTTP_X_FORWARDED_FOR")

If  ProxyIP="" OR InStr(ProxyIP,"unknown") >0 Then

strIPAddr = Request.ServerVariables("REMOTE_ADDR")

ElseIf InStr(ProxyIP, ",") >0 Then

strIPAddr = Mid(ProxyIP, 1, InStr(ProxyIP, ",")-1)

ElseIf InStr(ProxyIP, ";") >0 Then

strIPAddr = Mid(ProxyIP, 1, InStr(ProxyIP, ";")-1)

Else

strIPAddr =ProxyIP

End If

getIP = Trim(Mid(strIPAddr, 1, 30))

End Function

%>