<%@ 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>