Este es el largo codigo dnd viene eso :s:
var gd=new Date(), gToday=[gd.getFullYear(),gd.getMonth()+1,gd.getDate()];
var ua=navigator.userAgent.toLowerCase();
var KO=ua.match(/konqueror\/(\d+)/),KO3=KO&&KO[1]==3,SA=ua.match(/safari\/(\d+)/),SA1=SA&&SA[1]<86; KO=!!KO; SA=!!SA;
var MAC=/mac/.test(ua),OP=!!self.opera,WEBTV=/webtv/.test(ua),IE=/msie/.test(ua)&&!OP&&!WEBTV&&!SA&&!KO,GK=/gecko/.test(ua),OP8=/opera 8/.test(ua)&&OP;
var NN4=IE4=NS6=false,IE5=IE&&![].push&&!IE4;
var gfSelf=fGetById(parent.document,self.name);
var gTheme=self.name.split(":");
var gCurMonth=eval(gTheme[0]); gCurMonth=fCalibrate(gCurMonth[0],gCurMonth[1]);
var gContainer=parent,gDays=[31,31,28,31,30,31,30,31,31,30,31,30,31];
var fOnResize,fRepaint,fHoliday,fOnChange,fAfterSelect ed,fOnDrag,gcOtherDayBG,fOnWeekClick,fIsSelected,f ParseInput,fFormatInput,fOnDoWClick,fOnload;
var __agenda=[], popkey=["Lite"], flatkey=["Lite"], __stub=[];
var MILLIDAY=86400000, giInitDelay=200, _lineThru=true, _noBound=false, _mcafee=false, _animPop=NN4||IE&&!IE4&&!MAC, _animInt=20;
if (![].push) Array.prototype.push=function () {
for (var i=0; i<arguments.length; i++)
this[this.length]=arguments[i];
return this.length;
}
function varDate() {
alert("Calendario.");
}
function fCalibrate(y,m) {
if (m<1) { y--; m+=12; }
else if (m>12) { y++; m-=12; }
return [y,m];
}
function fGetById(doc, id) {
return doc.getElementById(id);
}
function fLoadScript(url) {
if (!(IE4||IE&&MAC)) fGetById(document, "dynaScript").src=url;
}
function fFilterNull(str) {
return str==null||str=="null"?null:str;
}
function fAddEvent(y,m,d,message,action,bgcolor,fgcolor,bgi mg,boxit,html,etc) {
var ag=gbShareAgenda?eval(gsAgShared):__agenda;
ag[y+"-"+m+"-"+d]=[message,fFilterNull(action),fFilterNull(bgcolor),f FilterNull(fgcolor),fFilterNull(bgimg),fFilterNull (boxit),fFilterNull(html),etc];
}
function fGetEvent(y,m,d) {
var ag=gbShareAgenda?eval(gsAgShared):__agenda, id=y+"-"+m+"-"+d;
return ag[id]?ag[id].slice(0):null;
}
function fRemoveEvent(y,m,d) {
var ag=gbShareAgenda?eval(gsAgShared):__agenda;
ag[y+"-"+m+"-"+d]=null;
}
function fWeekOffset(dow) {
return dow<=3?1:0;
}
function fGetDays(y) {
gDays[2]=y%4==0&&y%100!=0||y%400==0?29:28;
return gDays;
}
document.write("<scr"+"ipt type='text/javascript' src='"+gTheme[1]+".js'></scr"+"ipt>");
document.write("<scr"+"ipt type='text/javascript' src='"+(gTheme[4]?gTheme[4]:"plugins.js")+"'></scr"+"ipt>");
</script>
<script type='text/javascript'>
with (document) {
write("<lin"+"k rel='stylesheet' type='text/css' href='"+gTheme[1]+".css'>");
}
</script>
</head>
<body leftmargin=0 topmargin=0 marginwidth=0 marginheight=0 hspace=0 vspace=0 onload="fInitRange();if(fOnload)fOnload()" onselectstart="return false" ondraggesture="return false" ondragstart="return false" oncontextmenu="return false" onmouseup="top.defaultStatus='Listo';fDragIt(0,0,0 ,2,event);return true;">
<script type='text/javascript'>
var __gdos=gdSelect.slice(0);
gCurMonth=fCalibrate(gCurMonth[0],gCurMonth[1]);
gdSelect=gdSelect.slice(0); gBegin=gBegin.slice(0); gEnd=gEnd.slice(0);
if (gCurMonth[0]>gEnd[0]||gCurMonth[0]==gEnd[0]&&gCurMonth[1]>gEnd[1]) gCurMonth=gEnd.slice(0);
if (gCurMonth[0]<gBegin[0]||gCurMonth[0]==gBegin[0]&&gCurMonth[1]<gBegin[1]) gCurMonth=gBegin.slice(0);
if (gsSplit=="") {giMonthMode=0; gbPadZero=true;}
var gdBegin,gdEnd,gcbMon,gcbYear,gdCtrl,gcTemp;
var giSat=(6-giFirstDOW)%7,giSun=(7-giFirstDOW)%7,gRange=[],__cal=[];
gWeekDay=gWeekDay.slice(giFirstDOW).concat(gWeekDa y.slice(0,giFirstDOW));
for (var i=0;i<6;i++) { __cal[i]=[]; for (var j=0;j<7;j++) __cal[i][j]=[]; }
if (!fIsSelected)
fIsSelected=function(y,m,d) {
return gdSelect[2]==d&&gdSelect[1]==m&&gdSelect[0]==y;
}
if (!fParseInput)
fParseInput=function(str) {
return fParseDate(str);
}
if (!fFormatInput)
fFormatInput=function(y,m,d) {
return fFormatDate(y,m,d);
}
if (fOnDrag&&!(IE&&MAC||OP)) {
var __om=IE4||IE5?gContainer.document.onmouseover:gCon tainer.document.onmouseup;
if (IE4||IE5) gContainer.document.onmouseover=fOm;
else gContainer.document.onmouseup=fOm;
}
function fOm(e){
if(!e)e=gContainer.event;var t=e.target?e.target:e.srcElement;
if(t.name!=self.name)__lastDrag=null;if(__om)__om( e)
}
var __lastDrag=null;
function fDragIt(y,m,d,aStat,e) {
if (!fOnDrag||!(__lastDrag&&aStat>0||aStat==0)) return false;
var dt=[y,m,d];
if (aStat==1&&__lastDrag+''==dt+'') return false;
__lastDrag=aStat==2||IE&&MAC||OP?null:dt;
return fOnDrag(dt[0],dt[1],dt[2],aStat,e);
}
function fRepaint() {
fSetCal(gCurMonth[0],gCurMonth[1],0,false,null);
}
function fUpdSelect(y,m,d,bDoNotReformat) {
gdSelect[0]=y; gdSelect[1]=m; gdSelect[2]=d;
if (!bDoNotReformat) gdCtrl.value=d==0?"":fFormatInput(y,m,d);
}
function fPopCalendar(dateCtrl,range,posLayerId,posCtrl,pos Offset) {
var dc=dateCtrl;
var pc=posCtrl?posCtrl:dc;
if (gdCtrl!=dc) {gdCtrl=dc; fHideCal();}
else if (fIsShown()) {fHideCal(); return;}
var s=fParseInput(gdCtrl.value);
var b=false;
if (s==null)
if (__gdos[2]==0) {
b=true; s=eval(gTheme[0]); s=[s[0],s[1],0];
} else s=__gdos;
fUpdSelect(s[0],s[1],s[2],b);
fInitRange(range);
if (gRange[2]&&fIsOutRange(s[0],s[1])) {
fUpdSelect(0,0,0);
s=gRange[2];
}
if (!fSetCal(s[0],s[1],0,true,null)) {
fUpdSelect(0,0,0);
return;
}
var p,oh,isFixed=posOffset?posOffset[2]:gbFixedPos,isUp;
if (isFixed) {
p=posOffset?posOffset:gPosOffset;
oh=-1;
} else {
p=fGetXY(pc,posOffset?posOffset:gPosOffset);
if (posLayerId) {
var lyr=fGetById(parent.document,posLayerId);
if (lyr&&lyr.tagName.toUpperCase()=="IFRAME") {
var pl=fGetXY(lyr);
var p2=fGetWinSize(parent.frames[posLayerId]).slice(2);
p[0]+=pl[0]-p2[0];
p[1]+=pl[1]-p2[1];
}
}
var oh=pc.offsetHeight,ptb=fGetById(document,"outerTab le"),h=ptb.offsetHeight,w=ptb.offsetWidth;
h=(h?h:gfSelf.height)+oh;
if (gbAutoPos) {
var ws=fGetWinSize(parent);
var tmp=ws[0]+ws[2]-(w?w:gfSelf.width);
p[0]=p[0]<ws[2]?ws[2]+2:p[0]>tmp?tmp:p[0];
tmp=ws[1]+ws[3]-h;
isUp=p[1]>tmp&&(!gbPopDown||p[1]-ws[3]+oh>=h);
} else isUp=!gbPopDown;
if (isUp) p[1]-=oh>0?h+2:h+25;
}
fShowCal(p[0],p[1]+oh+1,isUp);
}
function fGetWinSize(w) {
if (w.innerWidth)
return [w.innerWidth-16,w.innerHeight,w.pageXOffset,w.pageYOffset];
else if (w.document.compatMode=='CSS1Compat')
with (w.document.documentElement) return [clientWidth,clientHeight,scrollLeft,scrollTop];
else
with (w.document.body) return [clientWidth,clientHeight,scrollLeft,scrollTop];
}
function fShowCal(xx,yy,isUp) {
with (gfSelf.style) {
if (_animPop) clip="rect(0px auto 0px auto)";
left=xx+"px"; top=yy+"px";
}
if (_animPop) {
__strips=0;
__stub[2]=setInterval("fAnimPop("+yy+","+fGetById(document, "outerTable").offsetHeight+","+isUp+")",_animI nt);
}
}
function fAnimPop(t,h,u) {
h=h?h:gfSelf.height; __strips+=20;
with (gfSelf.style)
if (__strips<=h){
var d=h-__strips;
clip="rect("+(u?"auto":d+"px")+" auto "+(u?h-d+"px":"auto")+" auto)";
top=(u?t+d:t-d)+"px";
}
else {
clearInterval(__stub[2]);
clip="rect(auto auto auto auto)";
top=t+"px";
}
}
function fHideCal() {
gfSelf.style.top="-500px";
__lastDrag=null;
if (__stub[2]) clearInterval(__stub[2]);
}
function fIsShown() {
return gfSelf.offsetTop>-100;
}
function fGetXY(a,offset) {
var p=offset?offset.slice(0):[0,0],tn;
while(a) {
tn=a.tagName.toUpperCase();
p[0]+=a.offsetLeft-(!KO3&&tn=="DIV"&&a.scrollLeft?a.scrollLeft:0);
p[1]+=a.offsetTop-(!KO3&&tn=="DIV"&&a.scrollTop?a.scrollTop:0);
if (tn=="BODY") break;
a=a.offsetParent;
}
return p;
}
function fInitRange(r) {
gRange=r?r:[];
var rb=gRange[0]?r[0]:gBegin;
gdBegin=new Date(rb[0],rb[1]-1,rb[2]);
gRange[0]=rb;
var re=gRange[1]?r[1]:gEnd;
gdEnd=new Date(re[0],re[1]-1,re[2]);
gRange[1]=re;
if (gcbYear) {
for(var i=0;i+rb[0]<=re[0];i++) gcbYear.options[i]=new Option(i+rb[0],i+rb[0]);
for(var j=gcbYear.options.length-1;j>=i;j--) gcbYear.options[j]=null;
}
}