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

IblTitle.Text = DSPageData.Tables("Teamlnfo"). _
Rows(O) .Item("TeamCity") & " " _
& DSPageData.Tables{"Teamlnfo"). _
Rows(0).Item("TeamNickName")

DBCommand = New OleDbDataAdapter _.
("SELECT Convert(varchar(12), GameDate, 101) "
& "as [Date], " _
& "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 TeamlDi - " _
& 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("Players").DefaultView
ddlPlayers.DataBind()

DBCommand = New OleDbDataAdapter _
("SELECT TeamNewsID, Headline "
& "From TeamNews Where TeamID = " _
5 Request.QueryStringl"TeamID") _
6 " Order By DateEntered DESC", DBConn)
DBCommand.FilKDSPageData, _
"TeamNews")

ddlTeamNews.DataSource = _
DSPageData.Tables("TeamNews").DefaultView
ddlTeamNews.DataBind()

Sub SubmitBtnPlayerlnfo_Click{Sender As Object, E As EventArgs)
Response.Redirect("./player.aspx?PlayerID=" _
& ddlPlayers.Selectedltem.Value)
End Sub

Sub SubmitBtnTeamNews_Cliclc(Sender As Object, E As EventArgs)
Response.Redirect("./news.aspx?TeamNewsID=" _
& ddlTeamNews.Selectedltern.Value)
End Sub