var Id =  0 ;

// присвоим заведомо невозможное значение
var tmpId = - 1 ;

while (!frs.EOF) {
    //логически неверно здесь располагать
    //tmpId = Id;

    Id = frs( "frm_Id" );

    if (tmpId != Id) {
        frms+=unescape(frs( "frm_name" ).Value)+ "\n" ;

        // здесь присваивать
        tmpId = Id;

    }

    frms+= "\t" +formatDate(frs( "frm_topic" ).Value)+ "\t" ;
    frs.MoveNext;
}