<%@ 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 %> Rivalry Records
<% If not bItemsFound Then %>
No Items Found. Please search for a different item.
<% Else %> <% While not objRS_ItemsFound.EOF %> <% objRS_ItemsFound.MoveNext If not objRS_ItemsFound.EOF Then %> <% End If %> <% If not objRS_ItemsFound.EOF Then objRS_ItemsFound.MoveNext Wend %>
&Catalog_ID=<%=objRS_ItemsFound("Catalog_ID")%>">" WIDTH=68 HEIGHT=68 BORDER=0 ALT="">
<%="""" & objRS_ItemsFound("TITLE") & """ " & objRS_ItemsFound("TYPE") & " "%> <% If instr(1, UCASE(objRS_ItemsFound("DESCRIPTION")), "COLORED VINYL") Then %> Colored Vinyl <% End If %>
&Catalog_ID=<%=objRS_ItemsFound("Catalog_ID")%>">More Info >>
&Catalog_ID=<%=objRS_ItemsFound("Catalog_ID")%>">" WIDTH=68 HEIGHT=68 BORDER=0 ALT="">
<%="""" & objRS_ItemsFound("TITLE") & """ " & objRS_ItemsFound("TYPE") & " "%> <% If instr(1, UCASE(objRS_ItemsFound("DESCRIPTION")), "COLORED VINYL") Then %> Colored Vinyl <% End If %>
&Catalog_ID=<%=objRS_ItemsFound("Catalog_ID")%>">More Info >>
<% End If %>

 

<% %>