Проект Доска объявлений
Проект Поздравительная открытка
Проект Расписание сеансов

На странице Объявление пользователю предоставляется возможность ознакомиться с полным вариантом объявления.

<аsp:Label
id="lblTitle"
BorderWldth="7px"
BorderStyle=7
Width="90%"
Font-Size="25pt"
Font-Name="Comic Sans MS"
Text="<CENTER>Объявление</CENTER>"
runat="server"

<азр:Label
id="lblMessage"
Font-Size="12pt"
Font-Name="Comic Sans MS"
runat="server"

Sub Page_Load(ByVal Sender as Object, ByVal E as EventArgs)
If.Len(Request.QueryString("ClassifiedID")) = 0 Then
Response.Redirect("./index.aspx")
End If
Dim DBConn as OleDbConnection
Dim DBCommand As OleDbDataAdapter
Dim DSPageData as New DataSet
DBConn = New OleDbConnection("Provider=sqloledb;" _
t "server=iocalhost;" _
t "Initial Catalog-INETC14;"
& "User Id=sa;" _
& "Password=yourpassword;")
DBCommand = New OleDbDataAdapter _
("Select TitleText, "
S, "Convert(varchar(12),DatePlaced,107) "
& "as TheDate, Price, Description, EmailAddress, " _
& "CategoryName from Classifieds Left Join " _
& "Categories On Classifieds.CategorylD = "
& "Categories.CategorylD Where ClassifiedlD -. " _
& Request.QueryString("ClassifiedID"), DBConn)
DBCommand.Fill(DSPageData, _ '
"Ad?)
IblTitle.Text = "<CENTER>Объявление: " _
& DSPageData.Tables('Ad") .Rows(O) .Item('titleText*)
& "'</CENTER>"
IblMessage.Text = "<Table><TR><TD><B>Категория:</B></TD>" _
& DSPageData.Tables("Ad").Rows(O).Item("CategoryName")_
& "</TD></TR><TR><TD><B>Дата размещения :</B></TD>"
& "<TD>"
& DSPageData.Tables("Ad").Rows(0).Item("TheDate") _
& "</Tp></TR><TR><TD><B>Цена:</B></TD>" _
& "<TD>"
& DSPageData.Tablesi("Ad").Rows(O).Item("Price") _
& "</Tr></tR><TR VAlign=""TOP"">"<br> & "<Тd><В>Описание:</В></Тd>" _
& "<TD>" _
& DSPageData.Tables("Ad").Rows(O).ItemC'Description") _
& "</TD></TR><TR><TD><B>Контакт:</B></TD>" _
& "<TD><A HREF=""mailto:"
& DSPageData.TablesC'Ad").Rows(O).Item("EmailAddress") _
& """>"
& DSPageData.Tables("Ad").Rows(0).Item("EmailAddress") _
& "</A></TD></TR><Table>"
End Sub

If Len(Request.QueryStringPClassifiedID"}) = 0 Then

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

DBCommand = New OleDbDataAdapter _
("Select TitleText, "
& "Convert(varchar(12),DatePlaced,107) " _
& "as TheDate, Price, Description, EmailAddress, " _
& "CategoryName from Classifieds Left Join " _
& "Categories On Classifieds.CategorylD = " _
& "Categories.CategorylD Where ClassifiedID = " _
& Request.QueryString("ClassifiedID"), DBConn)

DBCommand.Fill(DSPageData, _
"Ad")

Заголовок извлеченного объявления помещается в элемент Label с именем IblTitle. Содержимое остальных полей после извлечения сосредотачивается во втором элементе Label. Поля и их заголовки упорядочиваются на странице с помощью HTML=таблицы.