<%@ Language=VBScript %> <% Option Explicit %> <% 'show all products in one product group%> <% Dim groupid,headertxt groupid=0 headertxt="Search Results" %>

Search

<%=headertxt%>

Meanings list search

Temporarily we will not be accepting any orders. We are doing our best to serve you again. Please check again soon.

<% 'create recordset to show categories Set rsCatalog = Conn.Execute("SELECT * FROM catalogs ") While Not rsCatalog.EOF Set rsProdg = Conn.Execute("SELECT * FROM prodgroup Where catalogID="&rsCatalog("catalogID")) if Not rsProdg.EOF then%> <%end if%> <%While Not rsProdg.EOF%> <% rsProdg.MoveNext Wend rsProdg.close() rsCatalog.MoveNext Wend rsCatalog.close() Set rsCatalog = Nothing Set rsProdg = Nothing %>      <%=rsCatalog("catalogname")%> &gn=<%=rsProdg("GroupName")%>"><% if cint(groupid) = cint(rsProdg("prodgroupID")) then %> <%=rsProdg("GroupName")%><% else %> <%=rsProdg("GroupName")%> <%end if%>  Sizes Information  Questions? Contact  service@lucky38.com  or 212-461-3140

<% 'create recordset to show categories Dim counter,rsProducts,sql counter=0 sql="SELECT * FROM Invent where (active and groupid and (lcase(strVendorNumber) like '%" & lcase(request("ss")) & "%'" sql= sql & " or lcase(meaning1) like '%" & lcase(request("ss")) & "%' or lcase(meaning2) like '%" & lcase(request("ss")) & "%'))" Set rsProducts = Conn.Execute(sql) %> "> <% if len(request("msg"))>0 then 'we just added the item to the cart %> <%=request("msg")%> <%end if%> <% if NOT rsProducts.EOF then dim mprod_id,issize,lastid,mprodflag dim color_name While Not rsProducts.EOF lastid=rsProducts("ProductID") mprodflag=0 %> <%'if (counter+1) mod 4 =0 then %> <% counter=counter+1 if counter mod 4 =0 then response.write("") else%> <%end if if mprod_id="" then rsProducts.MoveNext end if Wend if counter mod 4 =1 then response.write("") response.write("") response.write("") end if if counter mod 4 =2 then response.write("") response.write("") end if if counter mod 4 =3 then response.write("") end if else 'no search results %>    Your search - <%=request("ss")%> - did not match any Items.    Suggestions:       - Make sure all words are spelled correctly.       - Try different meaning.       - You can enter exact or partial catalog number as well. <% end if %> <%else%>',0);">/<%=rsProducts("strModelNumber")%>.jpg" border=0 oncontextmenu="return false"> <%end if%> <%if rsProducts("meaning2")<>"" then%> <%end if%> <%if is_multi_product(rsProducts("ProductID")) then mprod_id=get_multip_id(rsProducts("ProductID")) lastid=mprod_id mprodflag=1 %>/<%=rsProducts("strModelNumber")%>.jpg" border=0 oncontextmenu="return false"> <%if rsProducts("meaning1")<>"" then%><%=rsProducts("meaning1")%><%end if%> <%=rsProducts("meaning2")%> <%=rsProducts("strVendorNumber")%> $<%=rsProducts("Price")%>  <% mprod_id="" if is_multi_product(rsProducts("ProductID")) then mprod_id=get_multip_id(rsProducts("ProductID")) lastid=mprod_id Response.write("") if not is_size(rsProducts("ProductID")) then issize=0 Response.Write("Color") else issize=1 Response.Write("Size") end if do while Not rsProducts.EOF if mprod_id<>get_multip_id(rsProducts("ProductID")) then exit do color_name=get_color_name(rsProducts("ProductID")) Response.Write(""&color_name&"") rsProducts.MoveNext loop Response.Write("") end if %> <%if issize then%><%end if%>

About Us       Contact Us       Free Shipping       Privacy Policy       Store Policy       E-Cards       Free Gift Card

Receive holiday gift reminders & special offers:         ©2002-2006, Lucky38.com All rights reserved worldwide.

<% rsProducts.Close Set rsProducts = Nothing Conn.Close set Conn = Nothing %>