problema con date (datediff)

[Kahm]

salve atutti dato il seguente codice:
potete incollarno in una nuova pagina asp e provarlo:

<%
 dadata="2006-01-02"
  adata="2006-01-10"
  
	 NumeroGiorni=datediff("d",dadata,adata)
	dataarrivato=dadata
     dim x
     x=0
     
  for i=0 to numerogiorni 
	    DataArrivato=dateadd("d",x,dataArrivato)
	    dataArrivato=year(dataArrivato) & "-" & month(DataArrivato) & "-" & day(DAtaArrivato)
	    
	    gArr= day(DAtaArrivato)
	    mArr=month(DataArrivato)
	    if len(gArr)=1 then gArr="0" & gArr
	    if len(mArr)=1 then mArr="0" & mArr

	    dataArrivato =year(dataArrivato) & "-" & mArr & "-" &  gArr
	    
		response.write dataArrivato & "-------
" 
		x=x+1
	 next 
%>

premetto che ho win 2003 server
e questo codice dovrebbe restituire una serie di date(in formato mysql)
dovrei visualizzare tutto l'intervallo di date che intercorre tra le 2 date

purtroppo mi visualizza alcuni gionri...come il giorno 2006-01-04, il 6,7 , per poi continuare otlre la data massima

cosa sbaglio?
grazie

[br1]

Alla data tu fai sommare un numero variabile di giorni (vedi x ) e quindi il risultato e' giusto

ciao

[Alethesnake]

function formattaData(strData)
    if isDate(strData) then
        formattaData = year(strData) & _
                       Right(Cstr(month(strData) & "00", 2) & _
                       Right(Cstr(day(strData) & "00", 2) & _
    else
        formattaData = null
    end if
end function

Dim daData, aData, DataArrivato, i, numeroGiorni, tmpData
daData       = "2006/01/02"
aData        = "2006/01/10"
DataArrivato = daData
numeroGiorni = DateDiff("d", daData, aData)

For i=0 To numeroGiorni
    tmpData = DateAdd("d", i, DataArrivato)
    Response.Write (formattaData(tmpData))
Next 'i

Questo non l'ho provato ma dovrebbe funzionare, ma è più o meno quello che hai scritto tu

[Alethesnake]

ops, non avevo visto quello che ha invece notato br1

[Kahm]

wow grazie