var knownDomsPat=/^(com|net|org|edu|int|mil|gov|arpa|biz|aero|name|coop|info|pro|museum)$/;var WGdc=".";var WGgc=",";var WGnc="(";var W=12;var expDay=new Date();expDay.setTime(expDay.getTime()+(24*60*60*1000));var expMonth=new Date();expMonth.setTime(expMonth.getTime()+(24*60*60*1000*31));var expYear=new Date();expYear.setTime(expYear.getTime()+(24*60*60*1000*365));
function cbo_onchange(){if(getListValue(document.form1.cbo)==""){return;}document.form1.ID.value=getListValue(document.form1.cbo);document.form1.A.value="";document.form1.submit();}
function getListValue(list){var listValue="";if(list.selectedIndex!=-1){listValue=list.options[list.selectedIndex].value;}return(listValue);}
function btnSave_onclick(){document.form1.A.value="save";checkForm(document.form1);}function btnNew_onclick(){document.form1.A.value="new";document.form1.ID.value="";checkForm(document.form1);}function btnDelete_onclick(){x=confirm("This action will delete the record. Are you sure?");if(x==false){return;}document.form1.A.value="delete";document.form1.submit();}
function chkNumeric(obj){if(isNaN(obj.value)||obj.value==""){alertsay="Please enter only numeric values (greater than or equal to 0)";alert(alertsay);return false;}return true;}
function isEmail(elm){if(emailCheck(elm.value)==false){return false;}if(elm.value==''){alert("fill in email");return false;}}function emailCheck(emailStr){if(emailStr==""||emailStr==null){return;}emailStr=emailStr.toLowerCase();var checkTLD=1;var emailPat=/^(.+)@(.+)$/;var specialChars="\\(\\)><@,;:\\\\\\\"\\.\\[\\]";var validChars="\[^\\s" + specialChars + "\]";var quotedUser="(\"[^\"]*\")";var ipDomainPat=/^\[(\d{1,3})\.(\d{1,3})\.(\d{1,3})\.(\d{1,3})\]$/;var atom=validChars+'+';var word="("+atom+"|"+quotedUser+")";var userPat=new RegExp("^"+word+"(\\."+word+")*$");var domainPat=new RegExp("^"+atom+"(\\."+atom+")*$");var matchArray=emailStr.match(emailPat);if(matchArray==null){alert("CHECK EMAIL\nEmail address seems incorrect (check @ and .'s)");return false;}var user=matchArray[1];var domain=matchArray[2];for(i=0;i<user.length;i++){if(user.charCodeAt(i)>127){alert("CHECK EMAIL\nThe email username contains invalid characters.");return false;}}for(i=0;i<domain.length;i++){if(domain.charCodeAt(i)>127){alert("CHECK EMAIL\nThe email domain name contains invalid characters.");return false;}}if(user.match(userPat)==null){alert("CHECK EMAIL\nThe email username doesn't seem to be valid.");return false;}var IPArray=domain.match(ipDomainPat);if(IPArray!=null){for(var i=1;i<=4;i++){if(IPArray[i]>255){alert("CHECK EMAIL\nEmail destination IP address is invalid!");return false;}}return true;}var atomPat=new RegExp("^"+atom+"$");var domArr=domain.split(".");var len=domArr.length;for(i=0;i<len;i++){if(domArr[i].search(atomPat)==-1){alert("CHECK EMAIL\nThe email domain name does not seem to be valid.");return false;}}if(checkTLD&&domArr[domArr.length-1].length!=2&&domArr[domArr.length-1].search(knownDomsPat)==-1){alert("CHECK EMAIL\nThe email address must end in a well-known domain or two letter country.");return false;}if(len<2){alert("CHECK EMAIL\nThis email address is missing a hostname!");return false;}return true;}
function isURL(urlStr){if(urlStr.indexOf(" ")!=-1){alert("Spaces are not allowed in a URL");return false;}var urlPat=/(\w*)\.([\-\+a-z0-9]*)\.(\w*)/;if(urlPat.test(urlStr)==false){alert("The URL seems incorrect ");return false;}} 
function checkFields(formObj){for(i=0;i<formObj.length;i++)if(formObj.elements[i].type=="select-one"){if(formObj.elements[i].selectedIndex==0){alert("select an option from the dropdown combo '"+formObj.elements[i].name+"'");formObj.elements[i].focus();return false;}}else{if(formObj.elements[i].type=="text"||formObj.elements[i].type=="textarea"){if(formObj.elements[i].value==""){alert("fill in "+formObj.elements[i].name);formObj.elements[i].focus();formObj.elements[i].select();return false;}}}return true;}
function checkPW(str){if(str.length<=3||str.length>=16){alert("you must use between 3 and 16 characters in the password");return false;}if(str.indexOf(" ")>=0){alert("you cannot use spaces in the password");return false;}var illegals=/<|>|\\|\(|\)|\[|\{|\^|\$|\*|\+|\?|\.|"|'|%|&|}|]|@|#|\/|\|/;if(str.match(illegals)){alert("you cannot use these characters in a password\n\ | () [ { ^ $ * + ? . \" \' % & } ] @ # /");return false;}return true;}
function currencyFormat(fld,milSep,decSep,e){var sep=0;var key='';var i=j=0;var len=len2=0;var strCheck='0123456789';var aux=aux2='';var whichCode=(window.Event)?e.which:e.keyCode;if(whichCode==13)return true;key=String.fromCharCode(whichCode);if(strCheck.indexOf(key)==-1)return false;len=fld.value.length;for(i=0;i<len;i++)if((fld.value.charAt(i)!='0')&&(fld.value.charAt(i)!=decSep))break;aux='';for(;i<len;i++)if(strCheck.indexOf(fld.value.charAt(i))!=-1)aux+=fld.value.charAt(i);aux+=key;len=aux.length;if(len==0)fld.value='';if(len==1)fld.value='0'+decSep+'0'+aux;if(len==2)fld.value='0'+decSep+aux;if(len>2){aux2='';for(j=0,i=len-3;i>=0;i--){if(j==3){aux2+=milSep;j=0;}aux2+=aux.charAt(i);j++;}fld.value='';len2=aux2.length;for(i=len2-1;i>=0;i--)fld.value+=aux2.charAt(i);fld.value += decSep + aux.substr(len-2,len);}return false;}
function isDate(dateStr){if(dateStr==""){return;}var datePat=/^(\d{1,2})(\/|-)(\d{1,2})(\/|-)(\d{4})$/;var matchArray=dateStr.match(datePat);if(matchArray==null){alert("Please enter date as either mm/dd/yyyy or mm-dd-yyyy.");return false;}month=matchArray[1];day=matchArray[3];year=matchArray[5];if(month<1||month>12){alert("Month must be between 1 and 12.");return false;}if(day<1||day>31){alert("Day must be between 1 and 31.");return false;}if((month==4||month==6||month==9||month==11)&&day==31){alert("Month "+month+" doesn't have 31 days!");return false;}if(month==2){var isleap=(year%4==0&&(year%100!=0||year%400==0));if(day>29||(day==29&&!isleap)){alert("February "+year+" doesn't have "+day+" days!");return false;}}return true;}
function WGgroup(S){return(S.length<4)?S:(WGgroup(S.substring(0,S.length-3))+WGgc+S.substring(S.length-3,S.length));}
function GetCurrency(A,Chr){var N=Math.abs(Math.round(A*100));var S=((N<10)?"00":((N<100)?"0":""))+N;S=Chr+((A<0)?WGnc:"")+WGgroup(S.substring(0,(S.length-2)))+WGdc+S.substring((S.length-2),S.length)+((A<0&&WGnc=="(")?")":"");return (S.length>W)?"Over":S;}
function FormatMoney(Num,Chr,ExRate){return GetCurrency(Num * ExRate,Chr)}
function GrossFromNett(Nett,TaxRate){if(Nett!=null);{if(TaxRate>0);{return(parseFloat(Nett)/100)*(100+parseFloat(TaxRate));}return  Nett;}}
function NettFromGross(Gross,TaxRate){if(Gross!=null);{if(TaxRate>0);{return(parseFloat(Gross)/(100+parseFloat(TaxRate)))*100;}return  Gross;}}
function TaxFromGross(Gross,TaxRate){if(Gross!=null);{if(TaxRate>0);{var Nett=(parseFloat(Gross)/(100+parseFloat(TaxRate)))*100;return Gross-Nett;}return Gross;}}
function zeroFields(formObj){for(i=0;i<formObj.length;i++)if(formObj.elements[i].type=="select-one"&&formObj.elements[i].name!="NumPerPage"){formObj.elements[i].value="";}else{if(formObj.elements[i].type=="text"){formObj.elements[i].value="";}else{if(formObj.elements[i].type=="checkbox"){formObj.elements[i].checked=false;}}}return true;}
function isImage(strImage){if(strImage==""){return false;};var name=strImage;name=name.toLowerCase();var dot=name.lastIndexOf('.');var imagetypes='.gif.jpg.jpeg.png';if(imagetypes.indexOf(name.substr(dot))==-1){alert("Please enter only .gif or .jpg filenames");return false;}else{return true;}}
function isJPEG(strImage){if(strImage==""){return false;};var name=strImage;name=name.toLowerCase();var dot=name.lastIndexOf('.');var imagetypes='.jpg.jpeg';if(imagetypes.indexOf(name.substr(dot))==-1){return false;}else{return true;}}
function fieldPercent(fld,maxLen){var len;len=fld.value.length;if(len<=maxLen-1){document.getElementById(fld.name+"DIV").innerHTML=Math.round(100/(maxLen/len))+"% text used";}else{document.getElementById(fld.name+"DIV").innerHTML="<font color=red>This field is at the max length.</font>";fld.value=fld.value.substring(0,maxLen);}}
function fillFields(formObj){var i;for(i=0;i<formObj.length;i++)if(formObj.elements[i].type=="text"){if(formObj.elements[i].title.indexOf("required")>=0&&formObj.elements[i].value==""){if(formObj.elements[i].name.toUpperCase()=="EMAIL"){formObj.elements[i].value="benny.sutton@btinternet.com";}else{formObj.elements[i].value="test_"+formObj.elements[i].name;}}}for(i=0;i<formObj.length;i++)if(formObj.elements[i].type=="select-one"){if(formObj.elements[i].title.indexOf("required")>=0&&formObj.elements[i].selectedIndex==0){formObj.elements[i].selectedIndex=1;}}}
function pge(x){document.form1.CurPage.value=x;document.form1.submit();}
function chapter(x){document.form1.Chapter.value=x;document.form1.CurPage.value="";document.form1.submit();}
function strSearch(str){zeroFields(document.form1);chapter(0);document.form1.STR.value=str;document.form1.submit();}
function callHelp(URL){remotehelp=window.open("","remotehelp","width=450,height=450,left=0,top=0,scrollbars=yes");remotehelp.location.href=URL;}
function numberOnly(fld,e){var strCheck='0123456789.';var whichCode=(window.Event)?e.which:e.keyCode;if(whichCode==13)return true;key=String.fromCharCode(whichCode);if(strCheck.indexOf(key)==-1)return false;}
function checkRequired(){var formObj=document.form1;var i;for(i=0;i<formObj.length;i++)if(formObj.elements[i].type=="text"){if(formObj.elements[i].title.indexOf("required")>=0&&formObj.elements[i].value==""){alert("fill in "+formObj.elements[i].title);formObj.elements[i].focus();return false;}}var i;for(i=0;i<formObj.length;i++)if(formObj.elements[i].type=="select-one"){if(formObj.elements[i].title.indexOf("required")>=0&&formObj.elements[i].selectedIndex==0){alert("select an item in combo box - "+formObj.elements[i].title);formObj.elements[i].focus();return false;}}var i;for(i=0;i<formObj.length;i++)if(formObj.elements[i].type=="textarea"||formObj.elements[i].type=="password"){if(formObj.elements[i].title.indexOf("required")>=0&&formObj.elements[i].value==""){alert("fill in "+formObj.elements[i].title);formObj.elements[i].focus();return false;}}return true;}
function resizeImg(imgId,pix){var img=document.getElementById(imgId);var w=img.width;var h=img.height;if(w>h){f=1-((w-pix)/w);img.width=w*f;img.height=h*f;}else{f=1-((h-pix)/h);img.width=w*f;img.height=h*f;}}
function vote(x){if(getChip("votes","v"+x)==x){alert('You have already voted for this entry today');return;}setChip("votes","v"+x,x,expDay);window.open(strCompanyWeb+'Photo-Contest/Votes.asp?ID='+x,'_blank','toolbar=no,width=200,height=100');}
function getCookie(name){var cname=name+"=";var dc=document.cookie;if(dc.length>0){begin=dc.indexOf(cname);if(begin!=-1){begin+=cname.length;end=dc.indexOf(";",begin);if(end==-1)end=dc.length;return unescape(dc.substring(begin,end));}}return null;}function setCookie(name,value,expires){document.cookie=name+"="+escape(value)+";path=/"+((expires==null)?"":";expires="+expires.toGMTString());}function delCookie(name){document.cookie=name+"=;expires=Thu, 01-Jan-70 00:00:01 GMT"+";path=/";}function setChip(cookie,name,value,exp){var dc=getCookie(cookie);var cv=getChip(cookie,name);var cn=name+'=';if(cv!=null){var start=dc.indexOf(cn);if(start!=-1){var end=dc.indexOf('|',start);setCookie(cookie,dc.substring(0,start)+cn+value+'|'+dc.substring(end+1,dc.length),exp);}}else{if(dc!=null)dc+=cn+value+'|';else dc=cn+value+'|';setCookie(cookie,dc,exp);}}function getChip(cookie,name){var dc=getCookie(cookie);var cn=name+'=';if(dc!=null){var start=dc.indexOf(cn);if(start!=-1){start+=cn.length;var end=dc.indexOf('|',start);if(end!=-1)return unescape(dc.substring(start,end));}}return null;}function delChip(cookie,name,exp){var dc=getCookie(cookie);var cv=getChip(cookie,name);var cn=name+'=';if(cv!=null){var start=dc.indexOf(cn);var end=dc.indexOf('|',start);setCookie(cookie,dc.substring(0,start)+dc.substring(end+1,dc.length),exp);}}function Lang(x){document.form1.TID.value=x;document.form1.submit();}
function mailme(address,subject,body){self.location.href="mailto:"+address.replace('~','@')+"?subject="+subject+"&body="+body;}
function writeHREF(URL){top.location.href=URL.replace('~','http://www.');}