<%@ Language=VBScript %> <% Option Explicit %> <% 'show all products in one product group%> <% Dim groupid,groupname, headertxt groupid=Request("pg") groupname=Request("gn") headertxt=groupname if not isnumeric(groupid) then 'ERROR or wrong address Response.Redirect ("http://www.lucky38.com") end if %>

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 counter=0 Set rsProducts = Conn.Execute("SELECT * FROM Invent where active and groupid="&groupid&" order by ProductID") %> <% if len(request("msg"))>0 then 'we just added the item to the cart %> <%=request("msg")%> <%end if%> <% 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 if counter=0 then 'NO PRODUCTS%>     New! Coming soon... <%end if%> <%else%>',0);">/<%=rsProducts("strModelNumber")%>.jpg" border=0 oncontextmenu="return false"> <%end if%> <%if rsProducts("meaning2")<>"" then%> <%end if%> <%if false then 'rsProducts("Width")>0 and rsProducts("Height")>0 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")%> Size: <%=formatnumber(rsProducts("Width"),2,true)%> X <%=formatnumber(rsProducts("Height"),2,true)%> inch <%=rsProducts("strModelNumber")%> $<%=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 %>