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

AutoGenerateColumns""false"

<asp:HyperLinkColumn
HeaderText-''Объявление (Щелкните для получения дополнительной
информации)"

DataNavigateUrlField="ClassifiedID"

DataNavigateUrlFormatString-"./ad.aspx?Classi fiedlD={0}-"

</ad.aspx?ClassifiedID=10

DataTextField="TitleText"

Target="_self"

<asp:BoundColumn
HeaderText-''Дата размещения"
DataField-"TheDate"

<asp:BoundColumn
HeaderText="UeHa"
DataField="Price"

Sub Page_Load(ByVal Sender as Object, ByVal E as EventArgs)
Dim DBConn as OleDbConnection
Dim DBCommand As OleDbDataAdapter
Dim DSPageData as New DataSet
DBConn = New OleDbConnection("Provider-sqloledb;" _
& "server=localhost;" _
& "Initial Catalog=INETC14;" _
5 "User Id=sa;"
6 "Password=yourpassword;")
If Len(Request.QueryString("CategorylD")) Then
DBCommand = New OleDbDataAdapter _
("Select CategoryName from Categories " _
& "Where CategorylD = " _
& Request.QueryString("CategorylD"), DBConn)
DBCommand.Fill (DSPageData,
"CategoryName") . ,
DBCommand = New OleDbDataAdapter _
("Select ClassifiedID, TitleText, " _
& 'Convert (varchar (12), DatePlaced, 107) "
& "as TheDate, Price from Classifieds " _
& "Where CategorylD = " _
& Request.QueryString("CategorylD") _
& " Order By DatePlaced DESC" _
, DBConn)
DBCommand.Fill(DSPageData, _
"Ads")
IblMessage.Text - "В категории """ _
& DSPageData.Tables("CategoryName"). _
Rows(O).Item("CategoryName") __
& """.имеется " _
& DSPageData.Tables ("Ads") .Rows.Count _
& " объявлений." ,
dgAds.DataSource = _
DSPageData.Tables("Ads"),DefaultView
dgAds.DataBind
Elself Len(Request.QueryString("SearchTerm")) Then
DBCommand = New OleDbpataAdapter
("Select ClassifiedID, TitieText, " _
& "Convert (varchar (12) , DatePlaced, 107) "
& "as TheDate, Price from Classifieds " _
& "Where TitleText Like '%" _
& Replace(Request.QueryString("SearchTerm"), "'", "'•") _
& "%' or Description Like '%" _
& Replace(Request.QueryString("SearchTerm"), "'", "'"') _
& "%' Order By DatePlaced DESC" _
, DBConn)
DBCommand.Fill(DSPageData, _
"Ads")
dgAds.DataSource = _
DSPageData.Tables("Ads").Defaultview
dgAds.DataBind
IblMessage.Text = "Искомое слово """ _
5 Request.QueryString("SearchTerm") _
6 """ было найдено в " _ •
& DSPageData.Tables("Ads").Rows.Count _
& " объявлениях."
Else
Response.Redirect("./index.aspx")
End If
End Sub