<%@ Page Language="VB" %>
<%@ Import Namespace="System.Data" %>
<%@ Import Namespace="System.Data.SqlClient" %>
<%@ Import Namespace="System.Configuration" %>

<script runat="server">
    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs)
        Dim DBCon As SqlConnection
        Dim Command As SqlCommand = New SqlCommand()
        Dim OrdersReader As SqlDataReader
        Dim ASyncResult As IAsyncResult
        Dim WHandle As Threading.WaitHandle

        DBCon = New SqlConnection()
        DBCon.ConnectionString = _
                ConfigurationManager.ConnectionStrings("DSN_NorthWind").ConnectionString

        Command.CommandText = _
                "SELECT TOP 5 Customers.CompanyName, Customers.ContactName, " & _
                "Orders.OrderID, Orders.OrderDate, " & _
                "Orders.RequiredDate, Orders.ShippedDate " & _
                "FROM Orders, Customers " & _
                "WHERE Orders.CustomerID = Customers.CustomerID " & _
                "ORDER BY Customers.CompanyName, Customers.ContactName"

        Command.CommandType = CommandType.Text
        Command.Connection = DBCon

        DBCon.Open()

        ' Starting the asynchronous processing
        ASyncResult = Command.BeginExecuteReader()

        WHandle = ASyncResult.AsyncWaitHandle

        If WHandle.WaitOne = True Then
            ' Retrieving result from the asynchronous process
            OrdersReader = Command.EndExecuteReader(ASyncResult)

            ' Displaying result on the screen
            gvOrders.DataSource = OrdersReader
            gvOrders.DataBind()

            ' Closing connection
            DBCon.Close()
        Else
            ' Asynchronous process has timed out. Handle this 
            ' situation here.
        End If
    End Sub
</script>

<html xmlns="http://www.w3.org/1999/xhtml" >
<head id="Head1" runat="server">
    <title>The Wait Approach</title>
</head>
<body>
    <form id="form1" runat="server">
    <div>
    <asp:GridView ID="gvOrders" runat="server" 
     AutoGenerateColumns="False" Width="100%">
       <Columns>
          <asp:BoundField HeaderText="Company Name" 
           DataField="CompanyName"></asp:BoundField>
          <asp:BoundField HeaderText="Contact Name" 
           DataField="ContactName"></asp:BoundField>
          <asp:BoundField HeaderText="Order Date" 
           DataField="orderdate" DataFormatString="{0:d}"></asp:BoundField>
          <asp:BoundField HeaderText="Required Date" DataField="requireddate" 
           DataFormatString="{0:d}"></asp:BoundField>
          <asp:BoundField HeaderText="Shipped Date" DataField="shippeddate" 
           DataFormatString="{0:d}"></asp:BoundField>
       </Columns>
    </asp:GridView>
    </div>
    </form>
</body>
</html>
