fnlngpar1(lngidcval ); tblusrinv = ['v','d','v','c' ]; al2emldmn = 'alento'; al2emlxts = 'nl'; al2emlimg = 'al2img_h/al2(cvdv)a1e5(sz075).png'; var vly = true; var vln = false; var icy      =  1; var icn      =  0; var veridc   =  1;
var negidc   =  0; var dtyidc   =  1; var dtnidc   =  0; var vldidc   =  1; var cpyidc   =  1; var strvly   = 'yes'; var strvln   = 'no'; var chk01 = 0; var tp1n1 = 'N'; var tp1i1 = 'NI'; var tp1g1 = 'NR'; var tp1c1 = 'C'; var tp1s1 = 'C';
var tp1l1 = 'L'; var tp1b1 = 'BTN'; var tp1d1 = tp1g1; var vl_rsl = '= '; var vl_qes = '_'; var vl_ttl = '$'; var numchrlef = '_'; var numchrrig = '_'; var lfdIE_str = '\r\n'; var lfdFF_str = '\n'; var lfdascstr = '\x0D' +'\x0A';
var lfdflostr = ''; if (document.all ) { lfdflostr =lfdIE_str; } else { lfdflostr =lfdFF_str = '\n'; }; lfdflostr =lfdIE_str; var alnlefstr = "left"; var alncenstr = "center"; var alnrigstr = "right"; var dlminpstr = '<br>';
var dlmdumstr = '<!br>'; var dlmlfdstr = '|'; var dlmoutstr = dlminpstr; var lfdhtmstr = dlminpstr; var lfdoutstr = lfdflostr; var chrwidpxl = 7; var imgnegidc = 0; var imgtopidc = 1; var imgbotidc = 2; var tipFollowMouse = true;
var TipmouseX = 18; var TipmouseY = 12; var tipimgalvdft =imgnegidc; var tipimgalhdft ="center"; var tipimgmghdft =    0; var tipimgmgvdft =    0; var tipimgbrsdft ='none'; var tipimgbrwdft =    0; var tipimgbrcdft ="#000000";
var tipimgwiddft =    0; var tipimghgtdft =    0; var tipimgscldft = 1.00; var tipimgpthdft =""; var tipimgflidft =""; var tipimgsrcdft =""; var celimgalvdft =imgnegidc; var celimgalhdft ="center"; var celimgmghdft =    0; var celimgmgvdft =    0;
var celimgbrsdft ='none'; var celimgbrwdft =    0; var celimgbrcdft ="#000000"; var celimgwiddft =    0; var celimghgtdft =    0; var celimgscldft = 1.00; var celimgpthdft =""; var celimgflidft =""; var celimgsrcdft ="";
function fnVerStr1(vly1ref, vln1str, vly1str ) { if (vly1ref ) { return vly1str; } else { return vln1str;} } function fnDvdZer1(denominator, numerator, qtnvalalt ) { var qtnloc = qtnvalalt; if (denominator == 0 ) { qtnloc = 0; } else
if (numerator != 0 ) { qtnloc = (denominator /numerator ); } return qtnloc; } function fnstrputcnd1(putvly, valref ) { var valloc = ''; if (putvly ) { valloc = valref; } return valloc; }
function fnstraddcnd1(putvly, valmatref, addvly, valaddref ) { var valloc = ''; if (putvly) { valloc = valmatref; if (addvly ) { valloc += valaddref; } } return valloc; } function fntrmlef(strref) { var strloc =strref;
if (!strref) { strloc = ''; } for (var k = 0; ((k < strloc.length) && fnwitvly(strloc.charAt(k))); k++); return strloc.substring(k, strloc.length); } function fntrmrig(strref) { var strloc =strref; if (!strref) { strloc = ''; }
for (var j=strloc.length-1; ((j >=0) && fnwitvly(strloc.charAt(j))); j--) ; return strloc.substring(0, j+1); } function fntrmall(strref) { var strloc =strref; return fntrmlef(fntrmrig(strloc)); } function fnwitvly(chrchkref ) {
var witchrstr = " \t\n\r\f"; return (witchrstr.indexOf(chrchkref ) != -1); } function fnltrim1(valref) { return valref.replace(/^ */,""); } function fnrtrim1(valref) { return valref.replace(/ *$/,""); }
function fntrim1(valref) { return fnltrim1(fnrtrim1(valref)); } function fntrim2(valref) { return valref.replace(/^\s+|\s+$/,''); } function fntrmzerlef1(strref ) {
while ((strref.substr(0,1) == '0') && (strref.length > 1) ) { strref =strref.substr(1,9999 ); } return strref; } function fntrmzerlef2(strref) { return strref.replace(/^0+/, ''); } function fntrmzerlef2(strref) { return strref *1.0; }
function fnchrlef(blclefref, valref ) { var neg =false; var valloc =valref; if (parseInt(valloc ) < 0 ) { neg = true; } if (blclefref.length > 0 ) { if (Math.abs(parseInt(valloc ) ) < 10 ) { valloc = blclefref +Math.abs(valloc); } }
if (neg ) {valloc = "-" +valloc; } return valloc; } function remTrailingZeros(x) { var decPos=x.indexOf("."); if (decPos>-1) { first=x.substring(0,decPos); second=x.substring(decPos,x.length); while (second.charAt(second.length-1)== "0") {
second=second.substring(0,second.length-1); } if (second.length>1) { return first+second; } else { return first; } } return x; } function fnstrfillef1(valref, blclefref, vallmxloc ) { var valfmtstr = ''; var blcleflen = blclefref.length;
var valfmtlen =  0; valfmtstr = valref; if (blclefref.length > 0 ) { while ((valfmtstr.length +blcleflen ) <= vallmxloc ) { valfmtstr = blclefref +valfmtstr; } } valfmtlen = valfmtstr.length;
if (valfmtlen > vallmxloc ) { valfmtstr = valfmtstr.substr((vallmxloc -valfmtlen ), vallmxloc ); } return valfmtstr; } function fnstrfilrig1(valref, blcrigref, vallmxloc ) { var valfmtstr = ''; var blcriglen = blcrigref.length; valfmtstr = valref;
if (blcrigref.length > 0 ) { while ((valfmtstr.length +blcriglen ) <= vallmxloc ) { valfmtstr += blcrigref; } } valfmtlen = valfmtstr.length; if (valfmtlen > vallmxloc ) { valfmtstr = valfmtstr.substr(0, vallmxloc ); } return valfmtstr; }
function fnstrfil1(segstr, fldlen ) { var strloc= ""; while (strloc.length < fldlen ) { strloc +=segstr; } if (strloc.length > fldlen ) { strloc =strloc.substr(0,fldlen); } return strloc; }
function fnstraddnonnil1(putvly, trmvly, valmatref, valaddref ) { var valloc = ''; if (putvly) { valloc = valmatref; if (trmvly) { valloc = fntrmall(valloc ); } if (valloc.length > 0 ) { valloc += valaddref; } } return valloc; }
function  fnvaladdnst1(putvly, celvalref, matlefref, matrigref ) { var celvalloc =celvalref; if (putvly) { var matlefloc =matlefref; var matrigloc =matrigref; celvalloc = matlefloc +celvalloc +matrigloc; } return celvalloc; }
function alert(msgstrref, shwmllsecref ) { if (!alert.block ) { alert.block = !confirm(msgstrref ); if (alert.block ) { setTimeout("alert.block = false;", shwmllsecref ); } } }
function fnalert0(msgstrref, shwmllsecref ) {alert(msgstrref, shwmllsecref ); } function fnalert1(cky, msgstrref, shwmllsecref ) { var shwmllsecdft = 5000; var shwmllsecloc = shwmllsecdft; var msgstrbgn; var msgstrfin; var msgstrloc; if (cky) {
if (shwmllsecref ) { shwmllsecloc =shwmllsecref; } msgstrbgn = ''; msgstrbuf = "['OK'=DISMISS alert;" + " 'Cancel'=QUELL runaway alerts for " + (shwmllsecloc / 1000) + " sec.]"; msgstrloc = msgstrref + lfdflostr +
fnstrfil1('= ', msgstrbuf.length ) + lfdflostr + msgstrbuf; alert(msgstrloc, shwmllsecloc ); } } function fnmsg1(cky, msgstrref, shwmllsecref ) {fnalert1(cky, msgstrref, shwmllsecref ); } var mtxvaltyp =[];
mtxvaltyp.push(['Object'    ,'object'     ,'object'    ,'O' ]); mtxvaltyp.push(['Array'     ,'object'     ,'array'     ,'A' ]); mtxvaltyp.push(['Date'      ,'object'     ,'date'      ,'D' ]);
mtxvaltyp.push(['Function'  ,'function'   ,'function'  ,'F' ]); mtxvaltyp.push(['String'    ,'string'     ,'string'    ,'C' ]); mtxvaltyp.push(['Number'    ,'number'     ,'number'    ,'N' ]);
mtxvaltyp.push(['Boolean'   ,'boolean'    ,'boolean'   ,'L' ]); mtxvaltyp.push(['null'      ,'object'     ,'null'      ,'E' ]); mtxvaltyp.push(['undefined' ,'undefined'  ,'undefined' ,'U' ]); var typclsidx =0; var typerridx =1; var typtruidx =2;
var typcueidx =3; var typclsstr = ''; var typerrstr = ''; var typtrustr = ''; var typcuestr = ''; function fnnumvld4(varnamstr, varvalref ) { if (isNaN(varvalref ) ) { fnmsg1(vly,"ERROR:" +'{' +varnamstr +'= ' +varvalref +'}' +" INVALID NUMBER!");
return false; } else if (varvalref < 1 ) { fnmsg1(vly,"ERROR:" +'{' +varnamstr +'= ' +varvalref +'}' +" NUMBER SHOULD BE GREATER THAN 0!"); return false; } else { return true; } } function fnvalgrdvly(valref) { var grdvly =vln;
var pt_pos = valref.toString().indexOf("."); if (pt_pos > 0 ) { grdvly =vly; } return grdvly; } function fnvaltypstr1(valref ) { var valtyploc = ''; var valdumloc = ''; var valtypchk = ''; if (typeof valref ) { valtyploc =typeof valref;
if (valtyploc == 'string' ) { } else if (vly) { if (valtyploc == 'object' ) { if (valref) { if (valref instanceof Array ) { valtyploc = 'array'; } else if (valref.length) { if (typeof (valref.length) ) { if (typeof (valref.length ) == 'number' ) {
valtyploc = 'array'; } else { if (valref.propertyIsEnumerable() ) { if (!(valref.propertyIsEnumerable('length' ) ) ) { if (typeof valref.splice == 'function' ) { valtyploc = 'array'; } } } } } } } else if (vly) { valtypchk = "[*VAL:(none)]"; } } }
} return valtyploc; } function fnvaltypchk1(lb_nam1ref, valref, valtypref ) { var dfnvly =vly; var nilvly =vln; var valtyploc = ''; var valtypchk = ''; if (!typeof valref ) { valtypchk = "=(none)"; } else if (typeof valref ) { if (valtypref ) {
if (valtypref.length > 0 ) { valtyploc =valtypref; } } if (valtyploc.length < 1 ) { valtyploc =fnvaltypstr1(valref ); } if (valtyploc.length < 1 ) { dfnvly =vln; valtypchk = "=(empty)"; } else if (valtyploc == 'undefined' ) { dfnvly =vln;
valtypchk = "= 'undefined'"; } else if (valref == 'undefined' ) { dfnvly =vln; valtypchk = "= 'undefined'"; } else if (valtyploc == 'null' ) { valtypchk = "= 'null'"; } } if (valtypchk.length > 0 ) {
valtypchk = '[*' +lb_nam1ref +':' +'TYPE' +valtypchk +';VAL= ' +valref +']'; fnmsg1(vly,'fnvaltypstr1:' +valtypchk ); } return valtypchk; } function fnvalmatvly1(valref, valtypref, valtypchk ) { var dfnvly =vly; var nilvly =vln; var numver =vly;
var matvly =vln; var objidx =0; var valbuf =null; var valtyploc =valtypref; if (valtyploc == 'undefined' ) { dfnvly =vln; } else if (valref ==undefined ) { dfnvly =vln; } if (dfnvly ) { if (valtyploc == 'null' ) { nilvly =vly; } else
if (valref ==null ) { nilvly =vly; valtyploc = 'null'; } if (!nilvly ) { if (valtyploc != 'number' ) { numver =vln; if (valtyploc == 'boolean' ) { if (valref ==true ) { matvly =vly; } else if (valref ==false ) { matvly =vly; } else
if (valref) { matvly =vly; } else if (!valref) { matvly =vly; } } else if (valtyploc == 'string' ) { if (valref.length < 1 ) { matvly =vln; } else if (valref == "" ) { matvly =vln; } else { matvly =vly; } } else if (valtyploc == 'array' ) {
if (valref.length < 1 ) { matvly =vln; } else { matvly =vly; } } else if (valtyploc == 'object' ) { for (objidx in valref ) { valbuf = valref[objidx ]; if (valref !== undefined ) { if (fnvaltypstr1(valref ) !== 'function' ) { matvly =vly; } } } }
} else if (valtyploc == 'number' ) { numver =vly; if (valref ===0 ) { matvly =vly; } else if (valref ==0 ) { matvly =vly; } else { matvly =vly; } } } } return matvly; }
function fninpvalmsgstr1(tblid_ref, rowidx, colidx, celid_ref, vl_ttl, vl_qes, celinpvly, celmatref ) { var celvalstr = ''; var tblid_loc = ''; var celid_loc = ''; var celmatloc = ''; var celmattyp = ''; var celtypchk = ''; var celmatvly =vln;
var celvalmsg = ''; tbl_idloc =tblid_ref; cel_idloc =celid_ref; celmatloc =celmatref; celmattyp =fnvaltypstr1(celmatloc ); celtypchk =fnvaltypchk1(celid_loc, celmatloc, celmattyp ); celmatvly =fnvalmatvly1(celmatloc, celmattyp, celtypchk );
if (tbl_idloc.length > 0 ) { celvalmsg = tblid_loc; } celvalmsg += '[' +rowidx +'][' +colidx +']'; if (celid_loc.length > 0 ) { celvalmsg += "'" +celid_loc +"'";  } if (celtypchk.length > 0 ) { celvalmsg += '(' +celtypchk +')';  }
celvalmsg += '{' +celmatloc +'}'; if (celtypchk.length > 0 ) { celvalstr = celvalmsg ; celvalstr += '[*TYPCHK]'; } else if (!celmatvly ) { if (!celinpvly) { celvalstr = celvalmsg; celvalstr += '[*NO-MAT]'; } } else if (celmatloc ==vl_qes ) {
if (!celinpvly) { celvalstr = celvalmsg; celvalstr += '[*EMPTY]'; } } return celvalstr; } function fnvalfmtN1(blclefref,blcrigref, valref,typcue, vallmxref,frclmxref ) { var valfmtstr = ""; var typcueloc =typcue.charAt(0).toUpperCase();
var dotstr =''; var zr1str =''; if (typcueloc == 'I' ) { dotstr = '_'; zr1str = '' ; } else if (typcueloc == 'R' ) { dotstr = '.'; zr1str = '0'; } else { dotstr = '#'; zr1str = '$'; } var mn1str = '-'; var blclefloc = '_'; var blcrigloc = '_';
var jnkseg = '*'; var vallmxloc =0; var frclmxloc =0; var dotlen =0; var minlen =0; var frclmnloc =0; var trclmnloc =0; var fldlmnloc =0; var valloc =0; var valstr =''; var vallen =0; var valabs =0; var valabsstr =''; var valabsloc =0;
var valdotpos =0; var valdcmval =0; var valdcmstr = ''; var valfrcstr = ''; var valtrcstr = ''; var valtotstr = ''; var valabslen =0; var valdotlen =0; var valtrcval = ''; var trcvalloc =0; var frcvalloc =0; var xpnvly =vln; var xpncuepos =0;
var trcval =0; var frcval =0; var frcstr = ""; var trcstr = ""; valloc = valref; valloc = valloc /1.0; valstr = valloc.toString(); valloc = fntrmall(valstr ); vallen = valloc.length; vallmxloc =0; if (vallmxref > 0 ) { vallmxloc = vallmxref; }
else { vallmxloc = vallen; } frclmxloc =0; if (frclmxref > 0 ) { frclmxloc = frclmxref; } dotlen =0; if (frclmxloc > 0 ) { dotlen =1; } minlen =0; if (valloc < 0 ) { minlen =1; } frclmnloc = frclmxloc;
trclmnloc = 0 -minlen +vallmxloc -dotlen -frclmnloc; fldlmnloc = trclmnloc +frclmnloc; if (vly) { if (vallmxloc < fldlmnloc ) { window.alert("ERR! 'fnvalfmtN1': Inconsistent format specified!" ); valfmtstr =fnstrfil1('*', vallmxloc );
return valfmtstr; } } valabsloc =Math.abs(valloc ); valabsstr = valabsloc.toString(); valabsstr = fntrmlef(valabsstr ); xpncuepos = valabsstr.indexOf('e' ); xpnvly = (xpncuepos > -1 ); if (xpnvly ) {
valabsstr = valabsloc.toFixed(frclmxloc +3).toString(); } valtrclen =  0; valtrcstr = ''; valdotlen =  0; valdotstr = ''; valfrcstr = ''; valdcmstr = ''; if (vly) { valtrcstr = valabsstr; valabslen = valabsstr.length;
valdotpos = valabsstr.indexOf('.' ); if (valdotpos > 0 ) { valtrcstr = valabsstr.substring(0,valdotpos -0 ); valdotstr = '.'; valdotlen =   1; valfrcstr = valabsstr.substring(valdotpos +1, valabslen -0 ); } if (xpnvly ) { }
if (minlen > 0 ) { valtrcstr = mn1str +valtrcstr; } valtrclen = valtrcstr.length; if (vly) { if (valtrclen > vallmxloc ) { window.alert("ERR! 'fnvalfmtN1':" +lfdflostr +' trunc=' +valtrcstr +'; length=' +valtrclen +'; width=' +vallmxloc +':'
+lfdflostr +" Insufficient width for trunc length!" ); valfmtstr = fnstrfil1('*', vallmxloc ); return valfmtstr; } } } frclmxloc = Math.min(frclmxloc, (vallmxloc -valtrclen -valdotlen ) ); if (frclmxloc > 0 ) { valfrcstr = fntrmall(valfrcstr );
if (typcueloc == 'I' ) { valfrcstr = ''; } if (valfrcstr.length > frclmxloc ) { valfrcstr = valfrcstr.substring(0,frclmxloc -0 ); } else { valfrcstr = fnstrfilrig1(valfrcstr, blcrigref, frclmxloc ); } if (typcueloc == 'R' ) {
valfrcstr = '.' +valfrcstr; } else if (typcueloc == 'I' ) { valfrcstr = blcrigref +valfrcstr; } } else { if (vln) { window.alert("ERR! 'fnvalfmtN1': Insufficient width for fraction length!" ); } } valfmtstr =valtrcstr +valfrcstr;
valfmtstr = fnstrfillef1(valfmtstr, blclefref, vallmxloc ); return valfmtstr; } function fnvalfmtE1(blclefref,blcrigref, valref, vallmxref,frclmxref ) { var e = "E+"; var len =valref.toString().length; var pow10; var xp10; var jnkstr;
var valfmtstr = ""; var Fm0Str = ""; if (vallmxref < (frclmxref +5 ) ) { window.alert("Illegal format specified!" ); jnkstr = fnstrfil1('*',w ); return jnkstr; } var absx=Math.abs(valref); var pt_pos = absx.toString().indexOf(".");
if (absx ==0 ) { valfmtstr += "0."; for (var i =0; i < frclmxref; i++ ) { valfmtstr += "0"; } valfmtstr  += "E+00"; } else if (absx >= 1.0 ) { pow10 =1; xp10 = absx; while (xp10 >= 1. ) { pow10++; xp10 /= 10; }
valfmtstr =Math.round(xp10 *Math.pow(10, frclmxref ) ); valfmtstr =valfmtstr.toString(); if (valfmtstr.length ==Math.round(Math.floor(xp10 *Math.pow(10, frclmxref ) ) ).toString().length ) { pow10--; } Fm0Str =fnchrlef('0', pow10 );
valfmtstr = "0." +valfmtstr.substring(0,frclmxref ) +e +Fm0Str; } else if (absx < 1.0 ) { pow10 =1; xp10 =absx; while (xp10 < 1. ) { pow10--; xp10 *=10; } valfmtstr =Math.round((xp10 /10) *Math.pow(10, frclmxref ) );
valfmtstr =valfmtstr.toString(); if (valfmtstr.length !=Math.round(Math.floor((xp10/10 ) *Math.pow(10, frclmxref ) ) ).toString().length ) { pow10++; } if (pow10 < 0 ) { e = "E-"; }
valfmtstr = "0." +valfmtstr.substring(0, frclmxref ) +e +(new ToFmt(Math.abs(pow10 ) ) ).fmt00(); } if (valref < 0 ) { valfmtstr = "-" +valfmtstr; } if (valfmtstr.length > vallmxref ) { valfmtstr =fnstrfil1('*', vallmxref ); } else
if (valfmtstr.length < vallmxref ) { var valstr_bl= ""; for (var i =0; (i < (vallmxref -valfmtstr.length) ); i++ ) { valstr_bl += ' '; } valfmtstr =valstr_bl +valfmtstr; } return valfmtstr; }
function fnvalfmt2(blclefref,blcrigref, valref,typcue, vallmxref,frclmxref, cellmxref ) { var valfmtstr; var vallmxloc; vallmxloc =Math.min(vallmxref,cellmxref ); valfmtstr =fnvalfmt1(blclefref,blcrigref, valref,typcue, vallmxloc,frclmxref );
return valfmtstr; } function fnvalfmt1(blclefref,blcrigref, valref,typcue, vallmxref,frclmxref ) { var valfmtstr; var matvly; var valloc =valref; var vallen =0; var valtyploc =fnvaltypstr1(valloc ); if (valtyploc == 'undefined' ) {
valloc = "[*TYPE= 'undefined']"; valtyploc = 'string'; } if (valtyploc == 'null' ) { valloc = "[*TYPE= 'null']"; valtyploc = 'string'; } matvly =vly; if (matvly ) { if ((typcue.charAt(0) == 'N' ) || (valtyploc == 'number' ) ) {
if (frclmxref > 0 ) { valloc =valloc /1.0; if (typcue == 'NR' ) { valfmtstr =fnvalfmtN1(blclefref,blcrigref, valloc,'R', vallmxref,frclmxref); } else
if (fnvalgrdvly(valloc ) ) { valfmtstr =fnvalfmtN1(blclefref,blcrigref, valloc,'R', vallmxref,frclmxref); } else  { valfmtstr =fnvalfmtN1(blclefref,blcrigref, valloc,'I', vallmxref,frclmxref); } }
else { valfmtstr =fnvalfmtN1(blclefref,blcrigref, valloc,'I', vallmxref,frclmxref); } } else if ((typcue.charAt(0) == 'L' ) || (valtyploc == 'boolean' ) ) { valfmtstr =valloc.toString(); } else
if ((typcue.charAt(0) == 'C' ) || (valtyploc == 'string' ) ) { vallen =valloc.length; if (vallen > vallmxref ) { valfmtstr =valloc; } else { valfmtstr =valloc; } } else { valfmtstr =valloc; } } return valfmtstr; }
function fnvalprffmt1(blclefref,blcrigref, valref,typcue, vallmxref,frclmxref ,prfstr1,prfvly ) { var valfmtstr; var valstr1 = ''; var valstr2 = ''; var valstr3 = ''; var prflen1 = 0; var prfstr2 = 0; var vallen1 = 0; var vallen2 = 0;
var lendif1 = 0; var lendif2 = 0; valfmtstr = fnvalfmt1(blclefref,blcrigref, valref,typcue, vallmxref,frclmxref ); if (prfvly) { valstr1 = valfmtstr; vallen1 = valstr1.length; prflen1 = prfstr1.length;
valstr2 = fnvalfmt1('','', valref,typcue, vallmxref,frclmxref ); valstr2 = fntrmall(valstr2 ); vallen2 = valstr2.length; lendif1 = vallen1 - vallen2; if (lendif1 > 0 ) { lendif2 = Math.min(lendif1, prflen1);
valstr3 = valstr1.substr(lendif2, vallmxref ); } else { lendif2 = 0; valstr3 = valstr1; } prfstr2 = '<h4><b>' +prfstr1 +'</b></h4>'; valfmtstr = prfstr2 +valstr3; } return valfmtstr; }
function fnvalsgnfmt1(blclefref,blcrigref, valref,typcue, vallmxref,frclmxref ) { var valfmtstr; var prfstr1 = ''; var prfstr2 = ''; var prflen1 =  0; var prfposstr = '*'; var prfnegstr = '¬'; var prfzerstr = '= ';
if (valref > Zer ) { prfstr1 = prfposstr; } else if (valref < Zer ) { prfstr1 = prfnegstr; } else if (vly) { prfstr1 = prfzerstr; } prflen1 = prfstr1.length; prfstr2 = fnstrfil1('&nbsp;', prflen1 *1 *6);
valfmtstr =prfstr2 +fnvalprffmt1(blclefref,blcrigref, valref,typcue, vallmxref,frclmxref ,prfstr1,vly ); return valfmtstr; } function fnvalsgffmt1(valref,typcue, vallmxref,frclmxref ) { var valfmtstr;
valfmtstr =fnvalsgnfmt1(numchrlef,numchrrig, valref,typcue, vallmxref,frclmxref ); return valfmtstr; } function fnyarrunfmt1str1() { var YarRunStr  = ''; var YarRunFmt  = ''; var YarRunObj  =null; var DteRunObj = new Date();
YarRunObj  = DteRunObj.getFullYear(); YarRunStr  = YarRunObj; YarRunFmt  = fnvalfmt1('0','' , YarRunStr,'C',  4,0 ); return YarRunFmt; } function fndterunfmt1str1() { var DteRunStr  = ''; var TmeRunStr  = ''; var YarRunStr  = '';
var MonRunStr  = ''; var DayRunStr  = ''; var HorRunStr  = ''; var MnuRunStr  = ''; var SecRunStr  = ''; var MscRunStr  = ''; var DteRunFmt  = ''; var TmeRunFmt  = ''; var YarRunFmt  = ''; var MonRunFmt  = ''; var DayRunFmt  = '';
var HorRunFmt  = ''; var MnuRunFmt  = ''; var SecRunFmt  = ''; var MscRunFmt  = ''; var DteRunObj  =null; var YarRunObj  =null; var MonRunObj  =null; var DayRunObj  =null; var TmeRunObj  =null; var HorRunObj  =null; var MnuRunObj  =null;
var SecRunObj  =null; var MscRunObj  =null; DteRunObj = new Date(); YarRunObj  = DteRunObj.getFullYear(); MonRunObj  = DteRunObj.getMonth() +1; DayRunObj  = DteRunObj.getDate(); TmeRunObj  = DteRunObj.getTime(); HorRunObj  = DteRunObj.getHours();
MnuRunObj  = DteRunObj.getMinutes(); SecRunObj  = DteRunObj.getSeconds(); MscRunObj  = DteRunObj.getMilliseconds(); YarRunStr  = YarRunObj; MonRunStr  = MonRunObj; DayRunStr  = DayRunObj; HorRunStr  = HorRunObj; MnuRunStr  = MnuRunObj;
SecRunStr  = SecRunObj; MscRunStr  = MscRunObj; YarRunFmt  = fnvalfmt1('0','' , YarRunStr,'C',  4,0 ); MonRunFmt  = fnvalfmt1('0','' , MonRunStr,'C',  2,0 ); DayRunFmt  = fnvalfmt1('0','' , DayRunStr,'C',  2,0 );
HorRunFmt  = fnvalfmt1('0','' , HorRunStr,'C',  2,0 ); MnuRunFmt  = fnvalfmt1('0','' , MnuRunStr,'C',  2,0 ); SecRunFmt  = fnvalfmt1('0','' , SecRunStr,'C',  2,0 ); MscRunFmt  = fnvalfmt1('0','' , MscRunStr,'C',  3,0 ); DteRunFmt  = ''
+YarRunFmt +':' +MonRunFmt +':' +DayRunFmt +''; TmeRunFmt  = '' +HorRunFmt +'h:' +MnuRunFmt +'m'; if (vly) { TmeRunFmt  += ' (' +SecRunFmt +'s:' +MscRunFmt +'ms)'; } if (vly) { DteRunFmt  += ' - ' +TmeRunFmt; } return DteRunFmt; }
function fnaddevtonload2(fn_varref ) { var fn_varold; if (fnvaltypstr1(window.addEventListener ) != 'undefined') { window.addEventListener('load', fn_varref, vln ); } else if (fnvaltypstr1(document.addEventListener ) != 'undefined' ) {
document.addEventListener('load', fn_varref, vln ); } else if (fnvaltypstr1(window.attachEvent ) != 'undefined' ) { window.attachEvent('onload', fn_varref ); } else { fn_varold = window.onload; if (fnvaltypstr1(window.onload ) != 'function' ) {
window.onload = fn_varref; } else { window.onload = function() { fn_varold(); fn_varref(); }; } } } var nvgos_str = navigator.platform; var nvgnamstr = navigator.appName; var nvgagtstr = navigator.userAgent; var nvgvrsstr = navigator.appVersion;
var nvgos_strmns = nvgos_str.toLowerCase(); var nvgnamstrmns = nvgnamstr.toLowerCase(); var nvgagtstrmns = nvgagtstr.toLowerCase(); var nvgvrsstrmns = nvgvrsstr.toLowerCase(); var os_cuestr = ''; var brwnamstr = ''; var brwcuestr = '';
var brwactNS_idc = nvgnamstr.indexOf("Netscape" ); var brwactMS_idc = nvgnamstr.indexOf("Microsoft" ); var brwactNS_vly = (brwactNS_idc >= 0 ); var brwactMS_vly = (brwactMS_idc >= 0 ); var brwactIE_vly = (brwactMS_idc >= 0 );
var brwactDomvly = (document.getElementById ) ? true : false; var brwactNS5vly = (!document.all && brwactDomvly || window.opera ) ? true : false; var brwactIE5vly = ((navigator.userAgent.indexOf("MSIE") > -1 ) && brwactDomvly ) ? true : false;
var brwactIE4vly = (document.all && !brwactDomvly ) ? true : false; var brwactDynvly = (brwactNS5vly || brwactIE4vly || brwactIE5vly || brwactDomvly ) ? true : false; var brwactDynvln = (!brwactDynvly ) ? true : false; var brwactCuestr = '';
if (brwactNS_vly) {brwactCuestr = "NS_"; } if (brwactIE_vly) {brwactCuestr = "IE_"; } function fndtos_cue2() { var nvgos_str = navigator.platform; var nvgnamstr = navigator.appName; var nvgagtstr = navigator.userAgent;
var nvgvrsstr = navigator.appVersion; var nvgos_strmns = nvgos_str.toLowerCase(); var nvgnamstrmns = nvgnamstr.toLowerCase(); var nvgagtstrmns = nvgagtstr.toLowerCase(); var nvgvrsstrmns = nvgvrsstr.toLowerCase(); var vrspos; var mozvrs;
var mozitg; var os_cuestr = ''; if (nvgos_strmns.indexOf('win') != -1 ) {return "Ms Windows, " +nvgos_str; } else if (nvgos_strmns.indexOf('mac') != -1 ) {return "Mac"; } else if (nvgos_strmns.indexOf('linux') != -1 ) {return "Linux"; } else
if (nvgos_strmns.indexOf('unix') != -1 ) {return "Unix"; } else if (nvgos_strmns.indexOf('x11') != -1 ) {return "X11"; } else if (nvgos_strmns.indexOf('sun') != -1 ) {return "SUN"; } else
if (nvgos_strmns.indexOf('solaris') != -1 ) {return "Solaris"; } return 'Not detected'; } function fndtbrwnam2() { var nvgos_strmns = navigator.platform.toLowerCase(); var nvgagtstrmns = navigator.userAgent.toLowerCase();
var nvgvrsstrmns = navigator.appVersion.toLowerCase(); if (window.opera ) {return 'Opera'; } if (nvgagtstrmns.indexOf("opera"        ) != -1 ) {return 'Opera'; } if (nvgagtstrmns.indexOf("msie"         ) != -1 ) {return 'Internet Explorer'; }
if (nvgagtstrmns.indexOf("firefox"      ) != -1 ) {return 'Firefox'; } if (nvgagtstrmns.indexOf("mozilla/5.0"  ) != -1 ) {return 'Mozilla'; } if (nvgagtstrmns.indexOf("safari"       ) != -1 ) {return 'Safari'; }
if (nvgagtstrmns.indexOf("netscape"     ) != -1 ) {return 'Netscape'; } if (nvgagtstrmns.indexOf("staroffice"   ) != -1 ) {return 'Star Office'; } if (nvgagtstrmns.indexOf("webtv"        ) != -1 ) {return 'WebTV'; }
if (nvgagtstrmns.indexOf("beonex"       ) != -1 ) {return 'Beonex'; } if (nvgagtstrmns.indexOf("chimera"      ) != -1 ) {return 'Chimera'; } if (nvgagtstrmns.indexOf("netpositive"  ) != -1 ) {return 'NetPositive'; }
if (nvgagtstrmns.indexOf("phoenix"      ) != -1 ) {return 'Phoenix'; } if (nvgagtstrmns.indexOf("skipstone"    ) != -1 ) {return 'SkipStone'; } if (document.all ) {return 'Internet Explorer'; } if (document.layers ) {return 'Netscape'; }
if (navigator.appName  == "Netscape"  ) {return 'Netscape'; } if (nvgagtstrmns.indexOf('\/' ) != -1 ) { if (nvgagtstrmns.substr(0, nvgagtstrmns.indexOf('\/') ) != 'mozilla') { return navigator.userAgent.substr(0, nvgagtstrmns.indexOf('\/') ); }
else { return 'Netscape'; } } else if (nvgagtstrmns.indexOf(' ' ) != -1 ) { return navigator.userAgent.substr(0,nvgagtstrmns.indexOf(' ') ); } else { return navigator.userAgent; } return 'Not detected'; } function fndtbrwcue2() {
var nvgos_str = navigator.platform; var nvgagtstr = navigator.userAgent; var nvgvrsstr = navigator.appVersion; var nvgos_strmns = nvgos_str.toLowerCase(); var nvgagtstrmns = nvgagtstr.toLowerCase(); var nvgvrsstrmns = nvgvrsstr.toLowerCase();
var vrspos; var mozvrs; var mozitg; var brwcuestr = ''; fnalert1(vln, 'nvgos_:["' +nvgos_str +'"].<br>' +lfdflostr +'nvgagt:["' +nvgagtstr +'"].<br>' +lfdflostr +'nvgvrs:["' +nvgvrsstr +'"].<br>' +lfdflostr +'' ); fnalert1(vln, ''
+os_cuestr +'<br>' +lfdflostr +brwnamstr +'<br>' +lfdflostr +brwcuestr +'<br>' +lfdflostr +'' ); if (nvgos_strmns.indexOf('win') != -1 ) { if (nvgagtstrmns.indexOf("msie 8.0") != -1 ) {return "Ms IE 8.0"; } else
if (nvgagtstrmns.indexOf("msie 7.0") != -1 ) {return "Ms IE 7.0"; } else if (nvgagtstrmns.indexOf("msie 6.0") != -1 ) {return "Ms IE 6.0"; } else if (nvgagtstrmns.indexOf("msie 5.5") != -1 ) {return "Ms IE 5.5"; } else
if (nvgagtstrmns.indexOf("msie 5.0") != -1 ) {return "Ms IE 5.0"; } else if (nvgagtstrmns.indexOf("netscape") != -1 ) {return "Ns"; } else if (nvgagtstrmns.indexOf("mozilla" ) != -1 ) { vrspos = nvgagtstrmns.indexOf('; rv:1.' );
mozvrs = nvgagtstrmns.substr(vrspos +7, 1); mozitg = parseInt(mozvrs, 10 ); if (mozvrs > 3 ) {return "MS Moz. " +mozvrs; } } } else if (nvgos_strmns.indexOf('mac') != -1 ) { if (nvgagtstrmns.indexOf("safari") != -1 ) {return "Mac Safari"; } else
if (nvgagtstrmns.indexOf("netscape") != -1 ) {return "Netscape"; } else if (nvgagtstrmns.indexOf("mozilla") != -1 ) { vrspos = nvgagtstrmns.indexOf('; rv:1.' ); mozvrs = nvgagtstrmns.substr(vrspos +7, 1); mozitg = parseInt(mozvrs, 10 );
if (mozitg > 3 ) {return "Mac Moz. " +mozvrs; } } } else if (nvgos_strmns.indexOf('linux') != -1 ) { if (nvgagtstrmns.indexOf("mozilla") != -1 ) { vrspos = nvgagtstrmns.indexOf('; rv:1.' ); mozvrs = nvgagtstrmns.substr(vrspos +7, 1);
mozitg = parseInt(mozvrs, 10 ); if (mozitg > 3 ) {return "Linux Moz. " +mozvrs; } } } else if ((nvgos_strmns.indexOf('unix') != -1 ) || (nvgos_strmns.indexOf('x11') != -1 ) || (nvgos_strmns.indexOf('sun') != -1 ) ||
(nvgos_strmns.indexOf('solaris') != -1 )) { if (nvgagtstrmns.indexOf("mozilla") != -1 ) { vrspos = nvgagtstrmns.indexOf('; rv:1.' ); mozvrs = nvgagtstrmns.substr(vrspos +7, 1); mozitg = parseInt(mozvrs, 10 );
if (mozitg > 3 ) {return "Unix Moz. " +mozvrs; } } } else { var brwvrsstr; brwvrsstr= "_"; if (navigator ) { if (navigator.appVersion ) { brwvrsstr= "0"; if (nvgvrsstrmns.indexOf("2.") != -1 ) {brwvrsstr = "2"; } else
if (nvgvrsstrmns.indexOf("3.") != -1 ) {brwvrsstr = "3"; } else if (nvgvrsstrmns.indexOf("4.") != -1 ) {brwvrsstr = "4"; } else if (nvgvrsstrmns.indexOf("5.") != -1 ) {brwvrsstr = "5"; } else
if (nvgvrsstrmns.indexOf("6.") != -1 ) {brwvrsstr = "6"; } } } return brwvrsstr; } } function fnos_cuestr1() { var os_cueloc = 'Not detected'; os_cueloc = fndtos_cue2(); return os_cueloc; } function fnbrwnamstr1() { var brwnamloc = 'Not detected';
brwnamloc = fndtbrwnam2(); return brwnamloc; } function fnbrwcuestr1() { var brwcueloc = 'Not detected'; brwcueloc = fndtbrwcue2(); return brwcueloc; } function fnos_cuestr2() { var os_cueloc = 'Not detected'; os_cueloc = fndtos_cue2();
os_cuestr = brwcueloc; } function fnbrwnamstr2() { var brwnamloc = 'Not detected'; brwnamloc = fndtbrwnam2(); brwnamstr = brwnamloc; } function fnbrwcuestr2() { var brwcueloc = 'Not detected'; brwcueloc = fndtbrwcue2(); brwcuestr = brwcueloc; }
function fnbrwMSIE() { brwnamstr = fndtbrwnam2(); if (brwnamstr == 'Internet Explorer' ) {return true; } else {return false; } } function fnbrwmsg2() { var msg0  = 'Browser is not detected!'; var msg1  = "Active browser is of type: '";
var msg2  =fndtbrwnam2(); var msg3  =msg0; if (msg2.length > 2 ) { msg3 =msg1 +msg2 +"'."; } return  msg3; } function fnshwbrw2() { var brwmsgstr =fnbrwmsg2(); fnmsg1(vly,brwmsgstr ); } function fninsbrw2() { var brwmsgstr =fnbrwmsg2();
document.write(brwmsgstr ); } function fninsbrw3(eltid_valref ) { var eltobjloc; var eltbrwver; var brwmsgstr; if (! document.getElementById ) { return; } else { eltobjloc = document.getElementById(eltid_valref ); if (! eltobjloc ) { return; }
else { brwmsgstr =fnbrwmsg2(); eltobjloc.innerHTML =brwmsgstr; } } } function fninsbrw4() { fninsbrw3('boxhtmbrw1' ); } fnaddevtonload2(fnos_cuestr1 ); fnaddevtonload2(fnbrwnamstr1 ); fnaddevtonload2(fnbrwcuestr1 ); fnaddevtonload2(fninsbrw4 );
if (parent.frames.length) { top.location.href = document.location; } function fndocacturlstr1() { return this.location.href.toString(); } function fndocacturlpadstr1() { var docacturlstr = fndocacturlstr1();
return docacturlstr.substring(0, docacturlstr.lastIndexOf('/') + 1); } var docacturlsrv1vly = vln; var docacturldsk1vly = vln; var pad1str =  ''; var mns1str =  ''; var pad1len =  0; var pad2str = ''; var pad2len =  0; var cln1itg = '';
var cln2itg = ''; var sls1itg = ''; var sls2itg = ''; var seg1str = ''; var seg2str = ''; var seg3str = ''; var htt1itg = ''; var www1itg = ''; var htt1str = ''; var htt1len =  0; var htt2str = ''; var www1str = ''; var www1len =  0;
var www2str = ''; var dmi1str = ''; var dmi1len =  0; var dmi2str = ''; var dmi3str = ''; var drv1str = ''; var dir1str = ''; pad1str = fndocacturlpadstr1(); mns1str = pad1str.toLowerCase(); htt1itg = mns1str.search('http' );
www1itg = mns1str.search('www' ); pad1len = pad1str.length; cln1itg = pad1str.indexOf(':'); if (cln1itg > -1 ) { seg1str = pad1str.substring(0, cln1itg +1 ); seg2str = pad1str.substring(cln1itg +1 ); } if (cln1itg <  0 ) { seg3str = ''; } else
if (cln1itg > -1 ) { chr2itg = seg2str.lastIndexOf(':' ); if (chr2itg > -1 ) { seg3str = seg2str.substring(chr2itg + 1); } } if ((htt1itg < 0 ) && (www1itg < 0 ) )  { docacturldsk1vly = vly; } else if ((htt1itg > -1 ) || (www1itg > -1 ) ) {
docacturlsrv1vly = vly; } if (docacturldsk1vly ) { if (chr2itg <  0 ) { drv1str = seg1str.substr(cln1itg -1, 2 ); dir1str = seg1str.substring(cln1itg +1 ); } else if (chr2itg > -1 ) { drv1str = seg2str.substr(cln1itg -1, 2 );
dir1str = seg2str.substring(cln1itg +1 ); } } else if (docacturlsrv1vly ) { if (htt1itg > -1 ) { htt1str = pad1str.substring(htt1itg, pad1str.indexOf('/') -0 ); htt1len = htt1str.length; htt2str = htt1str;
if (htt1str.lastIndexOf(':') == (htt1len -1 ) ) { htt2str = htt1str.substr(0, htt1len -1 ); } } sls2itg = pad1str.lastIndexOf('/' ); pad2str = pad1str; if (sls2itg > -1 ) { pad2str = pad1str.substr(0, sls2itg -0 ); }
sls1itg = pad2str.lastIndexOf('/' ); dmi3str = pad2str; if (sls1itg > -1 ) { dmi3str = pad2str.substring(sls1itg +1 ); } if (vln) { if (www1itg > -1 ) { www1str = pad1str.substr(www1itg, 3 +1 ); www1len = www1str.length; www2str = www1str;
if (www1str.lastIndexOf('.' ) == (www1len -1 ) ) { www2str = www1str.substr(0, www1len -1 ); } } if (www1itg > -1 ) { dmi1str = pad1str.substring(www1itg +3 +1 ); dmi1len = dmi1str.length; dmi2str = dmi1str;
if (dmi1str.lastIndexOf('/') == (dmi1len -1 ) ) { dmi2str = dmi1str.substr(0, dmi1len -1 ); } dmi3str = www2str +'.' +dmi2str; } } } function fndocacturlfiostr1() { var docacturlstr = fndocacturlstr1();
var docacturlfiostr = docacturlstr.substring(docacturlstr.lastIndexOf('/') +1 ); var anc1itg = docacturlfiostr.indexOf('#'); var docacturlfioancstr = ''; if (anc1itg > -1 ) { docacturlfiostr = docacturlfiostr.substring(0, anc1itg +0 ); }
return docacturlfiostr; } function fndocacturlfioancstr1() { var docacturlstr = fndocacturlstr1(); var docacturlfiostr = docacturlstr.substring(docacturlstr.lastIndexOf('/') +1 ); var anc1itg = docacturlfiostr.indexOf('#');
var docacturlfioancstr = ''; if (anc1itg > -1 ) { docacturlfioancstr = docacturlfiostr.substring(anc1itg +1 ); } return docacturlfioancstr; } function fndocacturlfionamstr1() { var fiostr = fndocacturlfiostr1();
return fiostr.substring(0, fiostr.lastIndexOf('.') +0 ); } function fndocacturlfioxtsstr1() { var fiostr = fndocacturlfiostr1(); return fiostr.substring(fiostr.lastIndexOf('.') +1 ); } var  docacturlpadstr = '';
docacturlpadstr = fndocacturlpadstr1().toLowerCase(); var  docacturlfiostr = ''; docacturlfiostr = fndocacturlfiostr1().toLowerCase(); var  docacturlfionamstr = ''; docacturlfionamstr = fndocacturlfionamstr1().toLowerCase();
var  docacturlfioancstr = ''; docacturlfioancstr = fndocacturlfioancstr1().toLowerCase(); var  docdterunfrs1 = ''; docdterunfrs1 += 'Date/time     : ' +" " +fndterunfmt1str1()      +"." +'<br>'; var  docos_cuefrs1 = ''; docos_cuefrs1 += ''
+'Operating system : ' +" " +fnos_cuestr1()          +"." +'<br>'; var  docbrwnamfrs1 = ''; docbrwnamfrs1 += 'Browser type  : ' +" " +fnbrwnamstr1()          +"." +'<br>'; var  docbrwcuefrs1 = ''; docbrwcuefrs1 += '' +os_cuestr +'<br>'
+brwnamstr +'<br>' +brwcuestr +'<br>Browser version : ' +" " +fnbrwcuestr1()          +"." +'<br>'; var  docacturlfrs1 = ''; if (docacturldsk1vly ) { docacturlfrs1 += 'Drive/disk    : ' +"'" +   drv1str +"'." +'<br>'
+'Directory/map : ' +"'" +   dir1str +"'." +'<br>File/document : ' +"'" +fndocacturlfiostr1() +"'." +'<br>'; if (docacturlfioancstr.length > 0 ) { docacturlfrs1 += 'Anchor/chapter: ' +"'" +fndocacturlfioancstr1() +"'." +'<br>'; } } else
if (docacturlsrv1vly ) { docacturlfrs1 += 'Protocol      : ' +"'" +   htt2str +"'." +'<br>Domain/website: ' +"'" +   dmi3str +"'." +'<br>File/document : ' +"'" +fndocacturlfiostr1() +"'." +'<br>'; if (docacturlfioancstr.length > 0 ) {
docacturlfrs1 += 'Anchor/chapter: ' +"'" +fndocacturlfioancstr1() +"'." +'<br>'; } } var  docacturlbuf1 = ''; if (vln) { docacturlbuf1 = 'Location URL  : ' +'<br>' +"'" +fndocacturlstr1()       +"';" +'<br>'
+'File name     : ' +"'" +fndocacturlfionamstr1() +"';" +'<br>File extension: ' +"'" +fndocacturlfioxtsstr1() +"'." +'<br>Protoc.+domain: ' +"'" +fndocacturlpadstr1()    +"';" +'<br><br>pad1str : ' +"'" +   pad1str +"';" +'<br>'
+'pad2str : ' +"'" +   pad1str +"';" +'<br>seg1str : ' +"'" +   seg1str +"';" +'<br>seg2str : ' +"'" +   seg2str +"';" +'<br>seg3str : ' +"'" +   seg3str +"';" +'<br><br>htt1str : ' +"'" +   htt1str +"';" +'<br>'
+'htt2str : ' +"'" +   htt2str +"';" +'<br>www1str : ' +"'" +   www1str +"';" +'<br>www2str : ' +"'" +   www2str +"';" +'<br>dmi1str : ' +"'" +   dmi1str +"';" +'<br>dmi2str : ' +"'" +   dmi2str +"';" +'<br>'
+'dmi3str : ' +"'" +   dmi3str +"';" +'<br><br>drv1str : ' +"'" +   drv1str +"';" +'<br>dir1str : ' +"'" +   dir1str +"'." +'<br><br>'; } function ipval1() { return ip = '<!--#echo var="REMOTE_ADDR"-->'; } function ipval2(ip ) {
document.myform.ipaddr.value = ip; } function ipval3(ip ) { alert("Your IP address is " + ip ); } function ipval4() { return ipval3(ipval1()); } function fndocinstagelt1( tagstrref,eltstrref, typstrref,relstrref,mdastrref, id_strref,hrfstrref ) {
var tagid_obj = document.getElementsByTagName(tagstrref )[0]; var eltnodobj = document.createElement(eltstrref ); eltnodobj.type  = typstrref; eltnodobj.rel   = relstrref; eltnodobj.media = mdastrref; eltnodobj.id    = id_strref;
eltnodobj.href  = hrfstrref; tagid_obj.appendChild(eltnodobj ); } function fndocinshdrlnkcss1() { fndocinstagelt1( "head",'link', 'text/css','stylesheet','screen', "al2stl2","al2stl01/al0stl2.css" ); } fnaddevtonload2(fndocinshdrlnkcss1 );
function XYpos2() { fnalert1(vly, 'XYpos2(): browser="' +fnbrwmsg2() +'"' ); var msgstrloc1 ="Interesse in tekst of afbeeldingen? Mail ons!"; if (brwactMS_vly ) { fnmsg1(vly,'XYpos2:MS_:' ); document.onmousedown = fn_clk_IE4; }
if (brwactNS_vly ) { fnmsg1(vly,'XYpos2:NS_:' ); window.captureEvents(Event.MOUSEDOWN ); document.onmousedown = fn_clk_NS4; } function fn_clk_IE4() { fnalert1(vly, 'fn_clk_IE4():start.' ); xPos = event.screenX; yPos = event.screenY;
alert('XYpos2:IE4: ' +xPos + " left " + yPos + " down" ); var evtbtnidc = -1; evtbtnidc = event.button; var evtbtnstr = fnevtbtnstr(event.button ); fnmsg1(vly,'XYpos2:IE4:mouse-click=' +evtbtnstr ); if (evtbtnidc == 2 ) {
fnmsg1(vly,'XYpos2:IE4: ' +msgstrloc1 ); return false; } } function fn_clk_NS4(e) { fnalert1(vly, 'fn_clk_NS4():start.' ); xPos = e.screenX; yPos = e.screenY; alert('XYpos2:NS4: ' +xPos + " left " + yPos + " down" ); var evtbtnidc = -1;
evtbtnidc = e.which; var evtbtnstr = fnevtbtnstr(e.which ); fnmsg1(vly,'XYpos2:NS4:mouse-click=' +evtbtnstr ); if ((evtbtnidc == 2 ) || (evtbtnidc == 3 ) ) { fnmsg1(vly,'XYpos2:NS4: ' +msgstrloc1 ); return false; } }
function fnevtbtnstr(evtbtnidc ) { var evtbtnstr = 'void'; if (evtbtnidc == 0 ) { evtbtnstr = 'none'; } else if (evtbtnidc == 1 ) { evtbtnstr = 'left'; } else if (evtbtnidc == 2 ) { evtbtnstr = 'right'; } else if (evtbtnidc == 3 ) {
evtbtnstr = 'right'; } else if (evtbtnidc == 4 ) { evtbtnstr = 'middle'; } return evtbtnstr; } } function fngetsibpvs(n ) { var x = n.previousSibling; while (x && (x.nodeType != 1 ) ) { x = x.previousSibling; } return x; }
function tes_previoussibling(n) { xmlDoc=loadXMLDoc("books.xml"); x=xmlDoc.getElementsByTagName("author")[0]; document.write(x.nodeName); document.write(" = "); document.write(x.childNodes[0].nodeValue); y=get_previoussibling(x);
document.write("<br />Previous sibling: "); document.write(y.nodeName); document.write(" = "); document.write(y.childNodes[0].nodeValue); } function fndocobjval1( eltobjref, eltsltref ) { var eltsltloc =fntrmall(eltsltref ).toUpperCase();
var eltsltlmx = eltsltloc.length; var tagsltstr = ''; var attsltstr = ''; var attid_valstr = ''; var attclsvalstr = ''; var attaltvalstr = ''; var attnamvalstr = ''; var attttlvalstr = ''; var attprntagobj = ''; var attpvstagobj = '';
var attprntagstr = ''; var attpvstagstr = ''; var attprnclsstr = ''; var attpvsclsstr = ''; var attprnvalstr = ''; var attpvsvalstr = ''; var eltinnhtmstr = ''; var eltinnhtmlen = 0; var eltinnhtmseg = ''; var elthtmseglmx =80;
var attfrsvalstr = ''; var eltattsltstr = ''; var eltattvalstr = ''; var eltobjsltstr = ''; var eltobjvalstr = ''; var eltobjtypstr = fnvaltypstr1(eltobjref ); if (vly) { if (eltobjtypstr.toLowerCase() != 'object' ) { } else {
if (eltsltloc == 'OBJ' ) { eltobjvalstr = eltobjref; } else { tagsltstr =eltobjref.tagName; tagsltstr =tagsltstr.toUpperCase(); attid_valstr = ''; attclsvalstr = ''; attnamvalstr = ''; attid_valstr =eltobjref.getAttribute('id' );
attclsvalstr =eltobjref.className; attaltvalstr =eltobjref.getAttribute('alt' ); attnamvalstr =eltobjref.getAttribute('name' ); attttlvalstr =eltobjref.getAttribute('title' ); attprntagobj = eltobjref.parentNode; if (attprntagobj ) {
attprntagstr = attprntagobj.tagName; if (attprntagstr ) { attprnvalstr = attprntagstr; } } attpvstagobj = fngetsibpvs(eltobjref ); if (attpvstagobj ) { attpvstagstr = attpvstagobj.tagName; if (attpvstagstr ) { attpvsvalstr = attpvstagstr; } }
eltinnhtmstr = eltobjref.innerHTML; eltinnhtmlen = eltinnhtmstr.length; eltinnhtmseg = ''; eltinnhtmseg = eltinnhtmstr.substr(0,elthtmseglmx ); while (eltinnhtmseg.indexOf('<') > 0 ) { eltinnhtmseg = eltinnhtmseg.replace('<', '&lt;' ); }
if (eltinnhtmseg.length > 0 ) { eltinnhtmseg += '&nbsp;'; eltinnhtmseg += '|">'; eltinnhtmseg += '|-->'; } attfrsvalstr = '{tag= "' +tagsltstr       +'";id_= "' +attid_valstr    +'";cls= "' +attclsvalstr    +'";nam= "' +attnamvalstr    +'"'
+';alt= "' +attaltvalstr    +'";ttl= "' +attttlvalstr    +'";prn= "' +attprnvalstr    +'";pvs= "' +attpvsvalstr    +'";htm_len= ' +eltinnhtmlen +'}<br>HTM-seg:' +lfdflostr +'{' +eltinnhtmseg +'}'; if (eltsltlmx > 0 ) {
if (eltsltloc == 'TAG'   ) { eltattsltstr =tagsltstr; } else if (eltsltloc == 'ID'    ) { eltattvalstr =attid_valstr; } else if (eltsltloc == 'CLASS' ) { eltattvalstr =attclsvalstr; } else if (eltsltloc == 'ALT'   ) { eltattvalstr =attaltvalstr; }
else if (eltsltloc == 'NAME'  ) { eltattvalstr =attnamvalstr; } else if (eltsltloc == 'TITLE'  ) { eltattvalstr =attttlvalstr; } else if (eltsltloc == 'PARENT'   ) { eltattvalstr = attprnvalstr; } else
if (eltsltloc == 'PREVIOUS' ) { eltattvalstr = attpvsvalstr; } else if (eltsltloc == 'HTM' ) { eltattvalstr = eltinnhtmstr; } else if (eltsltloc == 'HTM-LEN' ) { eltattvalstr = fntrmlef(fnvalfmtstr1(' ','',eltinnhtmlen,'NI',12,0 ) ); } else
if (eltsltloc == 'HTM-SEG' ) { eltattvalstr = eltinnhtmseg; } else if (eltsltloc == 'FRS'   ) { eltattvalstr =attfrsvalstr; } } if (eltattsltstr.length < 1 ) { if (!eltattvalstr) { eltattvalstr = ''; } if (eltattvalstr.length > 0 ) {
eltattsltstr = eltsltloc; } else { eltattsltstr = '[*?]'; } } else { eltattvalstr =eltattsltstr; } eltobjsltstr = eltattsltstr; if (eltattvalstr.length < 1 ) { eltobjvalstr = '[' +eltsltloc +'= "' +'[?]' +'"]'; } else {
eltobjvalstr = eltattvalstr; } } } } return eltobjvalstr; } function fndoctblobjval1( eltobjref, eltsltref ) { var eltsltloc =fntrmall(eltsltref ).toUpperCase(); var eltsltlmx = eltsltloc.length; var tbldoctagval =[]; var eltrowidx;
var eltrowntl =eltobjref.length; var eltobjvalstr; for (eltrowidx= 0; (eltrowidx < eltrowntl ); eltrowidx++ ) { eltobjvalstr = fndocobjval1(eltobjref[eltrowidx ], eltsltloc ); if (eltsltloc == 'FRS' ) {
eltobjvalstr = 'FRS:' +'eltidx=[' +eltrowidx +']:' +'&nbsp;' +eltobjvalstr; } tbldoctagval[eltrowidx ] = eltobjvalstr; } return tbldoctagval; } var tes_fntblrngtagobj1vly = vln; function fntblrngtagobj1( eltrngid_ref, elttagsltref,
varrtncueref ) { var eltrngid_obj; var eltrngobjlmx = 0; var tbldoctagval =[]; var tbldoctagobj =[]; var doctagobjlmx = 0; var eltobjtypstr; var varrtncueloc = fntrmall(varrtncueref ).toUpperCase(); var eltrngid_lmx =0; var eltrngid_loc = '';
var elttagsltall = '*'; var elttagsltlmx =0; var elttagsltloc = ''; if (document.getElementById ) { eltrngid_loc =fntrmall(eltrngid_ref ); elttagsltloc =fntrmall(elttagsltref ); elttagsltlmx =elttagsltloc.length; if (elttagsltlmx < 1 ) {
elttagsltloc =elttagsltall; } else { elttagsltloc =elttagsltloc.toUpperCase(); } eltrngid_lmx = eltrngid_loc.length; if (eltrngid_lmx < 1 ) { if (document.all ) { eltrngid_obj = document.all; if (elttagsltloc == '*' ) {
tbldoctagobj = eltrngid_obj; } else { tbldoctagobj = eltrngid_obj.tags(elttagsltloc ); } } else { tbldoctagobj = document.getElementsByTagName(elttagsltloc ); } } else if (eltrngid_lmx > 0 ) {
fnmsg1(tes_fntblrngtagobj1vly, 'eltrngid_loc={' +eltrngid_loc +'}' ); eltrngid_obj = document.getElementById(eltrngid_loc ); fnmsg1(tes_fntblrngtagobj1vly, 'eltrngid_obj={' +eltrngid_obj +'}' );
tbldoctagobj = document.getElementById(eltrngid_loc ).getElementsByTagName(elttagsltloc ); fnmsg1(tes_fntblrngtagobj1vly, 'tbldoctagobj={' +tbldoctagobj +'}' ); } } eltobjtypstr = fnvaltypstr1(tbldoctagobj ); doctagobjlmx = tbldoctagobj.length;
tbldoctagval = ''; if (vln ) { tbldoctagval += 'fntblrngtagobj1:3{:' +'eltrngid_loc' +'= ' +'"' +eltrngid_loc  +'";' +'elttagsltloc' +'= ' +'"' +elttagsltloc  +'";' +'varrtncueloc' +'= ' +'"' +varrtncueloc  +'"}<br>' +lfdflostr; tbldoctagval +=
'fntblrngtagobj1:4{' +'eltrngobjlmx' +'= ' +eltrngobjlmx +';' +'doctagobjlmx' +'= ' +doctagobjlmx +';' +'eltobjtypstr' +'= ' +"'" +eltobjtypstr +"'" +'}<br>' +lfdflostr; } if (vly) { if (varrtncueloc == 'OBJ' ) { tbldoctagval = tbldoctagobj; }
else { if (vln) { tbldoctagval += fntblputhtm1('', fndoctblobjval1(tbldoctagobj, varrtncueloc ) ); } else { tbldoctagval =[]; tbldoctagval = fndoctblobjval1(tbldoctagobj, varrtncueloc ); } } } return tbldoctagval; } var docrngid_dft = '';
var doctagsltall = '*'; var doctagsltdft = doctagsltall; var tbldoctagobj =[]; function fntblrngtagobj2() { tbldoctagobj = fntblrngtagobj1(docrngid_dft, doctagsltdft, 'OBJ' ); } function fneltobjrenval1( eltobjref, eltattsltloc, eltattrenstr,
eltattstlstr  ) { if (eltobjref ) { if (eltattsltloc == 'ID' ) { eltobjref.id = eltattrenstr; eltobjref.setAttribute('id', eltattrenstr ); } else if (eltattsltloc == 'CLASS' ) { eltobjref.className = eltattrenstr;
eltobjref.setAttribute('class', eltattrenstr ); } else if (eltattsltloc == 'NAME' ) { eltobjref.setAttribute('name', eltattrenstr ); } else if (eltattsltloc == 'ALT' ) { eltobjref.setAttribute('alt', eltattrenstr ); } else
if (eltattsltloc == 'TITLE' ) { eltobjref.setAttribute('title', eltattrenstr ); } if ((vly) && (eltattsltloc == 'CLASS' ) ) { if (vln) { eltstliniobj = fngeteltstlobj5(eltobjref ); eltstlinistr = fngeteltstlstr5(eltobjref );
eltattstlobj = eltstliniobj; } fnputeltstlstr5(eltobjref, eltattstlstr ); } } } function fneltobjinsstr1( eltobjref, kd1tx1strref, kd1sp1stlref ) { if (eltobjref ) { var kd0oldobj; var kd1newobj; var kd2newobj; var kd1dv1obj; var kd1dv1cls;
var kd1sp1obj; var kd1br1obj; var kd1tx1obj; var kd1tx1strloc = ''; var kd1tx2strloc = ''; kd1dv1obj = document.createElement('div' ); if (vln) { kd1tx1strloc = kd1tx1strref; kd1tx1obj = document.createTextNode(kd1tx1strref );
kd1sp1obj = document.createElement('span' ); kd1sp1obj.style.cssText = kd1sp1stlref; kd1sp1obj.setAttribute('style', kd1sp1stlref ); kd1sp1obj.appendChild(kd1tx1obj ); kd1dv1obj.appendChild(kd1sp1obj ); kd1br1obj = document.createElement('br' );
kd1dv1obj.appendChild(kd1br1obj ); } else if (vly) { kd1tx2strloc = '<span style= "' +kd1sp1stlref +'">' +kd1tx1strref +'</span><br>'; if (vln) { kd1tx1obj = document.createTextNode(kd1tx2strloc ); kd1dv1obj.appendChild(kd1tx1obj ); } else {
kd1dv1obj.innerHTML = kd1tx2strloc; } } kd0oldobj = eltobjref.firstChild; kd0oldobj = eltobjref.firstChild; if (kd0oldobj) { kd2oldobj = kd0oldobj.cloneNode(true ); kd1dv1obj.appendChild(kd2oldobj ); eltobjref.replaceChild(kd1dv1obj, kd0oldobj );
} } } function fngeteltstlobj5(eltobjref ) { var eltstlobj1; var eltstlobj2; var eltstlitg1 =0; eltstlobj1 = null; if (window.getComputedStyle) { eltstlobj1 = window.getComputedStyle (eltobjref, ""); eltstlitg1 = 1; } else
if (document.defaultView ) { if (document.defaultView.getComputedStyle ) { eltstlobj1 = document.defaultView.getComputedStyle(eltobjref, null ); eltstlitg1 = 2; } } else if (eltobjref.currentStyle ) { eltstlobj1 = eltobjref.currentStyle;
eltstlitg1 = 3; } else if (eltobjref.style ) { eltstlobj1 = eltobjref.style; eltstlitg1 = 4; } return eltstlobj1; } function fngeteltstlstr5(eltobjref ) { var cssString; cssString = eltobjref.style.cssText; if (typeof(cssString ) != 'string' ) {
cssString = eltobjref.getAttribute('style' ); } if (typeof(cssString ) != 'string' ) { cssString = '[*cssString= ' +'{NONE}' +'.]' } else if (cssString.length < 1 ) { cssString = '[*cssString= ' +'{EMPTY}' +'.]' } return cssString; }
function fnputeltstlstr5(eltobjref, cssString ) { eltobjref.style.cssText = cssString; eltobjref.setAttribute('style', cssString ); } function fngeteltstlval5(eltobjref, stlnamref ) { var stlnambuf; var eltstlobj1; var stlnamobj1; var stlvalobj1;
var stlvalstr1; eltstlobj1 = null; if (window.getComputedStyle) { eltstlobj2 = window.getComputedStyle (eltobjref, ""); } else if (document.defaultView ) { eltstlobj2 = document.defaultView.getComputedStyle(eltobjref, null );  } if (eltstlobj2) {
stlnambuf = stlnamref.replace(/([A-Z])/g, "-$1"); stlnambuf = stlnambuf.toLowerCase(); eltstlobj1 = eltstlobj2.getPropertyValue(stlnambuf ); } else if (eltobjref.currentStyle ) { eltstlobj1 = eltobjref.currentStyle[stlnamref ]; } else
if (eltobjref.style ) { eltstlobj1 = eltobjref.style[stlnamref ]; } return eltstlobj1; } function fnputeltstlval5(eltobjref, stlnamref, stlvalref ) { var stlnambuf; var eltstlobj1; var eltstlobj2; eltstlobj1 = fngeteltstlobj5(eltobjref );
eltstlobj2 = fnputeltstlval5(eltobjref, stlnamref ); eltstlobj1 = null; if (window.getComputedStyle) { eltstlobj2 = window.getComputedStyle (eltobjref, ""); } else if (document.defaultView ) {
eltstlobj2 = document.defaultView.getComputedStyle(eltobjref, null );  } if (eltstlobj2) { stlnambuf = stlnamref.replace(/([A-Z])/g, "-$1"); stlnambuf = stlnambuf.toLowerCase(); eltstlobj1 = eltstlobj2.getPropertyValue(stlnambuf ); } else
if (eltobjref.currentStyle ) { eltstlobj1 = eltobjref.currentStyle[stlnamref ]; } else if (eltobjref.style ) { eltstlobj1 = eltobjref.style[stlnamref ]; } return eltstlobj1; } function fneltsetstlbgc(eltobjref, bgcvalstr ) { var eltstlobj1;
eltstlobj1 = eltobjref.style; eltstlobj1.backgroundColor = bgcvalstr; } function fnSrcGoog(curobj, domainroot ) { curobj.q.value= "site:"+domainroot+" "+curobj.qfront.value; }
function fnmsglnk4(clstagref,tblusrinv,dmnstrref,xtsstrref, imgstrref ) { var tbltagall =[]; var mspstrloc = '&#064;'; var mspstrloc = '@'; var dotstrloc = '.'; var tblusrlen; var usrstrloc; var chridx; var txtnewstr; var rngtagntl; var rngtagidx;
var kd_oldobj; var kd_oldstr; var eltlnkobj; var eltspnobj; var eltstlstr; var elttxtobj; var eltimgobj; var eltsrcobj; var imgaltstr; var txthtmstr; if (document.getElementById ) { if (document.all) { tbltagall =document.all; } else {
tbltagall =document.getElementsByTagName("body")[0].getElementsByTagName("*"); } if (tbltagall) { usrstrloc = ''; tblusrlen =tblusrinv.length; for (chridx =(tblusrlen -1); (chridx > -1 ); chridx-- ) { usrstrloc +=tblusrinv[chridx]; }
txtnewstr  =usrstrloc +mspstrloc +dmnstrref +dotstrloc +xtsstrref; txtnewstr  = 'ma' +'il' +'to' +':' +txtnewstr; rngtagntl  =tbltagall.length; for (rngtagidx=0; (rngtagidx < rngtagntl ); rngtagidx++) {
if (tbltagall[rngtagidx ].className == clstagref ) { eltlnkobj = document.createElement("a" ); eltlnkobj.href = txtnewstr; eltspnobj = document.createElement("span" ); eltstlstr  = 'font-weight:bold;'; eltspnobj.style.cssText = eltstlstr;
eltspnobj.setAttribute('style', eltstlstr ); txthtmstr  = ''; txthtmstr  += 'E-mail: '; imgaltstr = 'Click to e-mail'; txthtmstr  += '<img' +' src= "' +imgstrref +'"' +' alt= "' +imgaltstr +'">'; eltspnobj.innerHTML = txthtmstr;
kd_oldobj = tbltagall[rngtagidx].firstChild; tbltagall[rngtagidx].replaceChild(eltlnkobj, kd_oldobj ); tbltagall[rngtagidx].firstChild.appendChild(eltspnobj ); tbltagall[rngtagidx].firstChild.appendChild(eltspnobj ); if (vln) {
elttxtobj  =document.createTextNode(txthtmstr ); tbltagall[rngtagidx].firstChild.firstChild.appendChild(elttxtobj ); } if (vln) { } if (vln) { eltimgobj  =document.createElement("img" ); eltimgobj.src =imgstr; eltimgobj.alt =altstr; } } } } } }
function fnmsglnk4shl() {fnmsglnk4('clsal2msglnk4',tblusrinv,al2emldmn,al2emlxts,al2emlimg);} fnaddevtonload2(fnmsglnk4shl); function fnmsg2adr(adrusr,adrdmn,adrxts ) { var adrstr = adrusr +'@' +adrdmn +'.' +adrxts; return adrstr; }
var tipwiddft =   "60"; var tipbrwdft =   "2"; var tippdgdft =   "6"; var tipbrsdft = "solid"; var tipbrcdft = "#ff0000"; var tipbgcdft = "#ffffff"; var tipftcdft = "#000099"; var tipfszdft ="08";
var tipfntdft = "Verdana, arial, helvetica, sans-serif"; function fnstrans2htm1(ansstrref ) { var ansstrloc = ''; var ansstrlen =  0; var anschrloc = ''; var anschritg = ''; var htmsegloc = ''; var outsegloc = ''; var fn_out1loc = '';
ansstrloc = ansstrref; ansstrlen = ansstrloc.length; chrpositg = -1; while (chrpositg < (ansstrlen - 1 ) ) { chrpositg += 1; anschrloc = ansstrloc[chrpositg]; anschritg = anschrloc.charCodeAt(0); if (anschritg < 128 ) { outsegloc = anschrloc; }
else { htmsegloc = '&#' +anschritg +';'; outsegloc = htmsegloc +"[='&amp;#" +anschritg +";']"; } fn_out1loc += outsegloc; } return fn_out1loc; } function fnvalfmtstl1(prfstrref,valstrref,psfstrref,  htmfmtcue ) { var valstrloc = '';
var htmfmtloc = ''; var htmtagloc = ''; valstrloc =valstrref; if ((prfstrref.length +psfstrref.length ) > 0 ) { if (prfstrref.length > 0 ) { valstrloc =prfstrref +valstrloc; } if (psfstrref.length > 0 ) { valstrloc =valstrloc +psfstrref; } }
if (valstrloc.length > 0 ) { if (htmfmtcue) { htmtagloc =fntrmlef(valstrloc).substr(0,3); if (htmfmtcue.length > 0 ) { if (htmfmtcue == 'UDL') { if (!(htmtagloc== '<u>')) { htmfmtloc = 'u'; } } else if (htmfmtcue == 'BLD') {
if (!(htmtagloc== '<b>')) { htmfmtloc = 'b'; } } else if (htmfmtcue == 'ITL') { if (!(htmtagloc== '<i>')) { htmfmtloc = 'i'; } } if (htmfmtloc.length > 0 ) { valstrloc = '<' +htmfmtloc +'>' +valstrloc +'</' +htmfmtloc +'>'; } } } }
return valstrloc; } function  fnvalhtmstlstr1(celtypcue ) { var celstlstr = ''; var celdgtstlstr = ''; var celchrstlstr = ''; celfntstr = ''; celfszstr = ''; celtdcstr = ''; celfwgstr = ''; celfststr = ''; celfvrstr = ''; celnwrstr = '';
celnwrstr = "white-space:nowrap;"; celdgtstlstr =celfntstr +celfszstr +celtdcstr +celfwgstr +celfststr +celfvrstr +celnwrstr; celchrstlstr =celfntstr +celfszstr +celtdcstr +celfwgstr +celfststr +celfvrstr +celnwrstr;
if (celtypcue.charAt(0) == 'N' ) { celstlstr = celdgtstlstr; } else { celstlstr = celchrstlstr; } return celstlstr; } function  fnhtmtagbgn1( tagstrref, attstrref, attvalref, stlstrref ) { var tagstrloc =fntrmall(tagstrref );
var attstrloc =fntrmall(attstrref ); var attvalloc =fntrmall(attvalref ); var stlstrloc =fntrmall(stlstrref ); var tagbgnloc = ''; var tagfinloc = ''; var attstlloc = 'style'; if (tagstrloc.length > 0 ) { tagbgnloc += '<' +tagstrloc;
if (attstrloc.length > 0 ) { if (attvalloc.length > 0 ) { tagbgnloc += ' ' +attstrloc +'= "' +attvalloc +'"'; } } if (stlstrloc.length > 0 ) { tagbgnloc += ' ' +attstlloc +'= "' +stlstrloc +'"'; } tagbgnloc += '>'; tagbgnloc += lfdflostr; }
return tagbgnloc; } function  fnvalhtmtag1( celvalref, tagstrref, attstrref, attvalref, stlstrref ) { var celvalloc =celvalref; var tagstrloc =fntrmall(tagstrref ); var attstrloc =fntrmall(attstrref ); var attvalloc =fntrmall(attvalref );
var stlstrloc =fntrmall(stlstrref ); var tagbgnloc = ''; var tagfinloc = ''; var attstlloc = 'style'; if (tagstrloc.length > 0 ) { tagbgnloc += fnhtmtagbgn1(tagstrloc, attstrloc, attvalloc, stlstrloc ); tagfinloc += '<' +'/' +tagstrloc +'>'; }
celvalloc = tagbgnloc +celvalloc +tagfinloc; return celvalloc; } function  fnstrputloc1(outstrref  ) { var fn_out1loc = ''; fn_out1loc += outstrref; return fn_out1loc; } function  fnstrputloc2(lb_nam1ref, outstrref ) { var fn_out1loc = '';
if ((lb_nam1ref.length > 0 ) && (vly) ) { fn_out1loc += '[fnstrputloc2:CALL:' +lb_nam1ref +'.]'; fn_out1loc += '<br>'; fn_out1loc += lfdflostr; } fn_out1loc += outstrref; return fn_out1loc; } function  fnstrputdoc1(outstrref  ) {
document.write(outstrref ); } function  fnstrputdoc2(lb_nam1ref, outstrref ) { var fn_out1loc = ''; if ((lb_nam1ref.length > 0 ) && (vly) ) { fn_out1loc = '[fnstrputdoc2:CALL:' +lb_nam1ref +'.]'; fnmsg1(vly,fn_out1loc ); fn_out1loc += '<br>'; }
document.write(fn_out1loc +outstrref ); } function  fnstrputbox1(outstrref, boxid_1ref  ) { var boxobjloc =null; var boxstrloc = ''; var fn_out1loc = ''; boxobjloc =document.getElementById(boxid_1ref ); boxobjloc.innerHTML = outstrref; }
function  fnstrputbox2(lb_nam1ref, outstrref, boxid_1ref  ) { var boxobjloc =null; var boxstrloc = ''; var fn_out1loc = ''; if ((lb_nam1ref.length > 0 ) && (vly) ) { fn_out1loc = '[fnstrputbox2:CALL:' +lb_nam1ref +';BOX:ID= "' +boxid_1ref +'".]'
fnmsg1(vly,fn_out1loc ); } boxobjloc =document.getElementById(boxid_1ref ); if ((lb_nam1ref.length > 0 ) && (vly) ) { boxstrloc = '[CONTENT=]' +boxobjloc.innerHTML; fnmsg1(vly,boxstrloc ); fn_out1loc += '<br>'; }
boxobjloc.innerHTML = fn_out1loc +outstrref; } var fac0cpy1str = '<sup>&copy;</sup>'; var fac0cpy2str = '<sup><span class="szecpy">&copy;</span></sup>'; var ttl1std1lefstr = '<h4><b><span class="szestd"><span class="stlprz">' +lfdflostr;
var ttl1std1rigstr = '</span></span></b></h4>'; var ttl1grt1lefstr = '<h3><b><span class="szegrt"><span class="stlprz">' +lfdflostr; var ttl1grt1rigstr = '</span></span></b></h3>';
var ttl1zgr1lefstr = '<h2><b><span class="szezgr"><span class="stlprz">' +lfdflostr; var ttl1zgr1rigstr = '</span></span></b></h2>'; var ttl1htm1lefstr = '<h4><b><span class="szestd"><span class="varsmc">' +lfdflostr;
var ttl1htm1rigstr = '</span></span></b></h4>'; var fkw1htm1lefstr = '<h3><b><span class="szegrt"><span class="varsmc">' +lfdflostr; var fkw1htm1rigstr = '</span></span></b></h3>';
var dmn1htm1lefstr = '<h4><b><span class="szestd"><span class="stlprz">' +lfdflostr; var dmn1htm1rigstr = '</span></span></b></h4>'; var cpt1htm1lefstr = '<h4><b><span class="szestd"><span class="stlprz">' +lfdflostr;
var cpt1htm1rigstr = '</span></span></b></h4>'; var cpt1htm2lefstr = '<!h3><b><span style="font-size:120%"><span class="stlprz">' +lfdflostr; var cpt1htm2rigstr = '</span></span></b><!/h3>';
var cpt1htm3lefstr = '<h3><b><span class="szegrt"><span class="stlprz">' +lfdflostr; var cpt1htm3rigstr = '</span></span></b></h3>'; var cpt2htm1lefstr = '<h4><b><span class="szestd"><span class="stlprz">' +lfdflostr;
var cpt2htm1rigstr = '</span></span></b></h4>'; var cpt3htm1lefstr = '<h4><b>'; var cpt3htm1rigstr = '</b></h4>'; var shl1htm1lefstr = '<h4><b><span class="szestd"><span class="stlprz">' +lfdflostr; var shl1htm1rigstr = '</span></span></b></h4>';
var lvl1htm1lefstr = '<!h4><b><span class="szeprz"><span class="stlprz">' +lfdflostr; var lvl1htm1rigstr = '</span></span></b><!/h4>'; var valaddstr ='<br>' +lfdflostr; var valaddfrs =valaddstr +valaddstr; var valaddbuf =''; var htmarwdubrig ='';
var htmarwdublef =''; htmarwdubrig ='<span class="txtbot"><img src="al2img_l/arw-lr-dub-lang2bl3.gif" align="right" valign="bottom"></span><!br>' +lfdflostr; htmarwdublef ='<span class="txtbot">'
+'<img src="al2img_l/arw-lr-dub-lang2bl3.gif" align="left" valign="top"></span><!br>' +lfdflostr; var htmar01lnk_ul1bgnstr = '<ul class="ul_arwlr1"><li>'; var htmar01lnk_ul1finstr = '</li></ul>'; var htmal00sys0zgr1str = '';
htmal00sys0zgr1str = '<span class="typal2"><span class="szezgr"><h2><b><i>Alento</i></b></h2></span></span><!br>' +lfdflostr +'<span class="typal2"><span class="szegrt"><h2><b><i>- Training &amp; Advies</i></b></h2></span></span>'
+'<!br>' +lfdflostr; var htmal00sys0xgr1str = ''; htmal00sys0xgr1str = '<div class="typal2">' +lfdflostr +'<div class="szexgr">' +lfdflostr +'<i><h1><b>Alento</b></h1></i>' +lfdflostr +'</div>' +lfdflostr +'</div>' +lfdflostr
+'<div class="typal2">' +lfdflostr +'<div class="szexgr">' +lfdflostr +'<i><h2><b>- Training &amp; Advies</b></h2></i>' +lfdflostr +'</div>' +lfdflostr +'</div>' +lfdflostr; function  fnurlstr(urlprc,urlweb,urlfkw,urlxts,urlfio,urlanc ) {
var fn =urlprc +':' +'/'+'/' +urlweb +'.' +urlfkw +'.' +(urlxts +"/") +urlfio +'#' +urlanc; return fn; } function fnfloidf1sernum1( flopad1ref, floxts1ref, floser1ref, flonum1ref, num1lmxref ) { var floidf1loc =''; var flopad1loc ='';
var floser1loc =''; var flonum1str =''; var num1lmxloc = 0; var floxts1loc =''; floser1loc = floser1ref.toUpperCase(); floidf1loc = flopad1ref +floser1loc; if (num1lmxref > 0 ) { num1lmxloc = num1lmxref; } else { num1lmxloc = 2; }
if (flonum1ref ) { if (flonum1ref > -1 ) { flonum1str = fnvalfmtN1('0','', flonum1ref,'NI', num1lmxloc, 0 ); if (flonum1str.length > 0 ) { floidf1loc += '_' +flonum1str } } } if (floxts1ref) { floxts1loc = fntrmall(floxts1ref );
if (floxts1loc.length > 0 ) { if (floxts1loc.charAt(0) != '.' ) { floxts1loc = '.' +floxts1loc; } floidf1loc += floxts1loc; } } return  floidf1loc; } function  fnflohtmpfx1str1(flottlref ) { var flottlloc = flottlref; var flopfxstr = '';
flopfxstr = '<!DOCTYPE HTML PUBLIC "-/'+'/W3C/'+'/DTD HTML 4.01 Transitional/'+'/EN">' +lfdflostr +'<html>' +lfdflostr +' <head>' +lfdflostr +' <title>' +flottlloc +'</title>' +lfdflostr
+' <meta http-equiv="Content-Type" content="text/html;charset=iso-8859-1">' +lfdflostr +' <link rel="stylesheet" type="text/css" href="al2stl01/al0stl1.css">' +lfdflostr +' </head>' +lfdflostr; flopfxstr += '' +"<!--[*START: body :]-->" +lfdflostr
+' <body>' +lfdflostr; return flopfxstr; } function  fnflohtmpsf1str1() { var flopsfstr = ''; flopsfstr += '' +lfdflostr +" <!--[*PSF-BGN.]-->" +lfdflostr +' </body>' +lfdflostr +'</html>' +lfdflostr; return flopsfstr; }
function  fnflohtmanc1nam1str1(ancnam1ref ) { var fn_out1loc = ''; var ancnam1loc = ''; ancnam1loc = fntrmall(ancnam1ref ).toLowerCase(); if (ancnam1loc.length > -1 ) { fn_out1loc = '<span class="szezkl"><a name="' +ancnam1ref +'"></a>'
+'</span>'; } return fn_out1loc; } function  fnvrsstr1(vrs1ref ) { var vrsstrloc = ''; if (vrs1ref > 0 ) { vrsstrloc = '' +vrs1ref +''; vrsstrloc = 'v.' +'&nbsp;' +vrsstrloc; vrsstrloc = '' +vrsstrloc +'&nbsp;' +'/ ' +''; } return vrsstrloc; }
function  fnvrsdtefrs1(vrs1ref ) { var dterunloc = ''; var vrsstrloc = ''; vrsstrloc = fnvrsstr1(vrs1ref ); if (vly) { dterunloc = fndterunfmt1str1(); vrsstrloc = '' +'dd.' +'&nbsp;' +dterunloc +''; vrsstrloc = '[' +vrsstrloc  +'&nbsp;' +']';
vrsstrloc = '<span class= "szekln">' +vrsstrloc  +'</span>' +lfdflostr +'<!--' +vrsstrloc  +'-->' +lfdflostr; } return vrsstrloc; } function  fnflohtmpag1ttl1str1( flopagvly, flottlref, ancnam1ref ) { var ancnam1loc = ''; var flottlloc = '';
ancnam1loc = fntrmall(ancnam1ref ); if ((vly) && (flopagvly)) { flottlloc = flottlref; if (vly) { if (ancnam1loc.length > 0 ) { flottlloc = ancnam1loc.toUpperCase() +'_' +flottlloc; } } } } function  fnflohtmpag1str1( flopagvly, flottlref,
ancnam1ref, pagwidref, pagtypref, pagszeref, htmpag1ttl1ref, htmpag1ttl2ref, htmpag1vrs1ref, txtclsref, htmpag1txt1ref ) { var fn_out1loc = ''; var fn_namloc = 'fnflohtmpag1str1(' +'..' +')';
var fn_cmtloc = '<!--[* ' +fn_namloc +' :]-->'      +'<!br>' +lfdflostr; var fn_strbgn =      '[*' +fn_namloc +' :]<h4><b>{</b></h4>' +'<!br>' +lfdflostr; var fn_strfin = '<h4><b>}</b></h4>'; var pagpfxloc = ''; var pagpsfloc = '';
var pagtoploc = ''; var ancnam1loc = ''; var pagancloc = ''; var pagwidstr = ''; var pagwidbgn = ''; var pagwidfin = ''; var pagtypbgn = ''; var pagtypfin = ''; var pagszebgn = ''; var pagszefin = ''; var pagboxbgn = ''; var pagboxfin = '';
var txtclsbgn = ''; var txtclsfin = ''; var pagtt1loc = ''; var pagtt2loc = ''; if (flopagvly ) { pagpfxloc = fnflohtmpfx1str1(flottlref ); pagpsfloc = fnflohtmpsf1str1(); } if (vly) { pagtoploc = '' +lfdflostr +fnflohtmanc1nam1str1('top1' )
+lfdflostr } ancnam1loc = fntrmall(ancnam1ref ); if (ancnam1loc.length > 0 ) { pagancloc += fnflohtmanc1nam1str1(ancnam1loc ); pagancloc += lfdflostr; pagancloc += lfdflostr; } if (pagwidref > 0 ) { pagwidstr = 'width="' +pagwidref +'px"';
pagwidbgn += lfdflostr ; pagwidbgn += '<table ' +'>' +'<tbody>' +lfdflostr; pagwidbgn += lfdflostr ; pagwidbgn += '<tr>' +'<td ' +pagwidstr +'>' +lfdflostr; pagwidfin += lfdflostr ; pagwidfin += '</td>' +'</tr>' +lfdflostr ;
pagwidfin += lfdflostr ; pagwidfin += '</tbody>' +'</table>' +lfdflostr ; } if (pagtypref.length > 0 ) { pagtypbgn += '<div ' +' class="' +pagtypref +'"' +'>' +lfdflostr; pagtypfin += '</div>' +lfdflostr; } if (pagszeref.length > 0 ) {
pagszebgn += '<div ' +' class="' +pagszeref +'"' +'>' +lfdflostr; pagszefin += '</div>' +lfdflostr; } pagboxbgn += '<div ' +' class="' +'boxpad' +'"' +'>' +lfdflostr; pagboxfin += '</div>' +lfdflostr; if (txtclsref.length > 0 ) {
txtclsbgn += '<div ' +' class="' +txtclsref +'"' +'>' +lfdflostr; txtclsfin += '</div>' +lfdflostr; } if (htmpag1ttl1ref.length > 0 ) { pagtt1loc += '' +htmpag1ttl1ref +'<br>' +lfdflostr +'<br>' +lfdflostr; } if (htmpag1ttl2ref.length > 0 ) {
pagtt2loc += '' +htmpag1ttl2ref +'<br>' +lfdflostr +'<br>' +lfdflostr; } var pagvrsloc = ''; pagvrsloc = fnvrsdtefrs1(htmpag1vrs1ref ); if (vly) { pagvrsloc = '' +pagvrsloc +'<br>' +lfdflostr; } if ((vly) && (flopagvly)) {
pagtt1loc = '<div class="txtcen">' +lfdflostr +pagtt1loc +'<!br>' +'</div>'; pagtt2loc = '<div class="txtcen">' +lfdflostr +pagtt2loc +'<!br>' +'</div>'; pagvrsloc = '<div class="txtlef">' +lfdflostr +pagvrsloc +'<!br>' +'</div>'; }
fn_out1loc = '' +lfdflostr +fn_cmtloc +pagpfxloc +pagtoploc +pagancloc +pagwidbgn +pagtypbgn +pagszebgn +pagboxbgn +'<br>' +lfdflostr +pagtt1loc +pagtt2loc +pagvrsloc +'<br>' +lfdflostr +txtclsbgn +htmpag1txt1ref +txtclsfin +pagboxfin +pagszefin
+pagtypfin +pagwidfin +lfdflostr +pagpsfloc; return fn_out1loc; } function  fnflifinlnk1htmstr( fionamstr ) { var fn_out1loc =''; var fiolnkidc = -1; var fiolnkidx = -1; var fiolnknmx =  0; var mtxfiolnkidc =[];
mtxfiolnkidc.push( ['al2ptc2', 1, 0 ] ); mtxfiolnkidc.push( ['al2avs1', 1, 1 ] ); mtxfiolnkidc.push( ['al2th01', 1, 2 ] ); mtxfiolnkidc.push( ['al2trn1', 1, 3 ] ); mtxfiolnkidc.push( ['al2dgn1', 1, 4 ] ); mtxfiolnkidc.push( ['al2bdr2', 1, 5 ] );
mtxfiolnkidc.push( ['al2bgl1', 2, 6 ] ); mtxfiolnkidc.push( ['al2dgb1', 2, 7 ] ); mtxfiolnkidc.push( ['al2cs01', 2, 8 ] ); mtxfiolnkidc.push( ['al2mng1', 2, 9 ] ); mtxfiolnkidc.push( ['al2jur1', 2,10 ] ); mtxfiolnkidc.push( ['al2ls01', 3,11 ] );
fiolnknmx =  mtxfiolnkidc.length; fiolnkidx = -1; while (fiolnkidx < (fiolnknmx -1 ) ) { fiolnkidx += 1; if (fionamstr == mtxfiolnkidc[fiolnkidx ][0] ) { fiolnkidc = mtxfiolnkidc[fiolnkidx ][2]; fiolnkidx = fiolnknmx +1; } } if (fiolnkidc == 0 ) {
fn_out1loc ='&sect; ' +lfdflostr +"Pagina's" +'<!b><a href="http://www.alento.nl/al2map1n.htm#al2rgp0" target="_self">' +lfdflostr +' <b><i>Resultaatgerichte Psychologie</i> <span class="szecpy"><sup>&copy;</sup></span></b></a>.<!/b><br>'
+lfdflostr +''; } else if (fiolnkidc == 1 ) { fn_out1loc ='&sect; ' +"Pagina's" +'<!b><a href="http://www.alento.nl/al2map1n.htm#al2rgp0" target="_self">' +lfdflostr +' <b><i>Resultaatgerichte Psychologie</i>'
+' <span class="szecpy"><sup>&copy;</sup></span></b></a>.<!/b><br>' +lfdflostr +'&sect; ' +"Pagina's" +'<!b><a href="http://www.alento.nl/al2map1n.htm#al2lgp0" target="_self">' +lfdflostr +' <b><i>Praktische Logica</i>'
+' <span class="szecpy"><sup>&copy;</sup></span></b></a>.<!/b><br>' +lfdflostr +'&sect; ' +"Pagina's" +'<!b><a href="http://www.alento.nl/al2map1n.htm#al2psb0" target="_self">' +lfdflostr +' <b><i>Psychologie van de Subjectieve Beleving</i>'
+' <span class="szecpy"><sup>&copy;</sup></span></b></a>.<!/b><br>' +lfdflostr +''; } else if (fiolnkidc == 2 ) { fn_out1loc ='&sect; <!b><a href="http://www.alento.nl/al2th02n.htm#top1" target="_self">'
+'<!b><!a href="http://www.alento.nl/al2map1n.htm#al2th02" target="_self">' +lfdflostr +' <b><i>Uitgangspunten</i> en <i>methoden</i> van <i>Doelgerichte Counseling / Therapie</i></b></a>.<!/b><!br><br>' +lfdflostr +'&sect; ' +"Pagina's"
+'<!b><a href="http://www.alento.nl/al2map1n.htm#al2rgp0" target="_self">' +lfdflostr +' <b><i>Resultaatgerichte Psychologie</i> <span class="szecpy"><sup>&copy;</sup></span></b></a>.<!/b><br>' +lfdflostr +'&sect; ' +"Pagina's"
+'<!b><a href="http://www.alento.nl/al2map1n.htm#al2psb0" target="_self">' +lfdflostr +' <b><i>Psychologie van de Subjectieve Beleving</i> <span class="szecpy"><sup>&copy;</sup></span></b></a>.<!/b><br>' +lfdflostr +''; }
else if (fiolnkidc == 3 ) { fn_out1loc ='&sect; <!b><a href="http://www.alento.nl/al2cs01n.htm#top1" target="_self"><!b><!a href="http://www.alento.nl/al2map1n.htm#al2cs00" target="_self">' +lfdflostr +' <b>Cursussen / trainingen'
+' <i>Resultaatgerichte Psychologie</i><!/a></b> <!br></a>.<!/b><!br><br>' +lfdflostr +'&sect; ' +"Pagina's" +'<!b><a href="http://www.alento.nl/al2map1n.htm#al2rgp0" target="_self">' +lfdflostr +' <b><i>Resultaatgerichte Psychologie</i>'
+' <span class="szecpy"><sup>&copy;</sup></span></b></a>.<!/b><br>' +lfdflostr +''; } else if (fiolnkidc == 4 ) { fn_out1loc ='&sect; <!b><a href="http://www.alento.nl/al2avs1n.htm#top1" target="_self">' +lfdflostr
+'<b><i>Advies &amp; Counseling</i></b></a>.<!/b><!br><br>' +lfdflostr +''; } else if (fiolnkidc == 5 ) { fn_out1loc ='&sect; ' +"Pagina's" +'<!b><a href="http://www.alento.nl/al2map1n.htm#al2rgp0" target="_self">' +lfdflostr
+' <b><i>Resultaatgerichte Psychologie</i> <span class="szecpy"><sup>&copy;</sup></span></b></a>.<!/b><br>' +lfdflostr +''; } else if (fiolnkidc == 6 ) { fn_out1loc ='&sect; ' +"Pagina's"
+'<!b><a href="http://www.alento.nl/al2bdr2n.htm#top1" target="_self">' +lfdflostr +' <b>Dienstverlening</b>  <b>aan <i>bedrijven &amp; organisaties</i></b></a>.<!/b><!br><br>' +lfdflostr +'&sect; '
+'<!b><a href="http://www.alento.nl/al2cs01n.htm#top1" target="_self">' +lfdflostr +' <b>Cursussen / trainingen <i>Resultaatgerichte Psychologie</i></b>.<!/a><!br></a>.<!/b><!br><br>' +lfdflostr +''; } else if (fiolnkidc == 7 ) { fn_out1loc =''
+'&sect; ' +"Pagina's" +'<!b><a href="http://www.alento.nl/al2map1n.htm#al2bdr0" target="_self">' +lfdflostr +' <b>Dienstverlening</b>  <b>aan <i>bedrijven &amp; organisaties</i></b></a>.<!/b><!br><br>' +lfdflostr +''; }
else if (fiolnkidc == 8 ) { fn_out1loc =''; } else if (fiolnkidc == 9 ) { fn_out1loc ='&sect; <!b><a href="http://www.alento.nl/al2cs01n.htm#top1" target="_self">' +lfdflostr +' <b><i>Educatie en training</i><!/a>'
+' - voor werknemers/ managers.</b></b></a>.<!/b><br>' +lfdflostr +''; } else if (fiolnkidc == 10 ) { fn_out1loc ='&sect; <!b><a href="http://www.alento.nl/al2avs1n.htm#top1" target="_self">' +lfdflostr +'<b><i>Advies &amp; Counseling</i></b>'
+'</a>.<!/b><!br><br>' +lfdflostr +''; } else if (fiolnkidc == 11 ) { fn_out1loc ='&sect; <!b><a href="http://www.alento.nl/al2avs1n.htm#top1" target="_self">' +lfdflostr +' <b><i>Advies &amp; Counseling</i></b></a>.<!/b><!br><br>' +lfdflostr
+'&sect; <!b><a href="http://www.alento.nl/al2dgn1n.htm#top1" target="_self">' +lfdflostr +' <b><i>Psychologisch onderzoek</i></a>:</b> <i>Gericht op zelfinzicht en persoonlijke kwaliteiten</i>.</a>.<!/b><!br><br>' +lfdflostr +'&sect; '
+'<!b><a href="http://www.alento.nl/al2dgb1n.htm#top1" target="_self">' +lfdflostr +' <b><i>Onderzoek en advies</i></a></b> - m.b.t. functioneren van werknemers.</a>.<!/b><!br><br>' +lfdflostr +''; } if (vly) { fn_out1loc +='&sect; ' +"Pagina's"
+'<!b><a href="http://www.alento.nl/al2map1n.htm#top1" target="_self">' +lfdflostr +' <b>Overige onderwerpen (<i>site-map</i>)</b></a>.<!/b><br>' +lfdflostr +''; } if (vly) { if (fn_out1loc.length > 0 ) { fn_out1loc ='<br>'
+'<b>Zie ook ..</b><br><div class="boxprg">' +lfdflostr +fn_out1loc +'</div class="boxprg">'; } } if (vln) { fn_out1loc +=''; } if (vly) { fn_out1loc +='<br><a href="http://www.alento.nl/al2ctc1n.htm#al2ctc1" target="_self">' +lfdflostr
+'<b>Vraag gerust</a></b> .. <b>vrijblijvend informatie over de mogelijkheden voor jouw situatie en wensen.</b><br>' +lfdflostr +''; } return fn_out1loc; } function fnDirLis1() { var fiosysobj, fdrrefobj, fdrsubobj; var fdrflsobj, fdrflsstr, fi;
fiosysobj = new ActiveXObject("Scripting.FileSystemObject" ); function createFolderList(fdrrefstr ) { var fdrrefobj = fiosysobj.GetFolder(fdrrefstr ); var fdrsubobj = new Enumerator(fdrrefobj.SubFolders ); createFileList(fdrrefstr );
if (fdrsubobj.atEnd() ) { tblfdrloc[iFol ] = fdrrefstr.path; iFol++; } else { for (; !fdrsubobj.atEnd(); fdrsubobj.moveNext() ) { tblfdrloc[iFol] = fdrsubobj.item().Path; iFol++; createFolderList(fdrsubobj.item().Path ); } } }
function createFileList(fdrrefstr ) { var fdi = fiosysobj.GetFolder(fdrrefstr ); fdrflsobj = new Enumerator(fdi.files ); str = ""; for (; !fdrflsobj.atEnd(); fdrflsobj.moveNext() ) { tblflsloc[iFil ] = fdrflsobj.item().path; iFil++; } } }