Problema con Consulta Sql

[mc_quake]

miren tengo una pagina asp la cual genera consultas sql a una base de datos access

esta consulta pide todos los Origenes ingresados en una fecha determinada

la fecha la rescato de un formulario todo eso bin
hago la primera consultas pasandole la fecha 01/01/2006
y me resulta de una
pero cuando retrocedo y pretendo poner otra fecha en el formulario no me muestra nada

aca les va el codigo en caso de que me puedan ayudar

<%
Dim conexion, registros, sql

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

'response.write fecha
'fecha = #01/01/2006#


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 = #"&fechainicio&"# "
registros.Open sql, conexion
ccp = 0
while not registros.EOF
ccp = ccp + 1
registros.MoveNext
Wend
registros.Close
Set registros = Nothing

Response.Write "<title>Reportes Diarios</title>"

Response.Write "<center><strong><font color=#000000 size=2 face=Verdana>Reclamos Ingresados por Origen "&Date()&"</font></strong></center>"

'Sql = "SELECT * FROM Meses WHERE Meses BETWEEN # " & fechainicio & "# AND #"& resultado &"#"
'Y por fin comenzamos a escribir la tabla de resultados
'Primero los nombres de las columnas (el encabezado de la tabla)
Response.Write "<table width=95% border=0 align=left bordercolor=#000000>"
Response.Write "<tr>"
Response.Write "<td width=215>"
Response.Write "<table width=36% border=1 align=center bordercolor=#000000>"
Response.Write "<tr>"
Response.Write "<td bgcolor=#99CCFF><center><strong><font color=#000099 size=1 face=Verdana>Origen </font></strong></center></td>" & vbCrLf
Response.Write "<td bgcolor=#99CCFF><center><strong><font color=#000099 size=1 face=Verdana>"& Date()&" </font></strong></center></td>" & vbCrLf


Response.Write "<tr>"

Response.Write "<tr>" & vbCrLf
Response.write "<td bgcolor=#CCCCCC><font color=#0000FF size=1 face=Verdana>CCP</font></td>"
Response.write "<td><center>" & ccp & "</center></td>"

Response.Write "</tr>" & vbCrLf
conexion.close
Set conexion = Nothing
%>

se los agradeceria mucho ya que soy un aprendiz jejejjejejje