andrestudio, прописанные кодировки определяет в пределах размера текста ~1кб. Надо думаю заменить сообщение c.p.1251 на c.p.-не определена, если длина текста мала или не прописана определяемая страница.
------------ Дoбавленo:
andrestudio, а вобще скоро путём ненавязчивого воздействия заставишь всех разбираться в VBScript .
------------ Дoбавленo:
Просматривал кто автоматом определит c.p. , победителем оказался AkelPad, определял по одной букве , если нужен для опытов могу выложить 54кб.