Страница Турнирная таблица
Страница Календарь и результаты
Страница Команда
Страница Игрок
Страница Новости

& "(NumWins + NumLoses)) * 100, 0) as [Очки], " _
& "NumWins as [Победы], NumLoses as [Поражения] " _
& "From Teams " _
& "Where Division = 'Пустынный' " _
& "Order By Convert(float, NumWins) / " _
& "(NumWins + NumLoses) DESC"
, DBConn)
DBCommand.Fill(DSPageData, _
"DesertDiv")
dgDesertDivision.DataSource • _
DSPageData.Tables("DesertDiv").DefaultView
dgDesertDivision.DataBind()
DBCommand = New OleDbDataAdapter _
("Select '<A HREF=""./team.aspx?TeamID=' + " _
& "Convert(varchar(10), TeamID) + '"">' " _
& "+ TeamCity + ' ' + TeamNickName + '' as " _
& "[Горный'дивизион (Щелкните для получения" _
& " дополнительной информации)], " _
& "Round((Convert(float, NumWins) / " _
& "(NumWins + NumLoses)) * 100, 0) as [Очки], " _
& "NumWins as [Победы], NumLoses as [Поражения] " _
& "From Teams " _
& "Where Division = Торный' " _
& "Order By Convert(float, NumWins) / " _
& "(NumWins + NumLoses) DESC" _
, DBConn)
DBCommand.Fill(DSPageData, _
"MountainDiv")
dgMountainDivision.DataSource = _
DSPageData.Tables("MountainDiv").DefaultView .
dgMountainDivision.DataBind()
DBCommand = New OleDbDataAdapter _
("Select '<A HREF=""./team.aspx?TeamID=' + " _
& "Convert(varchar(10), TeamID) + '"">' "
& "+ TeamCity + ' ' + TeamNickName + '' as " _
5 ,"[Озерный дивизион (Щелкните для получения" _
4 "дополнительной информации)], " _
6 "Round((Convert(float, NumWins) / " _
& "(NumWins + NumLoses)) * 100, 0) as [Очки], " _
& "NumWins as [Победы], NumLoses as [Поражения] " _
& "From Teams " _
& "Where Division = 'Озерный' " _
& "Order By Convert(float, NumWins) / " _
& "(NumWins + NumLoses) DESC"
, DBConn)
DBCommand.Fill(DSPageData, _
"LakeDiv")
dgLakeDivision.DataSource _
DSPageData.Tables("LakeDiv").DefaultView
dgLakeDivision. DataBind {')
DBCommand - New OleDbDataAdapter _
("Select '<A HREF=""./team.aspx?TeamID=' + " _
& "Convert (varchar (10) , TeamID) + ' " ">' "
& " + TeamCity + ' ' + TeamNickName + '' as " _
& "[Южный дивизион (Щелкните для получения" _
& "дополнительной,информации)], " _
& "Round((Convert(float, NumWins) / " _
& "(NumWins + NumLoses)) * 100, 0) as [Очки], " _
& "NumWins as [Победы], NumLoses as [Поражения] " _
& "From Teams " _
& "Where Division = 'Южный' " _
& "Order By Convert(float, NumWins) / " _
& "(NumWins + NumLoses) DESC" _
, DBConn)
DBCommand.Fill(DSPageData, _
"DeepSouthDiv")
dgDeepSouthDivision.DataSource - _
DSPageData.Tables("DeepSouthDiv").DefaultView
dgDeepSouthDivision.DataBind()
Else ''
pnlConferenceView.Visible = True
pnlDivisionView.Visible = False
IblMessage.Text « "Турнирная таблица по подгруппам на "
& Today & ". <А HREF=""./index.aspx?View=Division"">
& "Щелкните здесь для отображения таблицы по" _
& "дивизионам."
DBCommand = New OleDbDataAdapter _
("Select '<A HREF-""./team.aspx?TeamID=-' + " _
& "Convert(varchar(10), TeamID) + '"">' " _
& "+ TeamCity + ' ' + TeamNickName + '' as " _
& "[Западная подгруппа (Щелкните для получения" _
& "дополнительной информации)], " _
& "Round((Convert(float, NumWins) / " _
& "(NumWins + NumLoses)) * 100, 0) as [Очки], " _
& "NumWins as [Победы], NumLoses as [Поражения] " _
& "From Teams " _
& "Where Conference = 'Западная' " _
& "Order By Convert(float, NumWins) / " _
& "(NumWins + NumLoses) DESC"
, DBConn)
DBCommand.Fill(DSPageData, _
"WestConf")
dgWestConference.DataSource = _
DSPageData.Tables("WestConf).DefaultView
dgWestConference.DataBind()
DBCommand = New OleDbDataAdapter _
("Select '<A HREF=""./team.aspx?TeamID=' + " _
& "Convert (varchar (10) , TeamID) + '"">' " _
& "+ TeamCity + ' ' + TeamNickName + '' as " _
& "[Восточная подгруппа (Щелкните для получения" _
& "дополнительной информации)], " _
& "Round((Convert(float, NumWins) / "
& "(NumWins + NumLoses)) * 100, 0) as {Очки], "
& "NumWins as [Победы], NumLoses as [Поражения] " _
& "From Teams " _
& "Where Conference - 'Западная' " _
& "Order By Convert(float, NumWins) / " _
& "(NumWins + NumLoses) DESC"
, DBConn)
DBCommand.Fill(DSPageData, _
"EastConf")
dgEastConference.DataSource _
DSPageData.Tables(«EastConf").DefaultView
dgEastConference.DataBind()
End If
End If
End Sub