ASP get client IP address function

The ASP obtains the visitor real IP address function

Private Function GetIP ()
Dim stripaddr
If Request.ServerVariables ("http_x_forwarded_for") = "" Or InStr (Request.ServerVariables ("Http_x_forwarded_for"), " Unknown ") > 0 Then
STRIPADDR = Request.ServerVariables ("REMOTE_ADDR")
ElseIf InStr (Request.ServerVariables ("Http_x_forwarded_for"), "," > 0 Then
STRIPADDR = Mid (Request.ServerVariables ("Http_x_forwarded_for"), 1, InStr (Request.ServerVariables ("HTTP_X_ Forwarded_for "),", ")-1)
Actforip = Request.ServerVariables ("REMOTE_ADDR")
ElseIf InStr (Request.ServerVariables ("Http_x_forwarded_for"), ";") > 0 Then
STRIPADDR = Mid (Request.ServerVariables ("Http_x_forwarded_for"), 1, InStr (Request.ServerVariables ("HTTP_X_ Forwarded_for "),"; ") -1)
Actforip = Request.ServerVariables ("REMOTE_ADDR")
Else
STRIPADDR = Request.ServerVariables ("Http_x_forwarded_for")
Actforip = Request.ServerVariables ("REMOTE_ADDR")
End If
GetIP = Replace (Trim (Mid (stripaddr, 1, 30)), "'", ""
End Function

Call method: <%=getip ()%>