Public Class WebForm1
  Inherits System.Web.UI.Page

  Protected WithEvents PubsAdapter As System.Data.OleDb.OleDbDataAdapter
  Protected WithEvents PubsQuery As System.Data.OleDb.OleDbCommand
  Protected WithEvents PubsRepeater As System.Web.UI.WebControls.Repeater
  Protected WithEvents datetimelabel As System.Web.UI.WebControls.Label
  Protected WithEvents PubsConnection As System.Data.OleDb.OleDbConnection
#Region " Web Form Designer Generated Code "

  'This call is required by the Web Form Designer.
  <System.Diagnostics.DebuggerStepThrough()> _
  Private Sub InitializeComponent()
    Me.PubsAdapter = New System.Data.OleDb.OleDbDataAdapter()
    Me.PubsQuery = New System.Data.OleDb.OleDbCommand()
    Me.PubsConnection = New System.Data.OleDb.OleDbConnection()
    '
    'PubsAdapter
    '
    Me.PubsAdapter.SelectCommand = Me.PubsQuery
    Me.PubsAdapter.TableMappings.AddRange _
    (New System.Data.Common.DataTableMapping() _
    {New System.Data.Common.DataTableMapping("Table", "titleview", _
    New System.Data.Common.DataColumnMapping() _
    {New System.Data.Common.DataColumnMapping("title", "title"), _
    New System.Data.Common.DataColumnMapping("au_ord", "au_ord"), _
    New System.Data.Common.DataColumnMapping("au_lname", "au_lname"), _
    New System.Data.Common.DataColumnMapping("price", "price"), _
    New System.Data.Common.DataColumnMapping("ytd_sales", "ytd_sales"), _
    New System.Data.Common.DataColumnMapping("pub_id", "pub_id")})}) _
     '
    'PubsQuery
    '
    Me.PubsQuery.CommandText = "SELECT title, " & _
    " au_ord, au_lname, price, ytd_sales, pub_id FROM titleview"
    Me.PubsQuery.Connection = Me.PubsConnection
    '
    'PubsConnection
    '
    Me.PubsConnection.ConnectionString = "Provider=SQLOLEDB.1;" & _
    "Persist Security Info=False; User ID=sa;Password=;" & _
    "Initial Catalog=pubs;Data Source=(local)"

  End Sub

  Private Sub Page_Init _
  (ByVal sender As System.Object, _
  ByVal e As System.EventArgs) Handles MyBase.Init
    'CODEGEN: This method call is required by the Web Form Designer
    'Do not modify it using the code editor.
    InitializeComponent()
  End Sub

#End Region

  Private Sub Page_Load _
  (ByVal sender As System.Object, _
   ByVal e As System.EventArgs) Handles MyBase.Load
    'Declare and initialize a DataSet
    Dim DS As DataSet = New DataSet()

    PubsAdapter.Fill(DS)

    'Bind PubsRepeater to the DataSet
    PubsRepeater.DataSource = DS.Tables("titleview").DefaultView
    PubsRepeater.DataBind()
    'Retrieve the date and time from the Web Service
    Dim DateTimeService As New localhost.Service1()
    datetimelabel.Text = DateTimeService.DateTime()


  End Sub
End Class