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

Rows (0) .Item ("TeamCity") & " " _
& DSPageData. Tables ("Teamlnfo") .
Rows(0).Item("TeamNickName") '
DBCommand = New OleDbDataAdapter _
("SELECT Convert(varchar(12), GameDate, 101) "_
& "as [Дата], " _
& "Teams.TeamCity + ''+"_
& "Teams.TeamNickName as [Хозяева], "
& "Games.ScoreTeaml as [Набрано очков], " _
& "(Select TeamCity + ' ' + TeamNickName " _
& "from Teams where TeamID = TeamID2) " _
& " as [Гости], " _
& "Games.ScoreTeam2 as [НаОрано очков] " _
& "FROM Games INNER JOIN " _
& "Teams ON Games.TeamlDl = Teams.TeamID " _
& "Where TeamlDl = "
& Request.QueryString("TeamID") & " or " _
& "TeamID2 = " & Request.QueryString("TeamID")
, DBConn)
DBCommand.Fill(DSPageData, _
"Games")
dgGames.DataSource = _
DSPageData.Tables("Games?).DefaultView
dgGames.DataBind()
DBCommand = New OleDbDataAdapter _
("SELECT PlayerlD, "
& "LastName + ', ' + FirstName as PlayerName " _
& "From Players Where TeamID = " _
& Request.QueryString("TeamID") _
& " Order By LastName", DBConn)
DBCommand.Fill(DSPageData, _
"Players")
ddlPlayers.DataSource = _
DSPageData.Tables("pTayers").DefaultView
ddlPlayers.DataBind()
DBCommand - New OleDbDataAdapter _
("SELECT TeamNewsID, Headline "
& "From TeamNews Where TeamID - " _
& Request.QueryString("TeamID") _
& " Order By DateEntered DESC", DBConn)
DBCommand.Fill(DSPageData, _
"TeamNews")
ddlTeamNews.DataSource = _
DSPageData.Tables("TeamNews").DefaultView
ddlTeamNews.DataBindО
End If
End Sub

If Len(Request.QueryString("TeamID")) = 0 Then

Response.Redirect("./index.aspx")

DBCommand - New OleDbDataAdapter _.-
("Select TeamCity, TeamNickName from Teams "
& "Where TeamID = " _
& Request.QueryString("TeamID"), DBConn)
DBCommand.Fill(DSPageData, _
"Teamlnfo")