Private Sub Page_Load _
            ( _
               ByVal sender As System.Object, _
               ByVal e As System.EventArgs _
            ) _
            Handles MyBase.Load
   Dim drdrFetchMovies As _
            System.Data.SqlClient.SqlDataReader
   If Not Me.IsPostBack Then
      With lblCriteriaA
         .Text = "Movies within " _
               & Session("Distance") _
               & " kms of "
      End With
      With lblCriteriaB
         .Text = Session("PostalCode") _
               & " on " _
               & Session("Date") _
               & "."
      End With
      With cmndFetchMovies
         .Connection.Open()
         .Parameters(1).Value = Session("Distance")
         .Parameters(2).Value = Session("PostalCode")
         .Parameters(3).Value = Session("Date")
         drdrFetchMovies = _
            .ExecuteReader(CommandBehavior.CloseConnection)
      End With
      With slstMovies
         .DataSource = drdrFetchMovies
         .DataTextField = "TMText"
         .DataValueField = "TMKey"
         .DataBind()
      End With
      With drdrFetchMovies
         .Close()
      End With
   End If
End Sub

Private Sub Page_Load _
            ( _
               ByVal sender As System.Object, _
               ByVal e As System.EventArgs _
            ) _
            Handles MyBase.Load
   Dim arryTheaterMovie() As String = _
                  Split(Session("TMKey"), ".")
   With lblHeading
      .Text = "Showtimes for:"
   End With
   With lblTheaterMovie
      .Text = Session("TMText")
   End With
   Dim drdrFetchShowings As _
            System.Data.SqlClient.SqlDataReader
   If Not Me.IsPostBack Then
      With cmndFetchShowings
         .Connection.Open()
         .Parameters(1).Value = arryTheaterMovie(0)
         .Parameters(2).Value = arryTheaterMovie(1)
         .Parameters(3).Value = Session("Date")
         drdrFetchShowings = _
            .ExecuteReader(CommandBehavior.CloseConnection)
      End With
      With lstShowings
         .DataSource = drdrFetchShowings
         .DataTextField = "ShowingTime"
         .DataValueField = "ShowingTime"
         .DataBind()
      End With
      With drdrFetchShowings
         .Close()
      End With
   End If
End Sub

<deviceFilters>
    <filter name="isHTML32" compare="PreferredRenderingType" 
       argument="html32" />
    <filter name="isWML11" compare="PreferredRenderingType" 
       argument="wml11" />
    <filter name="isPocketIE" compare="Browser" argument="Pocket IE" />
    <filter name="isUP3x" compare="Type" argument="Phone.com 3.x Browser" 
       />
    <filter name="isEricssonR380" compare="Type" argument="Ericsson R380" 
       />
    <filter name="prefersGIF" compare="PreferredImageMIME" 
       argument="image/gif" />
    <filter name="supportsJavaScript" compare="Javascript" 
       argument="true" />
</deviceFilters>

<mobile:Panel id="pnlCalendar" runat="server">
    <mobile:DeviceSpecific id="dspcCalendar" runat="server">
        <Choice Filter="isHTML32">
            <CONTENTTEMPLATE>
        <mobile:Calendar
            id="datePick"
            runat="server">
        </mobile:Calendar>
            </CONTENTTEMPLATE>
        </Choice>
        <Choice Filter="isWML11">
            <CONTENTTEMPLATE>
                <mobile:Label
                    id="lblDate"
                    runat="server">Date</mobile:Label>
                <mobile:TextBox
                    id="txtDay"
                    runat="server" 
                    Size="2" MaxLength="2"></mobile:TextBox>
                <mobile:SelectionList
                    id="slstMonth"
                    runat="server" SelectType="Radio"
                    Rows="2"></mobile:SelectionList>
           </CONTENTTEMPLATE>
       </Choice>
    </mobile:DeviceSpecific>
</mobile:Panel>

Private WithEvents datePick As MobileControls.Calendar
Private WithEvents lblDate As MobileControls.Label
Private WithEvents txtDay As MobileControls.TextBox
Private WithEvents slstMonth As MobileControls.SelectionList
Private WithEvents bttnFetch As MobileControls.Command

Private browserCaps As Mobile.MobileCapabilities

Private Sub Page_Load _
            ( _
               ByVal sender As System.Object, _
               ByVal e As System.EventArgs _
            ) _
            Handles MyBase.Load
   browserCaps = Request.Browser
   With pnlCalendar.Controls(0)
      If browserCaps.HasCapability("isHTML32", _
                                    vbNullString) Then
         datePick = .FindControl("datePick")
      ElseIf browserCaps.HasCapability("isWML11", _
                                       vbNullString) Then
         lblDate = .FindControl("lblDate")
         txtDay = .FindControl("txtDay")
         slstMonth = .FindControl("slstMonth")
      End If
   End With

   If Not Me.IsPostBack Then
      txtDistance.Text = "12"
      txtPostalCode.Text = "99999"
      If browserCaps.HasCapability("isHTML32", _
                                    vbNullString) Then
      ElseIf browserCaps.HasCapability("isWML11", _
                                       vbNullString) Then
         txtDay.Text = DateTime.Today.Day
         With slstMonth
            .Items.Add((Split( _
               DateTime.Today.ToLongDateString))(1))
            .Items.Add((Split( _
               DateTime.Today.AddMonths(1).ToLongDateString))(1))
            .SelectedIndex = 0
         End With
      End If
   End If
End Sub

Private Sub bttnSubmit_Click _
               ( _
                  ByVal sender As System.Object, _
                  ByVal e As System.EventArgs _
               ) _
               Handles bttnSubmit.Click
   Session("Distance") = txtDistance.Text
   Session("PostalCode") = txtPostalCode.Text
   If browserCaps.HasCapability("isHTML32", _
                                 vbNullString) Then
      Session("Date") = datePick.SelectedDate
   ElseIf browserCaps.HasCapability("isWML11", _
                                 vbNullString) Then
      Session("Date") = _
         DateTime.Today.AddDays(txtDay.Text - _
         DateTime.Today.Day).AddMonths(slstMonth.SelectedIndex)
   End If
   Me.RedirectToMobilePage("Movies.aspx")
End Sub