<%@ Page Language="C#" ContentType="text/html" ResponseEncoding="iso-8859-1" %> <% SQL="SELECT * FROM Tabla" bWhere = False if sPalClave <> "" then SQL=SQL & "WHERE Texto LIKE '%"&sPalClave&"%'" bWhere=True end if if IsDate(dFecha) then if bWhere then SQL=SQL & " AND Fecha=#"&dFecha&"#" else SQL=SQL & " WHERE Fecha=#"&dFecha&"#" bWhere=True end if end if if iNota <> 0 then if bWhere then SQL=SQL & " AND Nota="&iNota else SQL=SQL & " WHERE Nota="&iNota bWhere=True end if end if 'Seccion siempre tiene algún valor if bWhere then SQL = SQL & " AND IdSeccion="&iSeccion else SQL = SQL & " WHERE IdSeccion="&iSeccion bWhere=True end if if sOrden <> "" then SQL = SQL & " ORDER BY "&sOrden end if Response.Write(SQL) %> <% set rs= nothing set con = nothing %>