<% ' ################################# public function CAL_DisplaySearch() dim sH : sH = "" dim strHEADER sH = sH & "" & VbCrLf sH = sH & "" & VbCrLf sH = sH & "" & VbCrLf sH = sH & "" & VbCrLf sH = sH & "

" & VbCrLf sH = sH & "  " & VbCrLf ' to use image button instead standard uncomment following line and comment line above 'sH = sH & "   " & VbCrLf sH = sH & "

" & VbCrLf CAL_DisplaySearch = sH end function %>