<%@ Page Language="VB" Debug="true" %>
<script runat="server">
Sub Page_Load(Source as Object, E as EventArgs)
Dim i as integer
Randomize()
i = CInt(Int((10 * Rnd()) + 1))
response.write ("Numero : " & i)
end sub
</script>