Código:
if insertar=true then
Poner_AND= False
Filtro= ""
FOR EACH Parametro IN Request.Form
IF Request.Form (Parametro) <> "" then
IF Poner_AND THEN
Select Case Parametro
Case "fechainicioprorroga"
'response.write "1 <br>"
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) & "'"
Filtro= Filtro & " AND " & Parametro & "="
Filtro= Filtro & Request.Form (Parametro)
End Select
ELSE
'Filtro= Filtro & Parametro & "='"
Filtro= Filtro & Parametro & "="
'Filtro= Filtro & Request.Form (Parametro) & "'"
Filtro= Filtro & Request.Form (Parametro) & ""
Poner_AND = True
END IF
END IF
NEXT
Filtro= LCase (Filtro)
RsProrrogas.Filter = Filtro
response.write "El filtro vale: " & filtro & "<br>"
RsProrrogas.open "select * from prorrogas where " & filtro
Bueno...no creo que sea el problema, pero comienza por agregar unos espacios y nos dices como funciona....hace un rato que no toco Access, pero que no la fecha se pasa con '#fecha#'? es decir apostrofe seguido de almohadilla? Tal vez estoy alucinando
Saludos