original Cita: RsProrrogas.open "select * from prorrogas where fechainicioprorroga > = datevalue('15/12/2001') and fechainicioprorroga < = datevalue('15/12/2010')"
modificado
Cita: RsProrrogas.open "select * from prorrogas where referenciaasesoria=34 and (fechainicioprorroga > = datevalue('15/12/2001') and fechainicioprorroga < = datevalue('15/12/2010'));"
tal cual esta, deberia funcionar, la sentencia.... pero viendo bien tu filtro
Código HTML:
FOR EACH Parametro IN Request.Form
IF Request.Form (Parametro) <> "" then
IF Poner_AND THEN
'El Case sirve para indicar que queremos que nos liste los registros que se encuentran entre la fecha de inicio y la de fin de prorroga (ambas incluidas)
Select Case Parametro
Case "fechainicioprorroga"
Filtro= Filtro & " AND " & Parametro & ">=#"
Filtro= Filtro & Request.Form (Parametro) & "#"
Case "fechafinprorroga"
Filtro= Filtro & " AND " & Parametro & "<=#"
Filtro= Filtro & Request.Form (Parametro) & "#"
Case Else
Filtro= Filtro & " AND " & Parametro & "="
Filtro= Filtro & Request.Form (Parametro)
End Select
ELSE
Filtro= Filtro & Parametro & "="
Filtro= Filtro & Request.Form (Parametro) & ""
Poner_AND = True
END IF
END IF
NEXT
he notado que primero pides el parametro y despues lo recojes.... que sentido tiene hacerlo a la inversa?? es matematicas donde "el orden de los factores no altera el producto" o algo asi???
no deberia ser tu filtro de esta manera????
Código HTML:
FOR EACH Parametro IN Request.Form
IF Request.Form (Parametro) <> "" then
IF Poner_AND THEN
'El Case sirve para indicar que queremos que nos liste los registros que se encuentran entre la fecha de inicio y la de fin de prorroga (ambas incluidas)
Select Case Parametro
Case "fechainicioprorroga"
Filtro= Filtro & Request.Form (Parametro) & "#"
Filtro= Filtro & " AND " & Parametro & ">=#"
Case "fechafinprorroga"
Filtro= Filtro & Request.Form (Parametro) & "#"
Filtro= Filtro & " AND " & Parametro & "<=#"
Case Else
Filtro= Filtro & Request.Form (Parametro)
Filtro= Filtro & " AND " & Parametro & "="
End Select
ELSE
Filtro= Filtro & Request.Form (Parametro) & ""
Filtro= Filtro & Parametro & "="
Poner_AND = True
END IF
END IF
NEXT