' VB Script Document

	Function controlarLen()//controla que no se metan mas de 500 caracteres en la descripcion
		
		if len(document.formu.txtDescripcion.value)+1 > 500 then
		
			//msgbox len(document.formu.txtDescripcion.value)
			document.formu.txtDescripcion.value = mid(document.formu.txtDescripcion.value,1,500)
		
		end if
			
	end Function