<script runat="server">
Public Declare Function VBCreateCodeShort3 Lib "CodeGen.DLL" (ByVal Level As Long, ByVal Name$, ByVal EncryptionTemplate$, ByVal HardwareID As Long, ByVal OtherInfo1 As Integer, ByVal OtherInfo2 As Integer, ByVal OtherInfo3 As Integer, ByVal OtherInfo4 As Integer, ByVal OtherInfo5 As Integer) As String
Public Declare Function HexToInt Lib "CodeGen.DLL" (ByVal HexString As String) As Long
Sub submit(ByVal sender As Object, ByVal e As EventArgs)
Dim serial As String
Dim serialint As Long
Dim nameStr As String
<script runat="server">
Public Declare Function VBCreateCodeShort3 Lib "CodeGen.DLL" (ByVal Level As Long, ByVal Name$, ByVal EncryptionTemplate$, ByVal HardwareID As Long, ByVal OtherInfo1 As Integer, ByVal OtherInfo2 As Integer, ByVal OtherInfo3 As Integer, ByVal OtherInfo4 As Integer, ByVal OtherInfo5 As Integer) As String
Public Declare Function HexToInt Lib "CodeGen.DLL" (ByVal HexString As String) As Long
Sub submit(ByVal sender As Object, ByVal e As EventArgs)
Dim serial As String
Dim serialint As Long
Dim nameStr As String