Hi,
I am building a search box in my application but i am having an issue with an error message that i set up which will not disappear after a new search is done.
Client Side..
<asp:Label ID="noResultOutput" runat="server"></Label>
Server Side..
Else
noResultOutput.Text = "No User Account Located"
when the search button is pressed and no user is located my message comes up but if i try another but successful search the error still shows. Can someone help with how i can remove the message upon page refresh and a successful search.
Thank you
my full server side code..
Protected Sub buttonSearch_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles buttonSearch.Click
Dim dsResults As New DataSet
Dim dt As DataTableReader
dsResults = SearchResults(sLoginid.Value.ToString, sfirstName.Value.ToString, slastName.Value.ToString, sEnumber.Value.ToString, sprofNumber.Value.ToString)
dt = dsResults.CreateDataReader
Dim tb As New Table
Dim tr As New TableRow
Dim tc As New TableCell
Dim lb As New Label
Dim bt1 As New HtmlGenericControl("div")
Dim bt2 As New HtmlGenericControl("div")
Dim bt3 As New HtmlGenericControl("div")
Dim iCount As Integer = 1
tb.CssClass = "tableStyle"
tb.CellPadding =
tb.CellSpacing = 0
If dt.HasRows = True Then
tr = New TableRow
tr.CssClass = "tabHeader"
tc = New TableCell
lb = New Label
lb.Text = "Login ID"
tc.Controls.Add(lb)
tr.Controls.Add(tc)
tb.Controls.Add(tr)
tr.CssClass = "tabHeader"
tc = New TableCell
lb = New Label
lb.Text = "Staff ID"
tc.Controls.Add(lb)
tr.Controls.Add(tc)
tb.Controls.Add(tr)
tr.CssClass = "tabHeader"
tc = New TableCell
lb = New Label
lb.Text = "Surname"
tc.Controls.Add(lb)
tr.Controls.Add(tc)
tb.Controls.Add(tr)
tr.CssClass = "tabHeader"
tc = New TableCell
lb = New Label
lb.Text = "First name"
tc.Controls.Add(lb)
tr.Controls.Add(tc)
tb.Controls.Add(tr)
tr.CssClass = "tabHeader"
tc = New TableCell
lb = New Label
lb.Text = "Middlename"
tc.Controls.Add(lb)
tr.Controls.Add(tc)
tb.Controls.Add(tr)
tr.CssClass = "tabHeader"
tc = New TableCell
lb = New Label
lb.Text = "DOB"
tc.Controls.Add(lb)
tr.Controls.Add(tc)
tb.Controls.Add(tr)
tr.CssClass = "tabHeader"
tc = New TableCell
lb = New Label
lb.Text = "Prof Number"
tc.Controls.Add(lb)
tr.Controls.Add(tc)
tb.Controls.Add(tr)
tr.CssClass = "tabHeader"
tc = New TableCell
lb = New Label
lb.Text = "Job Title"
tc.Controls.Add(lb)
tr.Controls.Add(tc)
tb.Controls.Add(tr)
tr.CssClass = "tabHeader"
tc = New TableCell
lb = New Label
lb.Text = "Department"
tc.Controls.Add(lb)
tr.Controls.Add(tc)
tb.Controls.Add(tr)
tr.CssClass = "tabHeader"
tc = New TableCell
lb = New Label
lb.Text = "Site"
tc.Controls.Add(lb)
tr.Controls.Add(tc)
tb.Controls.Add(tr)
tr.CssClass = "tabHeader"
tc = New TableCell
lb = New Label
lb.Text = "Buttons"
tc.Controls.Add(lb)
tr.Controls.Add(tc)
tb.Controls.Add(tr)
Do While dt.Read
tr = New TableRow
If iCount = 1 Then
tr.CssClass = "rowStyle1"
iCount = 0
Else
tr.CssClass = "rowStyle2"
iCount = 1
End If
tc = New TableCell
tc.CssClass = "rowCell"
lb = New Label
lb.Text = dt.Item("login_id").ToString()
tc.Controls.Add(lb)
tr.Controls.Add(tc)
tb.Controls.Add(tr)
tc = New TableCell
tc.CssClass = "rowCell"
lb = New Label
lb.Text = dt.Item("staff_id").ToString()
tc.Controls.Add(lb)
tr.Controls.Add(tc)
tb.Controls.Add(tr)
tc = New TableCell
tc.CssClass = "rowCell"
lb = New Label
lb.Text = dt.Item("surname").ToString()
tc.Controls.Add(lb)
tr.Controls.Add(tc)
tb.Controls.Add(tr)
tc = New TableCell
tc.CssClass = "rowCell"
lb = New Label
lb.Text = dt.Item("forename").ToString()
tc.Controls.Add(lb)
tr.Controls.Add(tc)
tb.Controls.Add(tr)
tc = New TableCell
tc.CssClass = "rowCell"
lb = New Label
lb.Text = dt.Item("middlename").ToString()
tc.Controls.Add(lb)
tr.Controls.Add(tc)
tb.Controls.Add(tr)
tc = New TableCell
tc.CssClass = "rowCell"
lb = New Label
Dim dobS() As String
dobS = Split(dt.Item("date_of_birth").ToString(), " ")
lb.Text = dobS(0)
tc.Controls.Add(lb)
tr.Controls.Add(tc)
tb.Controls.Add(tr)
tc = New TableCell
tc.CssClass = "rowCell"
lb = New Label
lb.Text = dt.Item("g_no").ToString()
tc.Controls.Add(lb)
tr.Controls.Add(tc)
tb.Controls.Add(tr)
tc = New TableCell
tc.CssClass = "rowCell"
lb = New Label
lb.Text = dt.Item("position").ToString()
tc.Controls.Add(lb)
tr.Controls.Add(tc)
tb.Controls.Add(tr)
tc = New TableCell
tc.CssClass = "rowCell"
lb = New Label
lb.Text = dt.Item("location").ToString()
tc.Controls.Add(lb)
tr.Controls.Add(tc)
tb.Controls.Add(tr)
tc = New TableCell
tc.CssClass = "rowCell"
lb = New Label
lb.Text = dt.Item("site").ToString()
tc.Controls.Add(lb)
tr.Controls.Add(tc)
tb.Controls.Add(tr)
tc = New TableCell
tc.CssClass = "rowCell"
bt1 = New HtmlGenericControl("div")
bt1.InnerHtml = "<input type=button onclick=editUser('" & dt.Item("login_id").ToString.Replace(" ", "#") & "','" & dt.Item("staff_id").ToString.Replace(" ", "#") & "','" & dt.Item("surname").ToString.Replace(" ", "#") & "','" & dt.Item("forename").ToString.Replace(" ", "#") & "','" & dt.Item("middlename").ToString.Replace(" ", "#") & "','" & dobS(0).Replace(" ", "#") & "','" & dt.Item("gmc_no").ToString.Replace(" ", "#") & "','" & dt.Item("position").ToString.Replace(" ", "#") & "','" & dt.Item("location").ToString.Replace(" ", "#") & "','" & dt.Item("site").ToString.Replace(" ", "#") & "') value='Edit Profile'>"
bt3 = New HtmlGenericControl("div")
bt3.InnerHtml = "<input type=button onclick=viewSystems('" & dt.Item("login_id").ToString & "') value='View systems'>"
tc.Controls.Add(bt1)
tr.Controls.Add(tc)
tb.Controls.Add(tr)
tc.Controls.Add(bt2)
tr.Controls.Add(tc)
tb.Controls.Add(tr)
tc.Controls.Add(bt3)
tr.Controls.Add(tc)
tb.Controls.Add(tr)
Loop
dt.Close()
dsResults.Dispose()
placeResults.Controls.Add(tb)
Else
noResultOutput.Text = "No User Account Located"
End If
Dim test1 As String = adFunctions.getUsersGroupStatus(Session("sADGroupA").ToString, Session("sUserId"))
Dim test2 As String = adFunctions.getUsersGroupStatus(Session("sADGroupRW").ToString, Session("sUserId"))
Dim test3 As String = adFunctions.getUsersGroupStatus(Session("sADGroupRO").ToString, Session("sUserId"))
If test1 = "Y" And test2 = "N" And test3 = "N" Then
adNewUser.Visible = True
ElseIf test1 = "N" And test2 = "Y" And test3 = "N" Then
adNewUser.Visible = True
ElseIf test1 = "N" And test2 = "N" And test3 = "Y" Then
adNewUser.Visible = False
End If