problema con fechas en consulta sql auxilio

[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