'''''''###################################################### Advert Banner Showing System ######################################################################''''' Dim rand As Random = New Random() If district <> "0" Then banner.Text = dc.Ams_Banners.Where(Function(c) c.idDistrict = district).Select(Function(c) c.code_ams_banner).First.ToString ElseIf county <> "0" Then banner.Text = dc.Ams_Banners.Where(Function(c) c.idCountyCity = county).Select(Function(c) c.code_ams_banner).First.ToString Else banner.Text = dc.Ams_Banners.Where(Function(c) c.idCountry Is Nothing).Select(Function(c) c.code_ams_banner).First.ToString End If