Why doesn't it work? 
Author Message
 Why doesn't it work?

If it is the same, why doesn't it work at all?
Please help,
Thx,
Tobias

<SCRIPT LANGUAGE=VBScript>

   Wenn es einen Fehler gibt, diesen nicht anzeigen
  on error resume next

   Versuche, Flash 3-Plug-In zu erzeugen
  IsFlash=IsObject(CreateObject("ShockwaveFlash.ShockwaveFlash.3"))
  if IsFlash = False then

       Flash 3 ist nicht installiert, probiere es mit Flash 4
     IsFlash=IsObject(CreateObject("ShockwaveFlash.ShockwaveFlash.4"))

  end if

  if IsFlash then
     location.href="flash.html"
  else
    location.href=" http://www.*-*-*.com/ "
  end if

</SCRIPT>



Thu, 11 Sep 2003 00:44:23 GMT  
 Why doesn't it work?
Set SF4 = CreateObject("ShockwaveFlash.ShockwaveFlash.3
IsFlash = IsObject(FS4)


Quote:
> If it is the same, why doesn't it work at all?
> Please help,
> Thx,
> Tobias

> <SCRIPT LANGUAGE=VBScript>

>   '  Wenn es einen Fehler gibt, diesen nicht anzeigen
>   on error resume next

>   '  Versuche, Flash 3-Plug-In zu erzeugen
>   IsFlash=IsObject(CreateObject("ShockwaveFlash.ShockwaveFlash.3"))
>   if IsFlash = False then

>      '  Flash 3 ist nicht installiert, probiere es mit Flash 4
>      IsFlash=IsObject(CreateObject("ShockwaveFlash.ShockwaveFlash.4"))

>   end if

>   if IsFlash then
>      location.href="flash.html"
>   else
>     location.href="http://www.macromedia.com"
>   end if

> </SCRIPT>



Thu, 11 Sep 2003 01:05:00 GMT  
 Why doesn't it work?

<html>
<body>
<SCRIPT LANGUAGE=VBScript>

  '  Wenn es einen Fehler gibt, diesen nicht anzeigen
  on error resume next
  IsFlash = False

  '  Versuche, Flash 3-Plug-In zu erzeugen
  IsFlash=IsObject(CreateObject("ShockwaveFlash.ShockwaveFlash.3"))
  On Error GoTo 0

  if IsFlash = False then

     '  Flash 3 ist nicht installiert, probiere es mit Flash 4
     IsFlash=IsObject(CreateObject("ShockwaveFlash.ShockwaveFlash.4"))

  end if

  if IsFlash then
    location.href="http://www.microsoft.com"
  else
    location.href="http://www.macromedia.com"
  end if

</SCRIPT>

you'll never see this since the code above
**always** sends IE somewhere else...

</body>
</html>

--
Michael Harris
Microsoft.MVP.Scripting
--

Please do not email questions - post them to the newsgroup instead.
--

Quote:

> If it is the same, why doesn't it work at all?
> Please help,
> Thx,
> Tobias

> <SCRIPT LANGUAGE=VBScript>

>   '  Wenn es einen Fehler gibt, diesen nicht anzeigen
>   on error resume next

>   '  Versuche, Flash 3-Plug-In zu erzeugen
>   IsFlash=IsObject(CreateObject("ShockwaveFlash.ShockwaveFlash.3"))
>   if IsFlash = False then

>      '  Flash 3 ist nicht installiert, probiere es mit Flash 4
>      IsFlash=IsObject(CreateObject("ShockwaveFlash.ShockwaveFlash.4"))

>   end if

>   if IsFlash then
>      location.href="flash.html"
>   else
>     location.href="http://www.macromedia.com"
>   end if

> </SCRIPT>



Thu, 11 Sep 2003 04:11:44 GMT  
 
 [ 3 post ] 

 Relevant Pages 

1. Why oh why doesn't this work?

2. LOCAL SHARE for DBase

3. help on stacks and queues (turbo pascal for windows)

4. text in tp7

5. ActiveX Controls

6. Proposed State & Federal Regulations for the INTERNET!

7. Table Total Times

8. Oracle Number() --> Delphi Integer / Float ... ???

9. Correct use of BlockRead or alternative loading approach

10. Euro character

11. Script interpreter

12. How does a Pointer variable work in TP 7.0 for DOS?

 

 
Powered by phpBB® Forum Software