<%@ Page Language="VB" %>
<script runat="server">
sub Page_Load(Sender as object, e as eventargs)
dim intAge As integer = 7
select Case intAge
case "7"
Response.Write("That's a string!")
case 7
Response.Write("7")
case <10
Response.Write("less than 10")
end select
end sub
</script>
<html><body>
</body></html>