function UpKP(o,sVal){
	o=o.parentNode
	while(o.tagName!='INPUT')
		o=o.previousSibling
    o.value += sVal
}

function ClKP(o){
	o=o.parentNode
	while(o.tagName!='INPUT')
		o=o.previousSibling
	o.value=''
}