home *** CD-ROM | disk | FTP | other *** search
- <html>
-
- <script language="Delphi" runat=server>
-
- procedure OnLookupClick (Sender: System.Object; E: EventArgs);
- begin
- Message.Text := 'Hi ' +
- Server.HtmlEncode (Name.Text) +
- ', you selected: ' +
- Category.SelectedItem.Text +
- ' on: ' +
- MyCal.SelectedDate.ToShortDateString;
- end;
-
- </script>
-
- <body>
-
- <center>
-
- <form runat="server">
-
- <h3> Name: <asp:textbox id="Name" runat="server"/>
-
- Category: <asp:dropdownlist id="Category" runat=server>
- <asp:listitem >psychology</asp:listitem>
- <asp:listitem >business</asp:listitem>
- <asp:listitem >popular_comp</asp:listitem>
- </asp:dropdownlist>
- </h3>
-
- <asp:button text="Lookup" OnClick="OnLookupClick" runat="server"/>
-
- <p>
-
- <asp:Calendar id="MyCal" runat="server" BorderWidth="1px" BackColor="#FFFFCC"
- Width="220px" DayNameFormat="FirstLetter" ForeColor="#663399" Height="200px" Font-Size="8pt"
- BorderColor="#FFCC66" ShowGridLines="True">
- <TodayDayStyle ForeColor="White" BackColor="#FFCC66"></TodayDayStyle>
- <SelectorStyle BackColor="#FFCC66"></SelectorStyle>
- <NextPrevStyle Font-Size="9pt" ForeColor="#FFFFCC"></NextPrevStyle>
- <DayHeaderStyle Height="1px" BackColor="#FFCC66"></DayHeaderStyle>
- <SelectedDayStyle Font-Bold="True" BackColor="#CCCCFF"></SelectedDayStyle>
- <TitleStyle Font-Size="9pt" Font-Bold="True" ForeColor="#FFFFCC" BackColor="#990000"></TitleStyle>
- <OtherMonthDayStyle ForeColor="#CC9966"></OtherMonthDayStyle>
- </asp:Calendar>
-
- <p>
-
- <asp:label id="Message" runat="server"/>
-
- </form>
-
- </center>
-
- </body>
- </html>
-
-