| '-------------------
begin code ----------------------------
<%@ Page
Language="VB" %>
<script runat="server">
const strParse as string = "TURN ME LOWERCASE"
sub page_load(S as Object, e as
EventArgs)
parseme.text = strParse
end sub
sub Control_Click(S as Object,
E as EventArgs)
dim sb
as new stringbuilder
dim ss1example as string
ss1example = strParse.ToLower()
sb.append("<b>Results: </b><font color=""#0099FF"">"
& ss1example & "</font>")
results.text=sb.tostring()
end sub
</script>
<html>
...
<form runat="server">
Parse: <I><font color="red">"<asp:literal id="parseme" runat="server"
/>" </font></I><br />
<asp:Button id="btnSubmit" text="Run Code >>" onclick="Control_Click" runat="server"
/><br />
<asp:literal id="results" runat="server" /><br />
</form>
...
</html>
'-------------------
end code ----------------------------
|