Ciao a tutti volevo chiedere come creare un messaggio di attesa durante l'upload di un file.
Ho usato questo nel file .aspx

codice:
<form id="form1" runat="server">
    <div>
        <asp:FileUpload ID="FileUpload1" runat="server" />
        <asp:Button ID="Button1" runat="server" Text="Carica" />
        <asp:Label ID="lblMessaggio" runat="server"></asp:Label>
	</div>
    </form>
Volevo mettere un messaggio nella label lblMessaggio del tipo "Caricamento in corso"


codice:
Partial Class Amministratore_pop_File
    Inherits System.Web.UI.Page

    Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim blnOk As Boolean
        If FileUpload1.HasFile Then
            Dim strCartella As String = Request.QueryString("dir")
            Dim strID As String = Request.QueryString("id")
            Dim strFrm As String = Request.QueryString("frm")
            Dim strCampo As String = Request.QueryString("campo")
            Dim strBottone As String = Request.QueryString("btn")
            Dim strNuovoNomeFile As String = Date.Now.ToString
			Dim strIcona As String
			Dim strInput As String = Request.QueryString("input")
			Dim strEstensione As String = System.IO.Path.GetExtension(FileUpload1.PostedFile.FileName)
            strNuovoNomeFile = Replace(strNuovoNomeFile, "\", "")
            strNuovoNomeFile = Replace(strNuovoNomeFile, "/", "")
            strNuovoNomeFile = Replace(strNuovoNomeFile, " ", "")
            strNuovoNomeFile = Replace(strNuovoNomeFile, ".", "")
            strNuovoNomeFile += strEstensione
            If strCartella = "" Then strCartella = "Files"
            Try
                If Request.QueryString("tipo") = "jpg" Then
                    If FileUpload1.PostedFile.ContentType = "image/pjpeg" Then
                        'FileUpload1.SaveAs(Server.MapPath("/concorso/Immagini/" & strCartella) & "\" & FileUpload1.FileName)
                        FileUpload1.SaveAs(Server.MapPath("/public/" & strCartella) & "\" & strNuovoNomeFile)
                        lblMessaggio.Text = "File inserito con successo
" & _
                        "Nome del file: " & FileUpload1.PostedFile.FileName & "
" & _
                        "Dimensioni: " & FileUpload1.PostedFile.ContentLength & "
" & _
                        "Tipo file: " & FileUpload1.PostedFile.ContentType 
                        blnOk = True
                    Else
                        lblMessaggio.Text += "Si possono caricare solo file .jpg"
                        blnOk = False
                    End If
                Else
                    FileUpload1.SaveAs(Server.MapPath("/public/" & strCartella) & "\" & strNuovoNomeFile)
                    lblMessaggio.Text = "File inserito con successo
" & _
                    "Nome del file: " & FileUpload1.PostedFile.FileName & "
" & _
                    "Dimensioni: " & FileUpload1.PostedFile.ContentLength & "
" & _
                    "Tipo file: " & FileUpload1.PostedFile.ContentType
					Select Case strEstensione
						Case ".zip"
							strIcona = "Immagini/zip.gif"
						Case ".jpg"
							strIcona = "Immagini/jpg.gif"
						Case ".pdf"
							strIcona = "Immagini/pdf.gif"
						Case ".mdb"
							strIcona = "Immagini/mdb.gif"
						Case ".rar"
							strIcona = "Immagini/rar.gif"
						Case ".exe"
							strIcona = "Immagini/exe.gif"
						Case ".txt"
							strIcona = "Immagini/txt.gif"									
						Case ".eml"
							strIcona = "Immagini/eml.gif"						
						Case ".gif"
							strIcona = "Immagini/gif.gif"
						Case ".html", ".htm", ".asp", ".aspx"
							strIcona = "Immagini/htm.gif"			
						Case ".mp3", ".wav", ".mid", ".mpe", ".mpeg", ".mpg"
							strIcona = "Immagini/mp3.gif"						
						Case ".psd"
							strIcona = "Immagini/psd.gif"
						Case ".doc"
							strIcona = "Immagini/doc.gif"
						Case ".pdf"
							strIcona = "Immagini/pdf.gif"
						Case ".ppt"
							strIcona = "Immagini/ppt.gif"
						Case ".xls"
							strIcona = "Immagini/xls.gif"
						Case ".pps"
							strIcona = "Immagini/ppt.gif"			
						Case Else
							strIcona = "Immagini/other.gif"
					End Select
                    blnOk = True
                End If
            Catch ex As Exception
                lblMessaggio.Text += "ERRORE: " & ex.Message.ToString()
                blnOk = False
            End Try
            'Se è andato a buon fine devo aggiornare la pagina padre
            If blnOk = True Then
                Dim myScript As String
                'myScript = "window.opener." & strFrm & "." & strCampo & ".value='" & FileUpload1.FileName & "';"
				'myScript = "window.opener." & strFrm & "." & strCampo & ".value='" & strNuovoNomeFile & "';"
				myScript = "window.opener.document.getElementById('" & strCampo & "').value='" & strNuovoNomeFile & "';"
                If strID <> "" And Request.QueryString("tipo") = "jpg" Then
                    'myScript += " window.opener.document." & strID & _
                    '".src='../zoom.aspx?imgfile=Immagini/" & strCartella & "/" & FileUpload1.FileName & _
                    '"&width=120&height=90';" 
                    myScript += " window.opener.document." & strID & _
                    ".src='../zoom.aspx?imgfile=public/" & strCartella & "/" & strNuovoNomeFile & _
                    "&width=120&height=90';" 
                    myScript += " window.opener.document." & strID & _
                    ".style.display='';"
				Else
                    myScript += " window.opener.document." & strID & _
                    ".src='" & strIcona & "';" 
                    myScript += " window.opener.document." & strID & _
                    ".style.display='';"
                    myScript += " window.opener.document.getElementById('" & strInput & _
                    "').style.display='';"
                    myScript += " window.opener.document.getElementById('messaggioupload').innerHTML='File caricato con successo';"
                End If
                'myScript += " window.opener." & strFrm & "." & strBottone & ".style.display='none';"
                myScript += " window.opener.document.getElementById('" & strBottone & "').style.display='none';"
                myScript += " window.close();"
                Page.ClientScript.RegisterClientScriptBlock(Me.GetType(), "myScript", myScript, True)
            Else
                lblMessaggio.Text += "Nessun file caricato"
                blnOk = False
            End If
        End If
    End Sub

End Class
Questo è quello che accade con la pressione del pulsante. Il fatto è che pensavo si potesse fare come con ASP classico e mettere appena dopo la pressione del pulsante una cosa del tipo

codice:
lblMessaggio.Text = "Caricamento in corso"
Response.Flush()
Ma non lo considera. Come si può far comparire un messaggio prima che l'operazione sia completata?
Grazie mille.