Show Date Range on Report

Here is a sample:

strSearch=""

if REQUEST("a")="advsearch" then
asearchfield = postvalue("asearchfield[]")
if not isarray(asearchfield) then
dim t
t=asearchfield
redim asearchfield(1)
asearchfield(0)=t
end if
for field=0 to ubound(asearchfield)
gfield=asearchfield(field)
asopt=postvalue("asearchopt" & GoodFieldName(asearchfield(field)))
value1=postvalue("value" & GoodFieldName(asearchfield(field)))
if value1="" then value1=postvalue("value" & GoodFieldName(asearchfield(field)) & "[]")
ttype=postvalue("type" & GoodFieldName(asearchfield(field)))
value2=postvalue("value1_" & GoodFieldName(asearchfield(field)))
if value2="" then value2=postvalue("value1" & GoodFieldName(asearchfield(field)) & "[]")
nnot=postvalue("not" & GoodFieldName(asearchfield(field)))
if nnot="on" then nnot = "not" else nnot="" end if
if not SafeIsEmpty(value1) or asopt="Empty" then
strSearch = strSearch & " " & ttype & " "
strSearch = strSearch & gfield & " " & nnot & " " & asopt & " "
if not isArray(value1) then
strSearch = strSearch & value1
else
strSearch = strSearch & combinevalues(value1)
end if
if not SafeIsEmpty(value2) then strSearch = strSearch & " and " & value2
end if
next
end if
if strSearch<>"" then _
response.write "Search Results Showing " & strSearch