【Classic ASP】ブラウザーチェック

If BrowserCheck() = False Then Response.Redirect "IEerror.asp"

FUNCTION BrowserCheck()
	Dim mstrBrowser
	Dim mintPosition

	mstrBrowser  = Request.ServerVariables("HTTP_USER_AGENT")
	mintPosition = InStr(mstrBrowser,"MSIE")
	If mintPosition <> 0 Then
		'--IEの場合
		mstrBrowser  = Mid(mstrBrowser,mintPosition+5,Len(mstrBrowser))
		mintPosition = InStr(mstrBrowser,";")
		mstrBrowser  = left(mstrBrowser,mintPosition-1)
		If CDbl(mstrBrowser) < 4.0 Then
			'--バージョンが4より小さい場合
			BrowserCheck = False
		Else
			BrowserCheck = True
		End If
	Else
		'--IEではない場合
		BrowserCheck = False
	End If
END FUNCTION