<%
 Dim temp, ip
  temp = Request.ServerVariables("HTTP_X_FORWARDED_FOR") 
  If temp <> "" Then
   ip = temp 
   Else 
   ip = Request.ServerVariables("REMOTE_ADDR") 
   End If
 %>
 
 IP adresiniz: <% Response.Write ip %>