function ReadCookie(which)
	dim token, namevalue, name, value
	value = ""
	for each token in split(document.cookie)
		namevalue = split(token, "=")
		name = namevalue(0)
		if ucase(name) = ucase(which) then
			value = namevalue(1)
			if right(value, 1) = ";" then
				value = left(value, len(value) - 1)
			end if
			exit for
		end if
	next
	ReadCookie = value
end function