'  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

	document.write("<OBJECT classid='clsid:D27CDB6E-AE6D-11cf-96B8-444553540000' codebase='http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=5,0,0,0' WIDTH=400 HEIGHT=200><PARAM NAME=movie VALUE='home.swf'><PARAM NAME=loop VALUE=false><PARAM NAME=menu VALUE=false><PARAM NAME=quality VALUE=high><PARAM NAME=bgcolor VALUE=#FFFFFF></OBJECT>")


else
	document.write("<img src='images/home.jpg'>")

end if