Sub checkforFlash(flash,width,height,img)
	on error resume next
	var fh
	fh = IsObject(CreateObject("ShockwaveFlash.ShockwaveFlash.3"))

If fh = False Then
    fh = IsObject(CreateObject("ShockwaveFlash.ShockwaveFlash.4"))
End If

If fh = True Then
    document.write "<object classid='clsid:D27CDB6E-AE6D-11cf-96B8-444553540000' codebase='http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,29,0' width='"+width+"' height='"+height+"'>"
	document.write "<param name='movie' value='"+flash+"'>"
	document.write "<param name='quality' value='high'>"
	document.write "<embed src='"+flash+"' quality='high' type='application/x-shockwave-flash' width='"+width+"' height='"+height+"'></embed>"
	document.write "</object>"
Else
    document.write "<img src='"+img+"' alt='Foxtons properties are displayed with 360 tours' />"
End If
End Sub