Take the agent, display the client IP address

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