//-- BizVein Get Module
//-- Copyright(C) 2008 Komatsu General Printing Co.,Ltd All rights reserved.

var _aId;

_aId = _getcookie("BizVein");
if(_aId == "") {
	_aId = _random(30, 'ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz');
	_setcookie("BizVein", _aId);
}

var motoUrl = document.location.pathname;
var tmp = motoUrl.split("/");
var _aPage = tmp[tmp.length - 1];
motoUrl = document.location.href;
var _aSearch = document.location.search;
if(_aSearch != "") {
	motoUrl = motoUrl.replace(_aSearch, "");
}
var _aUrl = motoUrl.replace(_aPage, "");
var _aReferrer = document.referrer;
var _aAgent = navigator.userAgent;

//document.write("Page：" + _aPage + "<br>");
//document.write("URL：" + _aUrl + "<br>");
//document.write("Referrer：" + _aReferrer + "<br>");
//document.write("Agent：" + _aAgent + "<br>");
//document.write("ID：" + _aId + "<br>");

var str = "<script type=\"text/javascript\" src=\"http://komatsu.ww8.jp/bizvein/accesslog/accesslog.cgi?_aPage=";
str = str + _aPage;
str = str + "&_aUrl=" + _aUrl;
str = str + "&_aReferrer=" + encodeURIComponent(_aReferrer);
str = str + "&_aAgent=" + encodeURIComponent(_aAgent);
str = str + "&_aId=" + _aId;
str = str + "&_aSearch=" + _aSearch;

document.write(str + "\"></script>");

function _random(len, source) {
	var result = '';
	var sourceLen = source.length;
	for(var i = 0; i < len; i++) {
		result += source.charAt(Math.floor(Math.random() * sourceLen));
	}
	return result;
}


function _getcookie(key) {
	var tmp1 = " " + document.cookie + ";";
	var xx1 = 0, xx2 = 0, xx3 = 0;
	var tmp2;
	len = tmp1.length;
	while(xx1 < len) {
		xx2 = tmp1.indexOf(";", xx1);
		tmp2 = tmp1.substring(xx1 + 1, xx2);
		xx3 = tmp2.indexOf("=");
		if (tmp2.substring(0, xx3) == key) {
			return(unescape(tmp2.substring(xx3 + 1, xx2 - xx1 - 1)));
		}
		xx1 = xx2 + 1;
	}
	return("");
}


function _setcookie(key, val) {
	var tmp = key + "=" + escape(val) + "; ";
	tmp += "expires=Tue, 01-May-2010 00:00:00 GMT; ";
	document.cookie = tmp;
}