I have the follwing code of create 3D Graph

<%

Set oChart = CreateObject("OWC10.ChartSpace")
Set c = oChart.Constants
oChart.Border.Color = c.chColorNone

sCaption = " 2003 "
sCaption2 = "2002 "

With oChart

oChart.Charts.Add
oChart.Charts(0).Type = oChart.Constants.chChartTypeColumn3d
oChart.Charts(0).SeriesCollection.Add
oChart.Charts(0).SeriesCollection(0).Caption = sCaption
oChart.Charts(0).SeriesCollection(0).SetData c.chDimCategories, c.chDataLiteral, Categories
oChart.Charts(0).SeriesCollection(0).SetData c.chDimValues, c.chDataLiteral, Vals2

End With

With oChart

oChart.Charts(0).SeriesCollection.Add
oChart.Charts(0).SeriesCollection(1).Caption = sCaption2
oChart.Charts(0).SeriesCollection(1).SetData c.chDimCategories, c.chDataLiteral, Categories
oChart.Charts(0).SeriesCollection(1).SetData c.chDimValues, c.chDataLiteral, Vals

oChart.Charts(0).HasLegend = True
oChart.Charts(0).HasTitle = False

End With

oChart.Charts(0).Axes(c.chAxisPositionLeft).MajorU nit = "10"

Response.Expires = 0
Response.Buffer = true
Response.Clear

Set Session("FSO") = CreateObject("Scripting.FileSystemObject")
sFname = "Grsph" & ".gif"
oChart.ExportPicture server.MapPath(sFname), "gif", 650, 450
Response.Write "<img src='" & sFname & "'>"

%>


The problem is that I get 2D Graph insted of 3D Graph and the fron columns hode the back columns?

What's the problem??? What Did I do wrong???