<%

	function isOpenCookies()
		Dim TryWrite
		isOpenCookies = false

		Response.Cookies("TestCookies") = "TestNow"
		TryWrite = request.Cookies("TestCookies")
		if TryWrite = "" then
			isOpenCookies = false
			exit function
		end if
		isOpenCookies = true
	end function




%>