home *** CD-ROM | disk | FTP | other *** search
/ DOKAN 21 / DOKAN21.iso / Extra / wmtools.exe / RCDATA / CABINET / parserie.txt < prev    next >
Text File  |  1999-03-30  |  655b  |  26 lines
  1. <SCRIPT LANGUAGE="VBScript">
  2.  
  3. ' ************************
  4. ' This is the main command script handler for ASF embedded scripts
  5. ' ( Written by Digital Renaisance, Toronto, Canada, 1999 ) 
  6. ' ************************
  7.  
  8. Sub DSPlay1_ScriptCommand(bstrType, bstrParam)
  9.  
  10.     Select Case Ucase(bStrType)
  11.         Case "CAPTION"
  12.             'msgbox("Caption Selected")
  13.             change(bstrParam)
  14.     Case "FILENAME"
  15.             'msgbox("Filename Selected")
  16.             if not ( DSPlay1.InvokeURLs ) then
  17.                 Launch_Url(bstrParam)
  18.             end if
  19.     Case "URL"
  20.             'msgbox("URL Selected")
  21.             if not ( DSPlay1.InvokeURLs ) then
  22.                 Launch_Url(bstrParam)
  23.             end if 
  24.     End Select
  25. End Sub
  26. </SCRIPT>