set oSabitler = oGrafik.Constants
set Grafik = oGrafik.Charts.Add

Dim strSQL, rst, strConnectionString
strConnectionString = "provider=microsoft.jet.oledb.4.0; data source=" & Server.MapPath(".") & "\data.mdb"

set rst = Server.CreateObject("ADODB.Recordset")

strSQL = "SELECT * FROM tblZiyaretci"
rst.open strSQL, strConnectionString, 3, 3

set oGrafik.DataSource = rst

Grafik.Type = oSabitler.chChartTypeArea3D
Grafik.SetData oSabitler.chDimCategories, 0, "ay"
Grafik.SetData oSabitler.chDimValues, 0, "ziyaretci"