<%@ Page
Inherits="System.Web.UI.MobileControls.MobilePage"
Language="VB"
%>
<%@ Register
TagPrefix="mobile"
Namespace="System.Web.UI.MobileControls"
Assembly="System.Web.Mobile"
%>
Sub OK_OnSubmit(Sender As Object, E As EventArgs)
If txtAnswer.Text = 35 Then
ActiveForm = CorrectForm
Else
ActiveForm = IncorrectForm
End If
End Sub
id="QuestionPage"
runat="server">
runat="server"
id="lbl1"
Text="What is 5 x 7?"
/>
runat="server"
id="txtAnswer"
/>
runat="server"
id="cmdOK"
OnClick="OK_OnSubmit"
Text="OK"
/>
id="CorrectForm"
runat="server">
runat="server"
id="lbl2"
Text="You supplied the correct answer!"
/>
id="IncorrectForm"
runat="server">
runat="server"
id="lbl3"
Text="Your answer was not correct."
/>