PARA ESTO TIENES QUE TENER INSTALDO EXCEL EN EL SERVIDOR Y DALE PERMISO AL COM PARA QUE EL USUARIO DE IIS LO EJECUTE ESA EXPLICACION ES MUY LARGA PERO ESTA AQUI
http://geeks.ms/blogs/lruiz/archive/...l-intento.aspx
set excel = server.createObject("Excel.Application")
set libro = excel.workbooks.add
'DIBUJA TITULOS
libro.worksheets(1).cells(1,1)= "nombre"
libro.worksheets(1).cells(1,2)= "Nombre Empresa"
libro.worksheets(1).cells(1,3)= "Tiempo Efectivo"
'DIBUJA CONTENIDO
i=2
do while not rs.eof
libro.worksheets(1).cells(i,1)= rs("nombre")
libro.worksheets(1).cells(i,2)= rs("EmpName")
libro.worksheets(1).cells(i,3)= rs("T_Efec")
i = i + 1
rs.movenext
loop
i=i-1
libro.Charts.Add
libro.ActiveChart.ChartType = 51
libro.Activechart.BarShape = 1
libro.ActiveChart.SetSourceData libro.worksheets(1).Range("b1:d"&i),2
libro.ActiveChart.Location 2, libro.worksheets(2).name
libro.ActiveSheet.ChartObjects("Gráfico 1").Activate
libro.ActiveChart.ChartArea.Select
'SI LO QUIERES EN LA MISMO HOJA
'libro.ActiveSheet.Shapes("Gráfico 1").ScaleWidth 0.62, false
'libro.ActiveSheet.Shapes("Gráfico 1").ScaleHeight 0.61, false
excel.ActiveWorkbook.SaveAs Server.Mappath(NombreArch),, "", "", False, False, True
set libro = nothing
excel.DisplayAlerts = False
excel.ActiveWorkbook.Close
set excel = nothing
ESPERO TE SIRVA