function MakeList(FldName, Values, Prefix, Val){
var i, Text='<Option Value=0>\n';

for(i in Values) Text+='<Option Value='+i+(i!=Val ? '' : ' Selected')+'>'+Values[i]+'\n';
return "<Select OnChange='CalS_Changed(this)' Name="+FldName+">\n"+Text+"</Select>";
}

function MakeYearList(FldName, YearFrom, YearTo, y){
var i, Values=[];
for(i=YearFrom; i<=YearTo; i++) Values[i]=i;
return MakeList(FldName, Values, 'Year', y);
}

function MakeMonthList(FldName, m){
var aMonths=["", "Jan", "Feb", "Mar", "Apr", "May", "Jun", "Jul", "Aug", "Sep", "Oct", "Nov", "Dec"];
delete aMonths[0]; return MakeList(FldName, aMonths, 'Month', m);
}

function MakeDayList(FldName, d){
var i, Values=[];

for(i=1; i<=31; i++) Values[i]=i;
return MakeList(FldName, Values, 'Day', d);
}

function DrawSimpleCal(Prefix, Val, YearFrom, YearTo, bCell){
var CellHtml=(bCell ? "</TD><TD>" : ""), DT, d, m, y;

if (Val){
	Val=Cal_InitVal(Val);
	DT=Val.split('.'); d=+DT[0]; m=+DT[1]; y=DT[2];
	}

D.write("<Input Type=Hidden Name="+Prefix+" Value='"+Val+"'>"+
	MakeDayList(Prefix+'_Day', d)+CellHtml+
	MakeMonthList(Prefix+'_Month', m)+CellHtml+
	MakeYearList(Prefix+'_Year', YearFrom, YearTo, y));
}

function CalS_Changed(EvSrc){
var FldName=EvSrc.name, BaseName, HidFld, F;

F=EvSrc.form;
BaseName=FldName.substr(0, FldName.lastIndexOf("_")); HidFld=F[BaseName];
HidFld.value=Cal_DTFmt(F[BaseName+'_Day'].value, F[BaseName+'_Month'].value, F[BaseName+'_Year'].value);
}

//function CalS