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

На странице Календарь и результаты можно просмотреть результаты всех игр за текущее число или число, указанное посетителем.

<asp:Label
id="lblTitle"
Font-Size="25pt"
Font-Name="Tahoma"
Text=''Календарь и результаты"
runat="server"
/>

<asp:Calendar
id="calDateToUse"
runat="server"
BacJcColor«"ivory"
CellPadding="3"
CellSpacing.="3"
DayNameFormat="Short"
FirstDayOfWeelc="Default"
NextPrevFormat="FullMonth"
SelectionMode="Day"
ShowDayHeader,="True"
ShowGridLine3="False"
ShowNextPrevMonth="True"
ShowTitle="True"
TitleFonnat="MonthYear"
TodayDayStyle-Font-Bold="True"
DayHeaderStyle-Font-Bold="True"
OtherMonthDayStyle-ForeColor="gray"
TitleStyle-BackColor="t3366ff"
TitleStyle-ForeColor="white"
TitleStyle-Font-Bold="True"
SelectedDayStyle-BackColor="fffcc66"
SelectedDayStyle-Font-Bold="Truen
Font-Name="Tahoma"
Font-Size="12"
OnSelectionChanged-"calSelectChange"
/>

OnSelectionChanged="calSelectChange"

<ASP;DataGrid
id=MgGames"
Uidth=90*"
BackColor="beige"
AlternatingItemStyle-BackColor="cornsilk":
BorderColor="black"
ShowFooter="false"
CellPadding=3
CellSpacing="0"
Font-Name="Arial"
Font-Size=8pt"
ForeColor="Black"
HeaderStyle-BaclcColor="burlywood"
HeaderStyle-Font-Bold="True"
runat="server">
</asp:DataGrid>

Sub Page_Load(ByVal Sender as Object, ByVal E as EventArgs)
if Not IsPostBack Then
Dim DBConn as OleDbConnection
Dim DBCommand As OleDbDataAdapter
Dim DSPageData as New DataSet
DBConn = New OleDbConnection("Provider=sqloledb;" _
& "server=localhost;" _
& "Initial Catalog=INETC6;"
& "User Id=sa;" _
& "Password-yourpassword;")
DBCommand = New OleDbDataAdapter _
("SELECT Teams.TeamCity + ''+"_
& "Teams.TeamNickName as [Хозяева], " _ & "Games.ScoreTeaml as [Набрано очков], "
& " (Select TeamCity + ' ' + TeamNicJcName "~_
& "from Teams where TeamID = TeamID2) "
4 " as [Гости], " _
& "Games.ScoreTeam2 as [Набрано очков] "
& "FROM Games INNER JOIN "
& "Teams ON Games.TeamlDl = Teams.TeamID " _
& "Where Games.GameDate = '" _
& Today() & "'", DBConn)
DBCommand.Fill(DSPageData, _
"Games")
dgGames.DataSource = _
DSPageData.Tables("Games").DefaultView
dgGames.DataBind()
calDateToUse.SelectedDate = Today()
End if
End Sub