Helpful to verify reports of your own downtime, or to double check a downed website you are trying to access.
One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.
Protected Sub btnSearch_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnSearch.Click Dim suppliers As List(Of Supplier) = Nothing Try If txtSearchTerm.Text <> "" Then pnlWaiting.Visible = True 'this is where the wheel should become visible suppliers = New List(Of Supplier) suppliers = HelperGeneral.GetSuppliers(txtSearchTerm.Text) If suppliers.Count > 0 Then rptSuppliers.DataSource = suppliers rptSuppliers.DataBind() lblResultCount.Text = "Found " & suppliers.Count & " Suppliers matching the search criteria." pnlSupplierDisplay.Visible = True Else lblResultCount.Text = "No Suppliers matching the search criteria." End If pnlWaiting.Visible = False 'and then where it is hidden again. End If Catch ex As Exception Throw End Try End Sub