Option Explicit
' CSSサポート for Internet Explorer
' あらかじめ用意済みのIE向けCSS & JScriptファイルを読み込む
' IE8以降には必要ない

on error resume next
' IE8のレンダリングモード判定プロパティを参照し、438エラーを誘発する
document.documentMode
' IE8以前なら、処理を続行
if err.number = 438 then
	' JSとCSSの読み込み
	dim doc, header, element
	set doc = document
	set header = doc.documentElement.lastChild
	while header.nodeName <> "HEAD"
		set header = header.previousSibling
	wend
	set element = header.appendChild(doc.createElement("link"))
	element.rel = "stylesheet"
	element.type = "text/css"
	element.href = "/style/ieonly.css"
	set element = header.appendChild(doc.createElement("script"))
	element.type = "text/javascript"
	element.charset = "utf-8"
	element.src = "/script/csscontentgenerator.js"
	set doc = nothing
	set element = nothing
	set header = nothing
end if
' エラー無視を解除
on error goto 0