%@ Language=VBScript %> <%Option Explicit Response.Buffer=True Response.CacheControl = "no-cache" On Error Resume Next dim PAGE_NAME PAGE_NAME = "store_search.asp"%> <% dim objRS_ItemsFound dim strSearch dim strFieldSearch dim bItemsFound strSearch = Request("txtSearch") strFieldSearch = Request("f") If len(trim(strFieldSearch)) = 0 Then strFieldSearch = "BAND_NAME" set objRS_ItemsFound = Search_DB(strFieldSearch, strSearch) If not (objRS_ItemsFound.BOF AND objRS_ItemsFound.EOF) Then bItemsFound = true Else bItemsFound = false End If %>
|