[ { "Id": "691163", "ThreadId": "277638", "Html": "\r\n

I have been implementing  a year end processing web page as part of our site and used the article,\r\nhttp://www.4guysfromrolla.com/articles/092910-1.aspx, as a guide. Everything works just fine for creating the zip file. Even being able to allow the user to save the zip to CD/DVD or anywhere\r\n else.

\r\n

 My problem comes just after completing the download where I want to update a textbox and button text. They happen in code but the client’s page never gets refreshed showing the text.

\r\n

 Can you help?

\r\n

 Here is the ASPX source:

\r\n

 <%@ Page Title="" Language="vb" AutoEventWireup="false" MasterPageFile="~/App_Masters/MasterPage.Master"

\r\n
    CodeBehind="YearEnd.aspx.vb" Inherits="Community.YearEnd1" Async="true" %>
\r\n
\r\n
<%@ Register Assembly="TALogicWebControlLibrary" Namespace="TALogicWebControlLibrary.TALogicCustomWebControls"
\r\n
    TagPrefix="cc1" %>
\r\n
<asp:Content ID="Content1" ContentPlaceHolderID="ContentPlaceHolder1" runat="server">
\r\n
    <table id="tblYearEnd" style="color: navy; width: 600; text-align: center; padding: 5;
\r\n
        border: thick ridge #f0f8ff; background-color: #f0f8ff;">
\r\n
        <tr>
\r\n
            <td style="background-image: url(../Backgrounds/TextRow.gif)">
\r\n
                <span style="color: #f5f5f5; font-size: 14pt; text-decoration: underline"><strong>
\r\n
                Community Year
\r\n
                    End Processing</strong></span>
\r\n
            </td>
\r\n
            <td style="background-image: url(../Backgrounds/TextRow.gif)">
\r\n
                <cc1:PopupBrowser ID="PopupBrowser1" runat="server" ImageUrl="../Images/Help.gif"
\r\n
                    LinkUrl="~/Popups/YearEnd.htm" PopupLocation="TopLeft" 
\r\n
                    ToolTip="Community backup help." />
\r\n
            </td>
\r\n
        </tr>
\r\n
        <tr>
\r\n
            <td colspan="2" style="white-space: nowrap" align="left">
\r\n
                <p align="center">
\r\n
                    Year End Processing performs the following tasks:</p>
\r\n
            </td>
\r\n
        </tr>
\r\n
        <tr>
\r\n
            <td colspan="2" align="left" width="600">
\r\n
                <ol>
\r\n
                    <li>Backup the community database to a dated backup.</li>
\r\n
                    <li>Creates a Zip File of the current community data. This includes all ads, 
\r\n
                        attachments, community documents, events, financials, images, imports, insurance 
\r\n
                        documents, legal documents, letters, minutes,
\r\n
                        newsletters, operational documents, policy documents, proxy documents, home page 
\r\n
                        features, 
\r\n
                        vendor, and video information as well as the previously created date backup of the&nbsp;database.</li>
\r\n
                    <li>Deletes community data over 7 years old in accordence with IRS practices. This includes all events, financials, 
\r\n
                        insurance documents,&nbsp; letters, minutes,
\r\n
                        newsletters,&nbsp; proxy, vendor specific documents, and video information.</li>
\r\n
                    <li>Updates the database to reflect the deleted old community data.</li>
\r\n
                    <li>It is recommended that the created Zip archive be saved to a safe place or to a 
\r\n
                        CD/DVD for safe keeping.</li>
\r\n
                </ol>
\r\n
            </td>
\r\n
        </tr>
\r\n
        <tr>
\r\n
            <td colspan="2">
\r\n
                Once started, <span style="color: maroon; text-decoration: underline;">Do Not Turn Off</span> your computer!
\r\n
                <br />
\r\n
                Year End Processing will be completed successufully when download completes.
\r\n
            </td>
\r\n
        </tr>
\r\n
        <tr>
\r\n
            <td colspan="2">
\r\n
                    <asp:Button runat="server" ID="BtnYearEnd" OnClientClick="this.disabled = true; this.value = 'Processing... Please Wait!';"
\r\n
                        UseSubmitBehavior="false" Text="Start Year End Processing" CommandName="StartYearEnd" />
\r\n
\r\n
                    <br />
\r\n
                    <asp:TextBox ID="TextBox1" runat="server" Visible="False"></asp:TextBox>
\r\n
            </td>
\r\n
        </tr>
\r\n
        </table>
\r\n
</asp:Content>
\r\n

 Here is the code that is run in the button command (I marked the parts that don’t seem to fire):

\r\n

     Private Sub BtnYearEnd_Command(sender As Object, e As System.Web.UI.WebControls.CommandEventArgs) Handles BtnYearEnd.Command

\r\n

        Select Case e.CommandName

\r\n

            Case "StartYearEnd"

\r\n

                Try

\r\n

                    'Get the path to the Database Backup directory for this community

\r\n

                    Dim bUri As String = GetBackupsRelativeUri(Session("Community_Id"))

\r\n

                    Dim bMappedPath As String = Server.MapPath(bUri)

\r\n

                     'Get the path to the Data directory for this community

\r\n

                    Dim rUri As String = GetCommunityRelativeUri(Session("Community_Id"))

\r\n

                    Dim sMappedPath As String = Server.MapPath(rUri)

\r\n

                     'Get the path to the Common files directory

\r\n

                    Dim cUri As String = GetCommonDataRelativeUri()

\r\n

                    Dim cMappedPath As String = Server.MapPath(cUri)

\r\n

                     'Get the path to the Management directory for this community

\r\n

                    Dim thisAssoc As Association = New Association

\r\n

                    Dim assocDetail As AssociationDetail = thisAssoc.GetAssociationDetail(Session("Community_Id"))

\r\n

                    Dim mUri As String = GetMgmtRelativeUri(assocDetail.ManagementId)

\r\n

                    Dim mMappedPath As String = Server.MapPath(mUri)

\r\n

 #If DEBUG Then

\r\n

                    If True Then '(for testing only - Does NOT create database backup)

\r\n

#Else

\r\n

                    'Do a dbBackup to be included in the archive

\r\n

                    If BackupDatabase(bMappedPath, backupType.Dated) Then

\r\n

#End If

\r\n

                        Try

\r\n

                            'Ok to archive now

\r\n

                            Using zip As New ZipFile()

\r\n

                                Response.Clear()

\r\n

                                Response.BufferOutput = False

\r\n

                                 Dim c As System.Web.HttpContext = System.Web.HttpContext.Current

\r\n

                                Dim ReadmeText As String = String.Format("README.TXT" & vbCrLf & _

\r\n

                                                     "This is a zip file that was dynamically generated at {0} " & _

\r\n

                                                     "as part of the community year end processing for the '{1}' community." & vbCrLf & _

\r\n

                                                     "It includes community data that was in affect when this archive was created." & vbCrLf & _

\r\n

                                                     "It is further recommended that this archive be saved in a save place.", _

\r\n

                                                     System.DateTime.Now.ToString(), _

\r\n

                                                     assocDetail.AssocName)

\r\n

                                 Dim archiveName As String = String.Format("archive-{0}.zip", DateTime.Now.ToString("yyyy-MMM-dd-HHmmss"))

\r\n

                                Response.ContentType = "application/zip"

\r\n

                                Response.AddHeader("content-disposition", "filename=" + archiveName)

\r\n

                                 'Add the Readme.txt file

\r\n

                                zip.AddEntry("Readme.txt", ReadmeText, Encoding.Default)

\r\n

                                 'Process all the Community Data directories & sub directories

\r\n

                                ArchiveFiles(sMappedPath, zip)

\r\n

                                 'Process all the Community Common directories & sub directories

\r\n

                                ArchiveFiles(cMappedPath, zip)

\r\n

                                 'Process all the Community Management directories & sub directories

\r\n

                                ArchiveFiles(mMappedPath, zip)

\r\n

                                 'Save the archive

\r\n

                                zip.Save(Response.OutputStream)

\r\n

                            End Using

\r\n

                            Response.Close()

\r\n

                             'Zip was created OK - Delete old records

\r\n

                            DeleteOldFiles(sMappedPath, CInt(Session("Community_Id")))

\r\n

 

\r\n

                          ‘******************** This is the part that never gets\r\n back to the client ************************

\r\n

                            'Completed Successfully

\r\n

                            TextBox1.Text = "Year End Processing is done: " & DateTime.Now.ToLongTimeString()

\r\n

                            TextBox1.Visible = True

\r\n

 

\r\n

                            sender.Enabled = False

\r\n

                            sender.Text = "Completed Successfully!"

\r\n

 

\r\n

                          ‘‘********************** And this alert never fires\r\n ***************************

\r\n

                            ScriptManager.RegisterStartupScript(BtnYearEnd, BtnYearEnd.GetType(), "script", "alert('Year end processing has completed successfully.');", True)

\r\n

 

\r\n

                        Catch ex As Exception

\r\n

                            'Something went wrong

\r\n

                            sender.Enabled = True

\r\n

                            sender.Text = "Start Year End Processing"

\r\n

 

\r\n

                            ScriptManager.RegisterStartupScript(BtnYearEnd, BtnYearEnd.GetType(), "script", "alert('Year end processing has been aborted, please try again later.');", True)

\r\n

                            AddErr(ex, Session("Community_Id"))

\r\n

                        End Try

\r\n

                    Else

\r\n

                        'Database backup filed

\r\n

                        sender.Enabled = True

\r\n

                        sender.Text = "Start Year End Processing"

\r\n

                        ScriptManager.RegisterStartupScript(BtnYearEnd, BtnYearEnd.GetType(), "script", "alert('Database backup failed. Year end processing has been aborted, please try again later.');", True)

\r\n

                    End If

\r\n

                 Catch ex As Exception

\r\n

                    sender.Enabled = True

\r\n

                    sender.Text = "Start Year End Processing"

\r\n

                    ScriptManager.RegisterStartupScript(BtnYearEnd, BtnYearEnd.GetType(), "script", "alert('Error with year end processing please try again.');", True)

\r\n

                    'Note the exception

\r\n

                    AddErr(ex, Session("Community_Id"))

\r\n

                Finally

\r\n

                 End Try

\r\n

         End Select

\r\n

    End Sub

\r\n", "PostedDate": "2011-10-29T11:20:01.98-07:00", "UserRole": null, "MarkedAsAnswerDate": null }, { "Id": "694783", "ThreadId": "277638", "Html": "

Try Response.End in place of Response.Close

\r\n

There has been some discussion of these things over the years.

\r\n

 

", "PostedDate": "2011-11-07T08:43:58.97-08:00", "UserRole": null, "MarkedAsAnswerDate": null } ]