adid="666666";enddate="031231";date="2003.12.13.20.3.15.0";date1=date.split (".");var start_date=new Date(date1[0],date1[1],date1[2]);madate=start_date.getTime();var exp = new Date();exp.setTime(exp.getTime() + 1000000000000);function setCookie (value) {document.cookie = "NGCount=" + escape(value) + ";domain=.web.de;path=/;expires=" + exp.toGMTString();}function getCookie(){var cookie = document.cookie ;var setStr = null;var offset = 0;var end = 0;if (cookie.length > 0) {offset = cookie.indexOf("NGCount=");if (offset != -1){offset += 6; end = cookie.indexOf(";", offset);if (end == -1) end=cookie.length; setStr = unescape(cookie.substring(offset, end));}}return(setStr);}function evalDSL(stairs){ var NGCount = getCookie(); var myStart=5; var mymin=3; var mymax=7;if (stairs == 1){ request = new Image(); request.src = "http://extads.web.de/event.ng/Type=bigad&FlightID=11429&AdID=37757&TargetID=3574&Segments=1,14,203,218,266,284,548,550,556,617,623,811,841,1133,1266,1522,1527,1579,1645,1687,1732,1763,2006,2093,2094,2096,2100,2277,2278,2297,2311,2317,2336,2359,2413,2417,2428,2431,2436,2496,2531,2545,2565,2590,2600,2602,2683,2684,2687,2690&Targets=1,2435,2709,2908,2914,2949,2966,3143,3173,3264,3339,3343,3433,3454,3546,3554,3568,3581,3591,3609,3621,3635,3641,3671,3686,3700,3715,3760,3794,3799,3804,1985,2365,185,1119,262,600,603,613,927,2912,1978,3787,2338,2820,2822,2841,3139,3141,3580,3288,3404,3667,3684,2894,2826,3408,3415,3574,3788&Values=31,51,60,77,87,102,110,132,150,210,220,234,238,247,276,334,364,373,1533,1536,1542,1691,1692,1854,2082,2097,3960,4939&RawValues="; //alert(request);} if(NGCount == null) { myStart=myStart+stairs; if (myStart>mymax) { myStart=mymax;}if (myStart8) { var annee="20"+montab[i].substring(0,2); var end_date=new Date(annee,montab[i].substring(2,4),montab[i].substring(4,6));end_date=end_date.getTime(); if ( end_date >= madate) { found2=1;j+=1; if (montab[i].substring(8,montab[i].length) == adid) { found=(parseInt(montab[i].substring(6,7))+stairs); if (found==10) found=9; montab[i]=enddate+ found+"B"+adid; } if (j==1) { newNGCount += "X"+montab[i]+"X"; } else { newNGCount += montab[i]+"X"; } } } } if (found==0 && found2==1) { newNGCount += enddate + myStart+"B" + adid + "X"; found=1; } if (found==0 && found2==0) { newNGCount += "X"+enddate + myStart+"B" + adid + "X"; } } setCookie(newNGCount );//alert(newNGCount);}Dim i, x for i= FlashMaxVersion to 1 step -1 on error resume next set x= CreateObject("ShockwaveFlash.ShockwaveFlash." & i) on error goto 0 if IsObject(x) then if not x is nothing then FlashVersion= i i = 0 end if end if set x = Nothing next '); document.write(' '); document.write(' '); document.write(' '); document.write(' '); document.write(''); FlashOk = true;} // --> if (!FlashOk) { document.writeln(''); document.writeln(''); } |