<% Set rs = server.CreateObject("ADODB.Recordset") Set rs1 = server.CreateObject("ADODB.Recordset") sql_categoryC = " categoryC in (select fk_category from t_categoryC c join t_categoryC_original o on c.fk_category = o.seq where c.useType = 'Y' and shop_code = '" & global_shop_code & "')" sql = "select top 3 b.url,b.target,b.img,b.title from t_bannerSchedule s join t_banner b on s.banner_seq=b.seq where s.shop_code='" & global_shop_code & "' and s.area='c' and s.sort > 0 order by s.sort asc" rs.open sql,oDBCon,1 Dim arrCenterBanner(3,3) If Not rs.eof Then i = 1 Do Until rs.eof If rs("target") = "C" Then arrCenterBanner(i,0) = "_self" Else arrCenterBanner(i,0) = "_blank" End If arrCenterBanner(i,1) = rs("title") arrCenterBanner(i,2) = rs("img") arrCenterBanner(i,3) = rs("url") i = i + 1 rs.movenext Loop End If rs.close %>

<% If global_shop_code="giftkor" then sql="Select distinct top 7 b.p_code,p_name,price1,su_limit1,imgS1,readCnt,showType,useType,priceType from t_md_best a,t_product b where a.p_code=b.p_code And shop_code='" & global_shop_code & "' and a.flash='" & global_shop_code & "'" Else sql = "select distinct top 7 p_code,p_name,price1,su_limit1,imgS1,readCnt,showType,useType,priceType from t_product where " & sql_categoryC & " and etc_product = 'Y' order by readCnt desc" End if 'response.write sql rs.open sql,oDBCon,1 %>

<% p_code = "" p_name = "" price1 = "" su_limit1 = "" imgS1 = "" readCnt = "" showType = "" useType = "" priceType = "" If Not rs.eof Then If LenB(rs("p_name")) > 32 Then p_name = LeftB(rs("p_name"),32) & ".." Else p_name = rs("p_name") End If p_code = rs("p_code") su_limit1 = rs("su_limit1") imgS1 = rs("imgS1") readCnt = rs("readCnt") price1 = FormatNumber(discount(rs("price1")),0) If session("mro") <> "" Then price1= FormatNumber(discount_mro(price1),0) End if If rs("showType") = "Y" And global_shop_kind <> "A" Then ''''''''독립몰만 가격노출, 다른 제휴몰은 가격노출 안됨 su_limit1 = "***" price1 = "***" End If If rs("priceType") = "Y" Then ''''''''상담판매 , 가격노출 안됨 su_limit1 = "***" price1 = "***" End If useType = rs("useType") size = imgAutoSize("/upload/product/" & rs("imgS1"), 100,100) rs.movenext End If '공정거래위원회 고시 제 2000-1호에 따른 사업자등록번호 206-05-99182 / 통신판매업허가 2008-경기구리- 0223호 '상호명 : 영일유통 / 대표자명 : 김선운 / 개인정보 관리 책임자 : 김선운 'TEL 0505-699-0987(代) / FAX 02-2179-9366 / 대표이메일 : kim961100@naver.com '(본사) 경기 구리시 교문동 309-20 (우 471-020) 이메일무단수집거부 'Copyright (C)1995~2006 ㈜앳디드All Rights Reserved. %>

<%=p_name%> <%If useType = "P" Then %>
일시품절
<%Else %>
<%=su_limit1%>개

<%=price1%>원
<%End If %>

<% If Not rs.eof Then i = 1 Do Until rs.eof If LenB(rs("p_name")) > 18 Then p_name = LeftB(rs("p_name"),18) & ".." Else p_name = rs("p_name") End If p_code = rs("p_code") su_limit1 = rs("su_limit1") imgS1 = rs("imgS1") readCnt = rs("readCnt") price1 = FormatNumber(discount(rs("price1")),0) If session("mro") <> "" Then 'price1= price1 * session("real_halin") price1= FormatNumber(discount_mro(price1),0) End if If rs("showType") = "Y" And global_shop_kind <> "A" Then ''''''''독립몰만 가격노출, 다른 제휴몰은 가격노출 안됨 su_limit1 = "***" price1 = "***" End If If rs("priceType") = "Y" Then ''''''''상담판매 , 가격노출 안됨 su_limit1 = "***" price1 = "***" End If useType = rs("useType") size = imgAutoSize("/upload/product/" & rs("imgS1"), 100,100) %>

class="best_list01" <%Else %>class="best_list02" <%End If %>>

<%=p_name%>

<%If useType = "P" Then %>

임시품절

<%Else %>

<%=su_limit1%>개

<%=price1%>원

<%End If %>

<% i = i + 1 rs.movenext Loop End If rs.close %>

<% 'sql = "select distinct top 7 p_code,p_name,price1,su_limit1,imgS1,readCnt,showType,useType,priceType from t_product where " & sql_categoryC & " and hit_product = 'Y' order by readCnt desc" 'select distinct top 7 p_code,p_name,price1,su_limit1,imgS1,readCnt,showType,useType,priceType from t_product where categoryC in (select fk_category from t_categoryC c join t_categoryC_original o on c.fk_category = o.seq where c.useType = 'Y' and shop_code = 'giftmani') and etc_product = 'Y' order by readCnt desc '071215259 071215259 If global_shop_code="giftkor" then 'sql = "select distinct top 7 p_code,p_name,price1,su_limit1,imgS1,readCnt,showType,useType,priceType from t_product where updateshop = '" & global_shop_code & "' order by readCnt desc" sql="Select distinct top 7 b.p_code,p_name,price1,su_limit1,imgS1,readCnt,showType,useType,priceType from t_md_best a,t_product b where a.p_code=b.p_code And shop_code='" & global_shop_code & "' and a.updateshop='" & global_shop_code & "'" Else sql = "select distinct top 7 p_code,p_name,price1,su_limit1,imgS1,readCnt,showType,useType,priceType from t_product where " & sql_categoryC & " and hit_product = 'Y' order by readCnt desc" End If 'response.write sql rs.open sql,oDBCon,1 %>

<%=p_name%> <%If useType = "P" Then %>
일시품절
<%Else %>
<%=su_limit1%>개

<%=price1%>원
<%End If %>

class="best_list01" <%Else %>class="best_list02" <%End If %>>

<%=p_name%>

<%If useType = "P" Then %>

임시품절

<%Else %>

<%=su_limit1%>개

<%=price1%>원

<%End If %>

<% i = i + 1 rs.movenext Loop End If rs.close %>

target='_self' <%Else %>target="_blank" <%End If %>>

target='_self' <%Else %>target="_blank" <%End If %>>

<%If global_shop_code <> "arishop" Then %>

class="firstChild" <%Else %> class=""<%End If %>> class="squareBlock" <%Else %> class="squareNone" <%End If %> style="height:<%=mainHeight%>px;"><%=arrCate(i,1)%> <%=arrCate(i,1)%>

<%For i = 1 To categoryCnt%>

style="display:block;" <%Else %>style="display:none;" <%End If %>%onmouseover="setBottomCateRollingStop(0);" onmouseout="setBottomCateRollingStop(1);">

<% sql = "select distinct top 10 imgS1,p_name,p_code,price1,su_limit1,useType,priceType,showType,readCnt from t_product where categoryA = " & arrCate(i,2) & " and useType <> 'N' and " & sql_categoryC & " order by readCnt desc" rs.open sql,oDBcon,1 If Not rs.eof Then j = 1 Do Until rs.eof su_limit1 = FormatNumber(rs("su_limit1"),0) price1 = FormatNumber(discount(rs("price1")),0) If rs("showType") = "Y" And global_shop_kind <> "A" Then ''''''''독립몰만 가격노출, 다른 제휴몰은 가격노출 안됨 su_limit1 = "***" price1 = "***" End If If rs("priceType") = "Y" Then ''''''''상담판매 , 가격노출 안됨 su_limit1 = "***" price1 = "***" End If 'size = imgAutoSize("/upload/product/" & rs("imgS1"), 90 , 90) If session("mro") <> "" Then 'price1= price1 * session("real_halin") price1= FormatNumber(discount_mro(price1),0) End if %> <%If j = 1 Or j = 6 Then %>

<%End If %> <%If j = 6 Then %>

<%End If %>

class="md_list15" <%Else %>class="md_list25" <%End If %>>

">" alt="<%=rs("p_name")%>" />

<%=leftB(rs("p_name"),18)%>

<%If rs("useType") = "P" then%> 일시품절 <%Else %> <%=su_limit1%>개 <%=price1%>원 <%End If %>

<%If j = 5 Or j = 10 Then %>

<%End If %> <% j = j + 1 rs.movenext Loop End If rs.close %>

<%Next %>

<%End If %>

<% sql = "select c.seq,c.title,c.img,c.categoryA,c.categoryB,c.categoryC from t_mainCategorySchedule s join t_mainCategory c on s.mainCategory_seq = c.seq where s.shop_code = '" & global_shop_code & "' and ( s.sort <> '' or s.sort <> '0') order by s.sort asc" rs.open sql,oDBCon,1 If Not rs.eof Then i = 1 Do Until rs.eof k = i Mod 2 If k = 1 Then chk = 1 Else chk = 2 End If categoryA = "" categoryB = "" categoryC = "" categoryC_original = rs("categoryC") categoryB_original = rs("categoryB") categoryA_original = rs("categoryA") If categoryC_original = "0" Or IsNull(categoryC_original) Then categoryC_original = "" End If If categoryB_original = "0" Or IsNull(categoryB_original) Then categoryB_original = "" End If If categoryA_original = "0" Or IsNull(categoryA_original) Then categoryA_original = "" End If If categoryC_original <> "" Then sql = "select c.seq from t_categoryC_original o join t_categoryC c on o.seq = c.fk_category where c.shop_code = '" & global_shop_code & "' and c.useType='Y' and o.seq = " & categoryC_original rs1.open sql,oDBCon,1 If Not rs1.eof Then categoryC = rs1(0) End If rs1.close End If If categoryB_original <> "" Then sql = "select c.seq from t_categoryB_original o join t_categoryB c on o.seq = c.fk_category where c.shop_code = '" & global_shop_code & "' and c.useType='Y' and o.seq = " & categoryB_original rs1.open sql,oDBCon,1 If Not rs1.eof Then categoryB = rs1(0) End If rs1.close End If If categoryA_original <> "" Then sql = "select c.seq from t_categoryA_original o join t_categoryA c on o.seq = c.fk_category where c.shop_code = '" & global_shop_code & "' and c.useType='Y' and o.seq = " & categoryA_original rs1.open sql,oDBCon,1 If Not rs1.eof Then categoryA = rs1(0) End If rs1.close End If %> <%If k = 1 Then %>

<%End If %>

" alt="<%=rs("title")%>" />

<%If categoryA <> "" Or categoryB <> "" Or categoryC <> "" Then %>

<%End If %>

<% sql_categoryC = " p.categoryC in (select fk_category from t_categoryC c join t_categoryC_original o on c.fk_category = o.seq where c.useType = 'Y' and shop_code = '" & global_shop_code & "')" sql = "select distinct top 6 m.p_code,p.p_name,p.imgS1,p.price1,p.su_limit1,m.sort,p.showType from t_mainProduct m join t_product p on m.p_code = p.p_code where m.useType='Y' and m.mainCategory= " & rs("seq") & " and p.useType <> 'N' and " & sql_categoryC & " order by m.sort asc" rs1.open sql,oDBCon,1 If Not rs1.eof Then z = 1 Do Until rs1.eof If rs1("showType") = "Y" And global_shop_kind = "B" Then price = "****" su_limit = "***" Else price = FormatNumber(discount(rs1("price1")),0) If session("mro") <> "" Then 'price1= price1 * session("real_halin") price= FormatNumber(discount_mro(price),0) End if su_limit = FormatNumber(rs1("su_limit1"),0) End If size = imgAutoSize("/upload/product/" & rs1("imgS1"), 120 , 120) %> <%If z = 1 Then %>

">" alt="<%=rs1("p_name")%>" width="<%=size(0)%>" height="<%=size(1)%>" />
">
<%=rs1("p_name")%>

<%=su_limit%>개 <%=price%>원

<% If k = 0 Then %>

<%End If %> <% i = i + 1 rs.movenext Loop End If rs.close Set rs1 = Nothing %>

<% if global_shop_code = "giftkor" then %> 더보기

<%else%>

<%End if%>

<% Set rs = server.CreateObject("ADODB.RecordSet") check_count=0 if global_shop_code = "arishop" then sql = "select top 3 seq,title from t_outer_notice where (shop_code = 'arishop') and check_num='Y' order by seq desc" Else sql = "select top 3 seq,title from t_outer_notice where (shop_code <> 'arishop') and check_num='Y' order by seq desc" End if rs.open sql,oDBCon,1 If Not (rs.eof Or rs.bof) Then Do Until rs.eof If LenB(rs("title")) > 40 Then title = LeftB(rs("title"),38) & ".." Else title = rs("title") End If if global_shop_code = "giftkor" then %>

<%=title%>

<% Else %>

"><%=title%>

<% End if rs.movenext check_count=check_count+1 Loop End If rs.close Set rs = Nothing %> <% Set rs = server.CreateObject("ADODB.RecordSet") top_search=3-check_count If top_search > 0 then if global_shop_code = "arishop" then sql = "select top 3 seq,title from t_outer_notice where (shop_code = 'arishop') and (check_num is null or check_num='') order by seq desc" Else sql = "select top 3 seq,title from t_outer_notice where (shop_code <> 'arishop') and (check_num is null or check_num='') order by seq desc" End if rs.open sql,oDBCon,1 If Not (rs.eof Or rs.bof) Then Do Until rs.eof If LenB(rs("title")) > 40 Then title = LeftB(rs("title"),38) & ".." Else title = rs("title") End If if global_shop_code = "giftkor" then %>

<%=title%>

<% Else %>

"><%=title%>

<% End if rs.movenext Loop End If rs.close Set rs = Nothing End If %>