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

Код на странице Новости выводит содержимое статьи в соответствии с идентификатором, переданным странице.

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

<asp:Label
id="lblMessage"
Font-Size="10pt"
Font-Name="Tahoma"
Font-Bold="True"
runat="server"
/>

Sub Page_Load(ByVal Sender as Object, ByVal E as EventArgs)
If Len(Request.QueryString("TeamNewsID")) = 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;" _
& "server=localhost;" _
& "Initial Catalog=INETC6;" _
& "User Id=sa;"
& "Password=yourpassword;")
DBCommand = New OleDbDataAdapter _
("Select DateEntered, Headline, News From TeamNews " _
& "Where TeamNewsID = " _
& Request.QueryString("TeamNewsID"), DBConn)
DBCommand.Fill(DSPageData, _
"News»') ,
IblTitle.Text = DSPageData.Tables("News"). _
Rows(O).Item("Headline")
IblMessage.Text = DSPageData.Tables("News"). _
Rows(0).Item("DateEntered") & "<BR>"
& DSPageData.Tables("News").
Rows(O) .Item("News")
End If
End Sub

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

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

DBCommand = New OleDbDataAdapter _
("Select DateEntered, HeadLine, News From TeamNews " _
& "Where TeamNewsID = "
& Request.QueryString("TeamNewsID"), DBConn)

DBCommand.Fill(DSPageData, _
"News")

IblTitle.Text = DSPageData.Tables("News"). _
Rows(O).Item("Headline")