<% Dim UserIPAddress UserIPAddress = Request.ServerVariables("HTTP_X_FORWARDED_FOR") If UserIPAddress = "" Then sIPAddress = Request.ServerVariables("REMOTE_ADDR") End If %>