function StopDirectLink() {
	var strRefURL = new String(document.referrer);
	var strTopURL = new String("http://floralcompany.jp/");
	var reInSite = new RegExp("http://floralcompany.jp/", "");
	var numIndex = new Number(strRefURL.search(reInSite));
	
	if (numIndex == -1) {
		window.top.location.replace(strTopURL);
	}
}

function GetReferrer() {
	var strRefURL = new String(document.referrer);
	var strRefGetCGI = new String("http://floralcompany.jp/cgi/refget/refget2.cgi?ref=" + strRefURL);

	document.write("<img src='" + strRefGetCGI + "'>");
}

function CallHarbot() {
	if (navigator.javaEnabled()) {
		document.write("<applet code='harbot.applet.hb.HBApplet' width='127' height='201' codebase='http://harbox-harbot.so-net.ne.jp/app' archive='Harbox.jar'>");
		document.write("<param name='hbxid' value='94617'>");
		document.write("<param name='init_url' value='/entrance.jsp'>");
		document.write("<param name='cabbase' value='Harbox.cab'>");
		document.write("</applet><br>");
		document.write("<small>「？」を押して話し掛けてあげてください。<br>光るツノが置いてあるときはお散歩中です。<br><span style='color:red'>Sun JAVA Plug-in(JDK JRE等)では正常動作しません。</span></small>");
	} else {
		document.write("<a href='http://www.so-net.ne.jp/harbot/' target = '_blank'>Harbot</a>, if JAVA enabled...");
	}
}