|
<script language="vb" runat="server">
Sub Page_Load()
Dim theNumber As Integer
Dim theGuess As Integer
theNumber = int(10 * rnd) + 1
If Page.IsPostBack Then
theGuess = Guess.SelectedItem.Value
If theGuess > theNumber then
Message.Text = "<BR><BR>Guess is too high<BR>Try again ?it was " _
& theNumber
End If
If theGuess < theNumber then
Message.Text = "<BR><BR>Guess is too low<BR>Try again ?it was " _
& theNumber
End If
If theGuess = theNumber then
Message.Text = "<BR><BR>Guess is correct!"
End If
End If
End Sub
</script>
<html>
<head></head>
<body>
<form runat="server">
What number am I thinking of?
<asp:dropdownlist id="Guess" runat="server">
<asp:listitem>1</asp:listitem>
<asp:listitem>2</asp:listitem>
<asp:listitem>3</asp:listitem>
<asp:listitem>4</asp:listitem>
<asp:listitem>5</asp:listitem>
<asp:listitem>6</asp:listitem>
<asp:listitem>7</asp:listitem>
<asp:listitem>8</asp:listitem>
<asp:listitem>9</asp:listitem>
<asp:listitem>10</asp:listitem>
</asp:dropdownlist>
<br>
<br>
<input type="submit" value="Submit guess">
<asp:label id="message" runat="server"/>
</form>
</body>
</html>
|