help con grafico dinamico che sballa i valori

domandina veloce veloce.
questo è il codice che uso per creare il grafico.
i valori vengono creati con un ciclo for....incremento giornaliero di 1.

codice:

<%
Dim Valori(250)
Dim Categorie(250)
Set cs = Server.CreateObject("OWC10.ChartSpace")
Set chConstants = cs.Constants
Set chart = cs.charts.add
'chart.Axes(chConstants.chAxisPositionLeft).NumberFormat = "0&"
'chart.Axes(chConstants.chAxisPositionLeft).MajorUnit = 10


chart.type = chConstants.chChartTypeLine
'chart.type = chConstants.chChartTypeLineMarkers

set serie1 = chart.seriesCollection.add 

for i = 1 to 250
	x = i * 7
	categorie(i) = dateadd("d",+ x,date())
	response.Write(i & ")" & categorie(i)) & "
"
next

for i = 1 to 250
	valori(i) = i
	response.Write(i & ")" & valori(i)) & "
"

next
'response.end




serie1.SetData chConstants.chDimCategories, chConstants.chDataLiteral, categorie
serie1.SetData chConstants.chDimValues, chConstants.chDataLiteral, valori
'serie2.SetData chConstants.chDimValues, chConstants.chDataLiteral, valori2

cs.ExportPicture server.MapPath("prova.gif"), "GIF", 800, 300
Set cs = Nothing

%>

[img]prova.gif[/img]

secondo voi il grafico che mi restituisce può essere mai considerato esatto??