Ya encontre el error pero ahora no esta haciendo bien la consulta porque cuano ingreso la fecha actual funciona pero si ingreso otra fecha no,
Mi sql esta asi:
select * from tbl_pj_hoja_ruta WHERE pj_no_ruc = '" & buscarc & "' and fecha_act = #"& Request.Form("fecha") &"# and facturado like 'Si'
y desde donde estoy tomando los datos esta así:
<form name="form2" method="post" action="fact_fechas_pj.asp">
<table width="388" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="366"><div align="center" class="formtxt"><br>
<input name="acce2" type="hidden" id="acce4" value="<% Response.Write acce %>">
Seleccione del:
<select name="buscarc" class="cmb" id="buscarc">
<option value="0">---Listado---</option>
<%
DO WHILE NOT Tabla.Eof
nombre = Tabla ("pj_razon_social")
codigo = Tabla ("pj_no_ruc")
If (buscarc = codigo) Then
Response.Write "<option value='"&codigo&"' selected>"&nombre&"</option>"
else
Response.Write "<option value='"&codigo&"'>"&nombre&"</option>"
end If
Tabla.MoveNext
LOOP
%>
</select>
Fecha:<input name="fecha" type="text" id="fecha" size="10" value="<% Response.Write(Date())%>">
<input name="opc" type="hidden" id="opc" value="1">
<input class="botones" type="submit" name="Submit23" value="Buscar">
</div>