function toHtml(strBody,cset)
{
?var Rec=new ActiveXObject("ADODB.RecordSet");
?Rec.Fields.Append("DDD",201,1);
?Rec.Open();
?Rec.AddNew();
?Rec(0).AppendChunk(strBody);
?Rec.Update();
?var HTML=Rec(0).Value;
?Rec.Close();
?delete Rec;
?document.charset=cset;
?return(HTML);
}