<%@ Page Language=VB Debug=true %>
<script runat=server>
Sub Page_Load(ByVal Sender as Object, ByVal E as EventArgs)
End Sub
Sub SubmitBtn_Click(Source As Object, E as EventArgs)
MyMessage.InnerHTML = "You entered: " _
& txtMessage.Value
End Sub
</SCRIPT>
<HTML>
<HEAD>
<TITLE>Using the HTMLTextArea Control</TITLE>
</HEAD>
<BODY>
<form runat="server">
<span
id="MyMessage"
runat=server
>
</span>
<BR>
Please enter your message:
<BR>
<textarea
id="txtMessage"
runat="Server"
rows=5
cols=40
value="Enter message here!"
/>
<BR>
<button
id="Button1"
runat="server"
onserverclick="SubmitBtn_Click"
>
Submit
</button>
</Form>
</BODY>
</HTML>
|