On Error Resume Next
dim checkForFlash6
dim checkForFlash7

checkForFlash7 = (IsObject(CreateObject("ShockwaveFlash.ShockwaveFlash.7")))

if checkForFlash7 = true then
  document.write("<object onClick=""javascript:location.href='/home/'"" style=""cursor : pointer;"" title=""ADAS : homepage"" id=""header"" data="""& swf_src &""" type=""application/x-shockwave-flash"" codebase=""http://www.adas.co.uk"" width=""100%"" height=""80""><param name=""movie"" value="""& swf_src &""" /><param name=""menu"" value=""false"" /><param name=""quality"" value=""high"" /><param name=""bgcolor"" value=""#ffffff"" /></object>")
end If

if checkForFlash7 = "" then
  document.write(" ")
end If