Dim url As String = HttpContext.Current.Request.Url.AbsoluteUri Dim path As String = HttpContext.Current.Request.Url.AbsolutePath Dim host As String = HttpContext.Current.Request.Url.Host