
// Cookieが有効かチェック
function chk_cookie(){

	//テストするための文字列
	var strTestData = "CookieTest=OK";

	//クッキーをセット
	document.cookie = strTestData

	var strTemp = document.cookie;
	if (!strTemp)
	{
		// エラーメッセージを返す
		return "Cookieを有効にしてください。";
	}else{
		return "";
	}
}

function formCheck(){

	err_str = "";

	wUserID    = document.main_form.wUserID.value;
	wUserPWD   = document.main_form.wUserPWD.value;

	wClass     = document.main_form.wClass.value;
	wServer    = document.main_form.wServer;
	wCharacter    = document.main_form.wCharacter.value;


	wMonth    = document.main_form.wMonth.value;
	wDay      = document.main_form.wDay.value;
	wAMPM      = document.main_form.wAMPM.value;
	wHour     = document.main_form.wHour.value;
	wMinutes   = document.main_form.wMinutes.value;

	wDetail    = document.main_form.wDetail.value;



	err_str += InputCheck(wUserID,"会員ID",4,16,1);
	err_str += InputCheck(wUserPWD,"パスワード",4,12,1);

	err_str += InputCheck(wClass,"カテゴリ",1,300,0);
	err_str += BoxCheck(wServer,"サーバ名",1,1);
	err_str += InputCheck(wCharacter,"キャラクター名",1,20,999);
	err_str += InputCheck(wMonth,"日時（月）",1,300,0);
	err_str += InputCheck(wDay,"日時（日）",1,300,0);
	err_str += InputCheck(wAMPM,"午前/午後",1,300,0);
	err_str += InputCheck(wHour,"日時（時）",1,300,0);
	err_str += InputCheck(wMinutes,"日時（分）",1,300,0);


	err_str += InputCheck(wDetail,"お問い合わせ内容",1,2000,999);


	err_str += chk_cookie();


	if (err_str == ""){
		// 値を送信
		return true;
	}else{
		// エラーメッセージ表示
		alert(err_str);
		return false;
	}
}

function selectSbox(param,f_name) {
	var f_name_str = "document.main_form." + f_name;
	var str = param;
	var i=0;
	var selector = eval(f_name_str);
	var upper = selector.length;	
	for(i=0; i<upper; i++) {
		if(selector.options[i].value == str) {
			selector.options[i].selected = true;
			break;
		}
	}
}

function selectUserInfo() {

	selectSbox("<%= s_month %>","wMonth");
	selectSbox("<%= s_day %>","wDay");
	selectSbox("<%= s_ampm %>","wAMPM");
	selectSbox("<%= s_hour %>","wHour");
	selectSbox("<%= s_minutes %>","wMinutes");

	selectSbox("<%= s_class %>","wClass");
	selectSbox("<%= s_server %>","wServer");

}