ASPRunner Professional 7.0 manual - Make search button return data only when search value was entered

To make search button return data only when search value was entered use the following code in the List page: Before process event.

Dim searchClauseObj,srchField
if not IsEmpty(Session(strTableName & "_advsearch")) then
asp_include "classes/searchclause.asp",true
set searchClauseObj=unserialize(Session(strTableName & "_advsearch"))
if bValue(searchClauseObj.isUsedSrch()) then
if searchClauseObj.var_where(strTableName & "_simpleSrch")="" then
for each key in searchClauseObj.var_where(strTableName & _
"_srchFields").Keys
set srchField=searchClauseObj.var_where(strTableName & _
"_srchFields")(key)
if srchField("value1")<>"" then
Exit Function
end if
next
Session(strTableName & "_strWhereClause") = " 1=0"
end if
end if
end if

and use this code in the List page: Before SQL query event.

if not IsEmpty(Session(strTableName & "_strWhereClause")) then
strWhereClause = " 1=0"
Session.Contents.Remove(strTableName & "_strWhereClause")
end if