<% Option Explicit %> <% Dim objDAL : Set objDAL = new dataAccessObject Dim section : section = "search" Dim subsection : subsection = "" Dim intErrNum Dim strErrDesc Dim strMsg Dim rsCategoriesAntiques Dim strTableCell : strTableCell = "leftCell" On Error Resume Next Set rsCategoriesAntiques = objDAL.GetParentCategoriesAntiques() intErrNum = Err.Number strErrDesc = Err.Description On Error Goto 0 If intErrNum <> 0 Then objFunctions.HandleErrorEx intErrNum, strErrDesc, "DataAccessLayer.GetParentCategoriesAntiques", true End If %> Rumi Antiques

Search by Stock Number or Keyword

<% If Request("msg") = "searchtextmin" Then %>

The search criteria must contain at least 3 characters.

<% Elseif Request("msg") = "nosearchtype" Then %>

Please select Stock Number or Keyword to indicate the type of search.

<% Elseif Request("msg") = "noitemsfound" Then %>

Your search returned 0 results.

<% End If %>
 Stock Number    Keyword
 
 
 
<% Do Until rsCategoriesAntiques.EOF %> <% rsCategoriesAntiques.MoveNext Loop rsCategoriesAntiques.Close Set rsCategoriesAntiques = Nothing Call objDAL.CloseDBConnection () %>
" class="globalLink"><%=rsCategoriesAntiques("CatName")%>