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