<%@ Page Language="VB" Debug="true" %>
<script runat="server">
Sub Page_Load(Source as Object, E as EventArgs)
  Dim chars As String = "ABCDEFGHIJKLMNOPRSTUVYZX0123456789"
  Dim i, j As Integer
  Dim r As String
  For j = 1 To 10
    i = CInt(Int((33 * Rnd())) + 1)
    r += Mid(chars, i, 1)
  Next j
  Response.Write("Codice : " & r)
end sub
</script>