home *** CD-ROM | disk | FTP | other *** search
/ PC-Online 1999 November / PCOnline_11_1999.iso / muenchen / hpri.js < prev    next >
Text File  |  1999-09-28  |  771b  |  24 lines
  1. var InternetExplorer = navigator.appName.indexOf("Microsoft") != -1;
  2.  
  3. if (navigator.userAgent && navigator.userAgent.indexOf("MSIE")>=0 && 
  4.  (navigator.userAgent.indexOf("Windows 95")>=0 || 
  5.   navigator.userAgent.indexOf("Windows 98")>=0 || navigator.userAgent.indexOf("Windows NT")>=0)) {
  6.  document.write('<script language=VBScript\> \n');
  7.  document.write('Sub hpri_FSCommand(ByVal command, ByVal args)\n');
  8.  document.write('  call hpri_DoFSCommand(command, args)\n');
  9.  document.write('end sub\n');
  10.  document.write('</script\> \n');
  11. }
  12.  
  13. function hpri_DoFSCommand(command, args) {
  14. var hpriObj = InternetExplorer ? hpri : document.hpri;
  15. p = opener.parent.frames[10].para;
  16.  
  17. if ( command=="karte" ) {
  18.  
  19.  hpriObj.LoadMovie( 1, p[0] + ".swf" );
  20.  
  21.  } 
  22. }
  23.  
  24.