| '-------------------
begin code ----------------------------
<%@ Page
Language="VB" %>
<script runat="server">
const strParse as string = "What does this start with?"
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.startswith("h")
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 ----------------------------
|