home *** CD-ROM | disk | FTP | other *** search
/ Personal Computer World 2007 November / PCWNOV07.iso / shared / regwiz.cab / RegWizUI.dll / HTML / FORCESUB.VBS < prev    next >
Encoding:
Text File  |  2005-07-13  |  907 b   |  41 lines
  1. Option Explicit
  2.  
  3. Function OnForceSubmit()
  4. '{
  5.     Dim nSubmitResult, sMode
  6.     Dim strAccountID, objRequest
  7.  
  8.     Set objRequest = gobjExternal.GetParam ( PROP_REGREQUEST )
  9.  
  10.     If IsObject (objRequest) Then
  11.     '{
  12.         strAccountID = objRequest.Item ( PROP_ACCOUNTID )
  13.         Set objRequest = Nothing
  14.     '}
  15.     End If
  16.  
  17.     If "" = strAccountID Then
  18.         sMode = MODE_REG
  19.     Else
  20.         sMode = MODE_AUTH
  21.     End If
  22.  
  23.     Call LogDetails ( "Force Register: Submit data to backend")
  24.     nSubmitResult = SubmitDataForRegistration ( sMode )
  25.  
  26.     If REGWIZ_STATUS_NOINTERNET = nSubmitResult Then
  27.     '{
  28.         Call LogDetails ( "Force Register: Internet connection not found. Show page : " & SUBMITONCONNECT_HTM )
  29.         Call window.location.replace (CStr(SUBMITONCONNECT_HTM))
  30.     '}
  31.     End If
  32. '}
  33. End Function
  34.  
  35. Function OnForceSubBodyLoad()
  36. '{
  37.     Call SetExternalObject(gobjExternal)
  38.     Call SetWizardStatus (REGWIZ_WHEN_CONNECTED)
  39. '}
  40. End Function
  41.