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

Код на странице Команда отображает как календарь игр выбранной команды, так и сведения об игроках и статьи, связанные с командой.

<asp:Label
id-"lblTitle"
Font-Size="25pt"
Font-Name="Tahoma"
runat="server"
/>

<ASP: DataGrid
id-"dgGames"
Width-" 90%"
BackColor-"beige"
AlternatingI temStyle-BackColor="cornsilk"
BorderColor="black"
ShowFooter=" false"
CellPadding=3
CellSpacing="0"
Font-Name="Arial"
Font-Size="8pt"
ForeColor="Black"
HeaderStyle-BackColor="burlywood"
HeaderStyle-Font-Bold="True"
runat=" server ">
</asp : DataGrid>

<asp : dropdownlist
id-"ddlPlayers"
runat=server
DataTextField="PlayerName"
DataValueField="PlayerID">
</asp:dropdownlist>

<asp:button
id="butPlayerInfo"
text="Информация об игроке"
Type="Submit"
OnClick="SubmitBtnPlayerInfo_Clic]c"
runat""server"
/>

<asp:dropdownlist
id-"dd!TeamNews"
runat=server
DataTextField="Headline"
DataValueField="TeamNewsID">
</asp:dropdownlist>

<asp:button
id="butTeamNewsInfo"
text=Просмотреть статью"
Type="Submit" "
OnClick="SubmitBtnTeamNews_Click"
runat="server"
/>

Sub Page_Load(ByVal Sender as Object, ByVal E as EventArgs)
If Len (Request. QueryString ("TeamlD") ) - 0 Then
Response . Redirect ("./ index . aspx" )
End If
If Not IsPostBack Then
Dim DBConn as OleDbConnection
Dim DBCommand As OleDbDataAdapter
Dim DSPageData as New DataSet
DBConn - New OleDbConnection ("Provider-sqloledb;" _
t "server-localhost;" _
& "Initial Catalog-INETC6;"
& "User Id-sa;" _
6 "Password-yourpassword; ")
DBCommand "!'New OleDbDataAdaplier _
("Select TeamCity, TeamNickName from Teams "._
& "Where TeamlD - "
; Ji Request. UuefyString(i'TeamID"), DBConn)
DBCommand. Fill (DSPageData, _
"Teamlnfo")
IblTitle.Text - Ds'pageData. Table's ("Teamlnfo") . _