home *** CD-ROM | disk | FTP | other *** search
/ Chip 2004 June / CHIP_CD_2004-06.iso / bonus / buhgal / files / M12USWEB.exe / RCDATA / CABINET / money.cab / discover.hta < prev    next >
Text File  |  2003-06-18  |  2KB  |  81 lines
  1. <HTML>
  2.     
  3. <HEAD>
  4.  
  5. <HTA:APPLICATION 
  6.     APPLICATIONNAME="WorksUpsell"
  7.     BORDER="thin"
  8.     BORDERSTYLE="static"
  9.     CAPTION="yes"
  10.     ICON="clock.ico"
  11.     MAXIMIZEBUTTON="no"
  12.     MINIMIZEBUTTON="no"
  13.     NAVIGABLE="yes"
  14.     SHOWINTASKBAR="no"
  15.     SINGLEINSTANCE="yes"
  16.     SYSMENU="yes"
  17.     VERSION="1.0.1"
  18.     WINDOWSTATE="minimize"
  19. >
  20.  
  21.     <title>Discover even more!</title>
  22.  
  23.     <STYLE TYPE="text/css">
  24.     
  25.         BODY { background-color: #AFB6C8; margin: 0px 0px;}
  26.     
  27.     </STYLE>
  28.  
  29.     <SCRIPT TYPE="text/jscript" LANGUAGE="JScript">
  30.         var landingPageHTML = "lnpg.hta";
  31.         
  32.         function goToLanding(){
  33.             window.location.href = landingPageHTML;
  34.         }
  35.     
  36.         window.onload = function() {
  37.             self.focus();
  38.             self.resizeTo(640,330);
  39.             // if we do nothing, it will pop-up at the default location
  40.             var width = screen.availWidth;
  41.             var height = screen.availHeight;
  42.             var newTop = (height / 2) - 270;
  43.             var newLeft = (width /2) - 320;
  44.             self.moveTo(newLeft,newTop);
  45.     
  46.             document.body.oncontextmenu = function() {
  47.                 return false;
  48.             }
  49.         
  50.         }
  51.  
  52.         window.onunload = function(){
  53.             window.resizeTo(640,570);
  54.         }
  55.  
  56.     </SCRIPT>
  57.  
  58. </HEAD>
  59.  
  60. <BODY SCROLL=no backgroundcolor="#D7DFF2">
  61.  
  62. <SCRIPT TYPE="text/vbscript" LANGUAGE="VBScript">
  63. On Error Resume Next
  64. FlashInstalled = (IsObject(CreateObject("ShockwaveFlash.ShockwaveFlash")))
  65.  
  66. If (FlashInstalled) Then
  67.     document.writeln("<DIV ID='discover' STYLE='position:absolute;left:0px;top:0px;z-index:-1;'>")
  68.     document.writeln("<OBJECT classid='clsid:D27CDB6E-AE6D-11cf-96B8-444553540000' codebase='http://active.macromedia.com/flash2/cabs/swflash.cab#version=4,0,0,0' ID=discoverplayer WIDTH=100% HEIGHT=300>")
  69.     document.writeln("<PARAM NAME=movie VALUE='discover.swf'><PARAM NAME=loop VALUE=false><PARAM NAME=menu VALUE=false><PARAM NAME=quality VALUE=high><param name=wmode value=transparent><EMBED src='discover.swf' loop=false menu=false quality=high WIDTH=100% HEIGHT=350 TYPE='application/x-shockwave-flash' PLUGINSPAGE='http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Version=ShockwaveFlash'></EMBED>")
  70.     document.writeln("</OBJECT>")
  71.     document.writeln("</DIV>")
  72.     document.close()
  73. End If
  74. </SCRIPT>
  75.  
  76.     <div style="position:absolute;left:0px;top:0px;z-index:10;width:700px;height:300px;cursor:pointer;"><table width="640" height="300"><tr><td height="300" onclick="goToLanding()"> </td></tr></table></div>
  77.  
  78.  
  79. </BODY>
  80. </HTML>
  81.