Сайт создан по материалам книги Г. Бучека "Учебный курс по ASP.NET".
Москва: BHV, 2002.
Создатель сайта-выпускник курсов web-дизайнеров Сафоновского Колледжа Информационных Технологий Максим Котликов
Создатель сайта-выпускник курсов web-дизайнеров Сафоновского Колледжа Информационных Технологий Максим Котликов
-
Sub Page_Load(ByVal Sender as Object, ByVal E as EventArgs)
If LenfPage.Request.QueryStringC'HLCN")) = 0 Then
Response.Redirect("./index.aspx")
End If
Dim DBConn as OleDbConneotion
Dim DBCommand As OleDbDataAdapter
Dim DSHomeData as New DataSet
DBConn = New OleDbConnectionC'Provider=sqloledb;" _
& "server-localhost;" _
& "Initial Catalog^INETCll;" _
& "User Id=sa;" _
s "Password=yourpassword;")
DBCommand = New OleDbDataAdapter _
("Select * from Listings Where HLCN = '" _
& Page.Request.QueryStringC'HLCN") & "'",DBConn)
DBCommand.Fill(DSHomeData, _
"Listing")
If DSHomeData.Tables("Listing").Rows.Count - 0 Then
IblHomelnfoBlob.Text - "Введенный код не найден. " _
& "Возможно, дом продан или снят с продажи.<BR>"
& "<А HREF=""./index.aspx"">Возврат на стартовую страницу</А>"
Else
IblHomelnfoBlob.Text = _
"<TABLE CellPadding=""3"" style=""font: lOpt verdana"">" _
& "<ТК><ТD><В>Цена: </В>" _
& FormatCurrency(DSHomeData.Tables("Listing"). _
Rows (0) .Item(HousePrice")) _
& "</ТD><TD><в>Район: </В>" _
& DSHomeData.Tables("Listing"). _
Rows (0) .Item("HomeLocation") _
& "</TD></TR>" _
& "<ТR><ТD><В>Спален: </В>" _
& DSHomeData.Tables("Listing"). _
Rows(0).Item("Bedrooms") _
& "</ТD><тd><в>Ванных комнат: </В>" _
& DSHomeData.Tables("Listing"). _
Rows(O).Item("Bathrooms") _
& "</TD></TR>" _
& "<TR></tr><TD><B>Aflpec: </B>" _
& DSHomeData.Tables("Listing").
Rows(O) .ItemC'Address")
& "</ТD><ТD><В>Год постройки: </В>" _
& DSHomeData.Tables("Listing"). _
Rows(O) .Item("YearBuilt")
& "</TD></TR>"
& "<TR><TD><B>Площадь дома: </В>" _
& DSHomeData.Tables (''Listing") .
Rows (0) .Item("SquareFeet") _
& <ТD><В>Площадь участка: </В>" _
& DSHomeData.Tables("Listing"). _
Rows(O) .ItemC'LotSize")
& "</TD></TR>" _
& "<TR><TD><B>гapaж: </B>" _
& DSHomeData.Tables("Listing"). _
Rows(0).Item("Garage") _
& "</ТD><ТD><В>Контактное лицо: </В>" _
& DSHomeData.Tables("Listing") . _
Rows(O) .Item("ContactName") _
& "</TD></TR>"
& "<ТР><Тd><В>Телефон:</B>" _
& DSHomeData.Tables("Listing"). _
Rows(0).Item("PhoneContact") _
& "</ТD><ТD><В>Электронная почта: " _
& "<A HREF=""mailto:" _
& DSHomeData.Tables ("Listing").
Rows(O) .ItemC'EmailContact")
&""">_
& DSHomeData.Tables("Listing") . _
Rows (0) .Item("EmailContact") _
& "</A>"
& "</TD></TR>" _
& "</Table><BR>"
& DSHomeData.Tables("Listing") . _
Rows(O) .item("Notes")
DBCommand = New OleDbDataAdapter _
("Select ImagePath, ImageAlt " _
& "From ListingPictures Where " _
& "ListingID ="
& DSHomeData.Tables("Listing")._
Rows(0).Item("ListingID")
,DBConn)
DBCommand.Fill (DSHomeData, _
"ListingPics")
dlPics.DataSource = _
DSHomeData. Tables {"ListingPics") .DefaultView
dlPics . DataBind ( )
End If
IblTitle.Text = "<center>Дом - "
& Page. Request .QueryString ("HLCN") _
& "</CENTER>"
End Sub
 |
 |
|
