<div class="chartDiv" id="ChartDivID" style="display:none;" >
   <object classid = "clsid:0002E556-0000-0000-C000-000000000046" id ="chh1"
       style="display:block;width:100%;height:100%">
       <param name="Autofit" value="true">
       <param name="AllowPropertyToolbox" value="true">
       
   </object>
  </div>
   <input type = "button" OnClick="DoAddChart()" VALUE="Add chart" style="margin:5px;display:inline;" 
   >
   
   <script type="text/vbscript">
    option explicit 
	sub doAddChart()
	    'делаем непривязанный рекордсет 
        Const adUseClient =  3 
		Const adOpenStatic =  3 
		Const adLockOptimistic =  3 
		Const adDouble =  5 
		
		Dim rs: set rs =CreateObject ("ADODB.Recordset")
        rs.CursorLocation = adUseClient
        rs.CursorType = adOpenStatic
        rs.LockType = adLockOptimistic
        rs.Fields.Append "x1", adDouble
        rs.Open
        Dim i
        For i =  1  To  30 
           rs.AddNew
           rs("x1").Value =  100  * Rnd
        Next
		'Клонируем див и меняем его датасоурс
        dim x : set x = Document.getElementById("ChartDivID").cloneNode(true)
        dim xid, sid
        xid = "CH" & timer* 100 
        sid = "OB" & timer* 100 
        
        x.id = xid
        x.style.display = "block"
        x.ChildNodes( 0 ).id = sid 
        call Document.Body.appendChild(x)
        msgbox ""  'Если убрать - возникает ошибка
        dim d
        set d = Document.getElementById(sid)
        d.datasource=rs
        d.AllowPropertyToolbox = true
	end sub
   </script>