home *** CD-ROM | disk | FTP | other *** search
/ Chip: 25 Years Anniversary / CHIP_25Jahre_Jubilaeum.iso / downloads / 401065 / WPO11 / WPO11.msi / Binary.NewBinary29 < prev    next >
Text File  |  2003-04-15  |  865b  |  35 lines
  1. Option Explicit
  2.  
  3. '********************************************************************
  4. '    Function checkSerialLogic
  5. '
  6. '********************************************************************
  7. Function checkSerialLogic
  8.  
  9.     Dim sCustInfo: sCustInfo = ""
  10.     sCustInfo = Session.Property("CustInfo")
  11.  
  12.     Dim sSerialNum: sSerialNum = ""
  13.     sSerialNum = Session.Property("SERIALNUMBER")
  14.  
  15.     Session.Property("PIDprefix") = Session.Property("PIDprefixP")
  16.     Session.DoAction("checkNewSerialNumber")
  17.  
  18.     If ( CInt(Session.Property("PIDok")) < 1 ) Then
  19.  
  20.         Session.Property("PIDprefix") = Session.Property("PIDprefixS")
  21.         Session.DoAction("checkNewSerialNumber")
  22.     
  23.     Else
  24.         Session.Property("VPDX") = "1"
  25.  
  26.     End If
  27.  
  28.     If ( (CInt(Session.Property("PIDok")) < 1) AND (sCustInfo = "") ) Then
  29.         checkSerialLogic = 3
  30.     Else
  31.         checkSerialLogic = 1
  32.     End If
  33.  
  34. End Function
  35.