problema con fechas en consulta sql auxilio

[mc_quake]

hola amigos necesito saber como puedo aumentar o disminuir una fecha con asp por ejemplo yo tengo esto


<%
Dim conexion, registros, sql

fechaini = Request.Form("fechainicio")
if IsDate(fechaini) then
fechaini=CDate(fechaini)
else
fechaini=""
end if

Function FechaGenerica(fecha)
If IsDate(fecha) = True Then
DIM dteDay, dteMonth, dteYear
dia = Day(fecha)
mes = Month(fecha)
ano = Year(fecha)
FechaGenerica = Right(Cstr(mes + 100),2)& "/" & Right(Cstr(dia + 100),2) & "/" & ano
Else
FechaGenerica = Null
End If
End Function

fechafin = Date()-1
Set conexion = Server.CreateObject ("ADODB.Connection")
conexion.Open "DSN=InformeGestion"
Set registros = Server.CreateObject ("ADODB.RecordSet")

sql = "SELECT * FROM InforGestion WHERE Origen = 'CCP' AND Fecha_entrada between #" &FechaGenerica(fechaini)& "# and #" &fechafin& "# "

registros.Open sql, conexion

ccp = 0
While not registros.EOF
ccp = ccp + 1
registros.MoveNext
Wend

registros.Close
Set registros = Nothing
%>tengo eso lo que yo kiero es agregar un while en donde yo pueda hacer esto

While fechaini = fechafin
sentencias a ejecutar
fechainique aumente en un dia
wend
o en ves de wend parece que es un loop

ayudenme

[3pies]

Utiliza la función DateAdd:

fecha_de_hoy = now()
fecha_de_maniana = DateAdd("d",1,fecha_de_hoy)

[JuanRAPerez]

datediff para lo contrario

[mc_quake]

hola amigos miren tengo un problema con la fecha que toma mi consulta sql en este caso es fechaini


<%
Dim conexion, registros, sql

fechaini = Request.Form("fechainicio")
if IsDate(fechaini) then
fechaini=CDate(fechaini)
else
fechaini=""
end if


Function FechaGenerica(fecha)
If IsDate(fecha) = True Then
DIM dteDay, dteMonth, dteYear
dia = Day(fecha)
mes = Month(fecha)
ano = Year(fecha)
FechaGenerica = Right(Cstr(dia + 100),2)& "/" & Right(Cstr(mes + 100),2) & "/" & ano
Else
FechaGenerica = Null
End If
End Function

Set conexion = Server.CreateObject ("ADODB.Connection")
conexion.Open "DSN=InformeGestion"
'fechaini = FechaGenerica(fechaini)
fechafin = FechaGenerica(Date()-1)
diaini = Day(fechaini)
diafin = Day (fechafin)

response.write diaini& "inicio"
response.write "</br>"
response.write diafin& "fin"
response.write "</br>"

response.write "</tr>"



Do While diaini =< diafin
Set conexion = Server.CreateObject ("ADODB.Connection")
conexion.Open "DSN=InformeGestion"

Response.Write "<td bgcolor=#FFCC6><font color=#0000FF size=1 face=Verdana>"&FechaGenerica(fechaini)&"</font></td>"
Set registros = Server.CreateObject ("ADODB.RecordSet")
sql = "SELECT * FROM InforGestion WHERE Origen = 'CCP' AND Fecha_entrada = #"&fechaini&"# "
registros.Open sql, conexion
ccp = 0

while not registros.EOF
ccp = ccp + 1
registros.MoveNext
Wend
Response.Write "<td>"&ccp& "</td> "

diaini = diaini + 1

fechaini = Dateadd ("y",1,fechaini)
fechaini = Day(fechaini)& "/" & Month(fechaini) & "/" & Year(fechaini)

registros.Close
Set registros = Nothing
Loop
conexion.Close
Set conexion = Nothing
%>
el proble ma que me da es que solo me muestra el ccp de la fecha 01/01/2006en las fechas del 02/01/2006 hasta la fecha actual del sistema no me muestra nada solo valores 0 alguien sabe cual es el problema

[JuanRAPerez]

me aprece haber leido este post en otro lado

[JuanRAPerez]

fechaini = Request.Form("fechainicio")
if IsDate(fechaini) then
fechaini=CDate(fechaini)
else
fechaini=""
end if


si el valor es fecha lo asigna si no es fecha lo pone en blanco sera que lo que estas mandando en el formulario no es una fecha y por eso no lo pone?