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