git.oblomov.eu Git - ohcount/blob - test/src_dir/vb.aspx

   1 <%@ Page Language="VB" %>
   2 <html>
   3 <script runat="server">
   4     Sub Button1_Click(ByVal sender As Object, _
   5         ByVal e As System.EventArgs)
   6         Label1.Text = "Welcome, " & TextBox1.Text
   7     End Sub
   8 </script>
   9 <head runat="server">
  10   <title>Basic ASP.NET Web Page</title>
  11 </head>
  12 <body>
  13   <form id="form1" runat="server">
  14     <h1>Welcome to ASP.NET</h1>
  15     <p>Type your name and click the button.</p>
  16     <p>
  17       <asp:TextBox ID="TextBox1" runat="server"></asp:TextBox>
  18       <asp:Button ID="Button1" runat="server"
  19         Text="Click" OnClick="Button1_Click" />
  20     </p>
  21     <p>
  22       <asp:Label ID="Label1" runat="server"></asp:Label>
  23     </p>
  24   </form>
  25 </body>
  26 </html>