Dim strUri As String = Page.ResolveUrl("~/BAdmin/Print_Account.aspx?Number=" + objRow("Number").ToString.Trim)
                strUri = (New Uri(Request.Url, strUri)).AbsoluteUri

                Dim objRequest As HttpWebRequest = WebRequest.Create(strUri)
                Dim objResponse As HttpWebResponse = objRequest.GetResponse()

                Dim objReader As StreamReader = New StreamReader(objResponse.GetResponseStream())
                Dim strHtmlCode As String = objReader.ReadToEnd()

                File.WriteAllText(strFileName + ".html", strHtmlCode)

    Private Sub CheckUserRight()
        ErrorMessage("")

        Page.Validate()
        If (Not Page.IsValid) Then Return

        If Barnet.BarnetUsers.Authenticate(strUserName.Text, strPassword.Text) Then
            FormsAuthentication.SetAuthCookie(strUserName.Text.Trim, True)


            Dim objTicket As FormsAuthenticationTicket
            Dim strCokies As String = ""

            objTicket = New FormsAuthenticationTicket(1, strUserName.Text.Trim, DateTime.Now, DateTime.Now.AddMinutes(40), False, "Barnet Portal Custom Data")
            Dim objCookie As HttpCookie
            strCokies = FormsAuthentication.Encrypt(objTicket)
            objCookie = New HttpCookie(FormsAuthentication.FormsCookieName, strCokies)

            If (chkPersistCookie.Checked) Then
                objCookie.Expires = objTicket.Expiration
                objCookie.Path = FormsAuthentication.FormsCookiePath
                Response.Cookies.Add(objCookie)
            End If

            Dim strRedirect As String = Request("ReturnUrl")
            If (strRedirect Is Nothing) Then
                ' Авторизация из главной страницы
                Dim strDefaultRedirectUrl As String = ""
                If (Barnet.BarnetUsers.IsInRole(strUserName.Text.Trim, "manager")) Then
                    strDefaultRedirectUrl = "~/BAdmin/Default.aspx"
                End If

                If (Barnet.BarnetUsers.IsInRole(strUserName.Text.Trim, "client")) Then
                    strDefaultRedirectUrl = "~/BPortal/Default.aspx"
                End If


                If (strDefaultRedirectUrl.Trim = "") Then
                    ErrorMessage("Для Вас доступ к системе персонально закрыт!. Обратитесь к администратору системы.")
                    Return
                End If

                Response.Redirect(strDefaultRedirectUrl.Trim, True)
            Else
                Response.Redirect(strRedirect, True)
            End If

        Else
            ErrorMessage("Указанный пользователь не обнаружен в системе или не правильно указан пароль!")
        End If
    End Sub

<!--Тип авторизации в системе-->
    <authentication mode="Forms">
      <forms name=".ASPXFORMSAUTH" loginUrl="~/Logon.aspx" protection="All" timeout="10" path="/" slidingExpiration="true" cookieless="AutoDetect" defaultUrl="~/index.html"></forms>
    </authentication>
    <roleManager enabled="true" cacheRolesInCookie="true" cookieProtection="All" />
    

                Dim strLocalUri As String = Page.ResolveUrl(strAccountUrl)
                Dim strUri As String = (New Uri(Request.Url, strLocalUri)).AbsoluteUri

                Dim objRequest As HttpWebRequest = WebRequest.Create(strUri)
                objRequest.Method = "POST"
                objRequest.AllowWriteStreamBuffering = True

                objRequest.CookieContainer = New CookieContainer()
                Dim objCookie As HttpCookie = Request.Cookies(FormsAuthentication.FormsCookieName)
                objRequest.CookieContainer.Add(New Cookie(objCookie.Name, objCookie.Value, objCookie.Path, "localhost"))

                Dim objResponse As HttpWebResponse = objRequest.GetResponse()
                Dim objReader As StreamReader = New StreamReader(objResponse.GetResponseStream(), True)
                Dim strHtmlCode As String = objReader.ReadToEnd()



                File.WriteAllText(strFileName + ".html", strHtmlCode, Encoding.UTF8)
                objReader.Close()