Dim user_IP As String
'proxy
If Not Request.ServerVariables("HTTP_VIA") Is Nothing Then
user_IP = Request.ServerVariables("HTTP_X_FORWARDED_FOR").ToString()
Else
user_IP = Request.ServerVariables("REMOTE_ADDR").ToString()
End If
'client ip address
TextBox1.Text = user_IP
'server name
TextBox2.Text = Server.MachineName
