<% '단품/팩키지 강제 변경 strQuery = "select top 1 * from [petitelin_CRM]..[product_change] where sourcePro = "& pack_content_id execOrder = "list" set changeRs = SetDatabaseByblank(oConn, strQuery, execOrder) if not(changeRs.bof and changeRs.eof) then response.redirect(replace(httpUrl, split(split(httpUrl,"pack_content_id=")(1),"&")(0), changeRs("targetPro"))) response.end end if '라운지 상품 확인 isLounge = false if meWork<>true then if cnt_Rs("pack_content_id","[petitelin_CRM]..[view_lounge_pack_category]","and pack_content_id=" & pack_content_id,oconn) >0 then if seRank = 99 then response.redirect("/") response.end else isLounge = true end if end if end If isAddProduct = false '추가상품 확인 if cnt_Rs("pack_content_id2","[petitelin_CRM]..[pack_content_link]","and pack_content_id2=" & pack_content_id,oconn) >0 Then response.redirect("/") response.end isAddProduct = true end If isNpayPackExcept = false '네이버 페이 제외상품 확인 if cnt_Rs("pack_content_id","[petitelin_CRM_MANAGE]..[naverpay_except_package]","and pack_content_id=" & pack_content_id,oconn) >0 Then isNpayPackExcept = true end If if meWork then '내부에서는 상품의 상태와 상관없이 다 보임 strQuery = "select * from [petitelin_CRM]..[view_pack_content] where id = "& pack_content_id else strQuery = "select * from [petitelin_CRM]..[view_pack_content_web] where id = "& pack_content_id end if execOrder = "list" set adoRs = SetDatabaseByblank(oConn, strQuery, execOrder) if adoRs.bof and adoRs.eof then response.redirect("/") response.end ELSE '균일가 상품일 경우 if adoRs("old_id") = "y" then response.redirect("shopview_event.asp?pack_content_id=" & pack_content_id) response.end end If '딜코드 상품일 경우 if adoRs("old_id") = "D" then response.redirect("shopview_2016_deal.asp?pack_content_id=" & pack_content_id) response.end end if txtdisplay = "" if moneyChange then now_discount = adoRs("amodiscount_ratio") now_count_last2 = adoRs("count_ori_last") else now_discount = adoRs("discount_ratio") now_count_last2 = adoRs("count_ori_last") end if if adoRs("ori_count") = adoRs("count_ori_last") then txtdisplay = "display:none;" end if '로그기록 strQuery = " insert into [petitelin_CRM]..[log_pack_content] (pack_content_id, sessionID, divide) values ("& pack_content_id &", "& session.sessionId &", 's') " execOrder = "exec" call SetDatabaseByblank(oConn, strQuery, execOrder) if request("isrecom")="1" then strQuery = " insert into [petitelin_SEARCH]..[log_recom] (pack_content_id, sessionID, thissite, serank, gubun) values ("& pack_content_id &", "& session.sessionId &", '"& thissite &"', '"& serank &"', '"& request("recomtype") &"') " execOrder = "exec" call SetDatabaseByblank(oConn, strQuery, execOrder) end if end if iniCnt = 20 salesCnt = iniCnt onlymember = "n" onlyOne = "n" '해당 단품/팩키지에 걸려있는 프로모션 확인 procName = "[petitelin_CRM]..[proc_shopview_promotion]" arrParam1 = array(pack_content_id) arrParam2 = array("pack_contnet_id") execOrder="list" set promotionRs = GetRecordSetByProc(oConn, procName, arrParam1, arrParam2, null, execOrder) if not(promotionRs.bof and promotionRs.eof) then do while not promotionRs.eof if promotionRs("onlymember")="y" then onlymember = promotionRs("onlymember") end if if promotionRs("onlyOne") = "y" then '1인 한정구매 onlyOne = promotionRs("onlyOne") cntOnlyOne = cnt_Rs("A.id","[petitelin_CRM]..[order_buy_ini] A inner join [petitelin_CRM]..[order_buy_item] B ON A.id=B.order_buy_ini_id INNER JOIN [petitelin_CRM]..[promotion_pack] C ON C.pack_content_id=B.pack_content_id INNER JOIN [petitelin_CRM]..[view_promotion] D ON D.id=C.promotion_id"," and A.userid='"& seUserid &"' and B.pack_content_id='" & pack_content_id & "' and B.cancel='n' and D.onlyOne = 'y' and A.wdate between sdate and isNull(nullif(edate,'1900-01-01'),getdate())",oconn) if cntOnlyOne > 0 then salesCnt = 0 else salesCnt = 1 end if end if promotionRs.movenext loop promotionRs.movefirst end if %>
<%=replace(adoRs("goods_model"),"^"," ")%>

<%=formatnumber(adoRs("ori_count"),0)%> <%=formatnumber(now_count_last2,0)%>
<%=adoRs("goods_jejo")%>
<%=adoRs("goodsnation")%>
총 수량 0개
총 금액
0
<%if gUserid="" then%> 신규가입 시 최대 4,000원 할인 자세히보기 >
<%end if%> 무이자 2~8개월 하나, 삼성, 현대, 국민, 신한, 비씨, 농협, 씨티, 광주, 롯데
(5만원 이상)
<%if isLounge then%> <%else%> <%end if%>
<%if isAddProduct = False then%> <%if isNpayPackExcept = False then%>
<%end if%> <%end if%> <% '//종합몰, 브랜드 사이트 공통 배너 strQuery = " select * from [petitelin_CRM]..[site_shopview_banner] where divide='site' and getdate() between sdate and edate " execOrder = "list" set bannerRs = SetDatabaseByblank(oConn, strQuery, execOrder) if not (bannerRs.EOF And bannerRs.BOF) then do while not bannerRs.eof %>
" target="_blank">">
<% bannerRs.movenext num = num + 1 loop end if %>
<% If adoRs("old_id") = "m" Then tmpArtConPackId = adoRs("art_con1") If InStr(defaultValue(adoRs("art_con1"),""),"$$$$$상단상세$$$$$") > 0 Then Response.write(Trim(Replace(Split(tmpArtConPackId,"$$$$$상단상세$$$$$")(1),chr(10),"")) & "

") 'MD조합 상세 존재함. tmpArtConPackId = Trim(Replace(Split(tmpArtConPackId,"$$$$$상단상세$$$$$")(0),vbCrlf,"")) End if set exeQuery = new arrayPush exeQuery.append("select * from ( ") exeQuery.append(" select ") exeQuery.append(" A.*, row_number() over (partition by pack_content_id,pack_sunser order by sunser) as row ") exeQuery.append(" from ( ") exeQuery.append(" select ") exeQuery.append(" A.pack_sunser,A.name,A.code4Name,A.id as product_id,C.pack_content_id,subject,sunser ") exeQuery.append(" from ( ") exeQuery.append(" select *, row_number() over (order by divide) as pack_sunser ") exeQuery.append(" from [petitelin_CRM]..[view_option] where pack_content_id = " & pack_content_id & ") A ") exeQuery.append(" inner join [petitelin_CRM]..[UF_TEXT_SPLIT]('" & tmpArtConPackId & "',',') B on A.pack_sunser = B.id ") exeQuery.append(" inner join [petitelin_CRM]..[pack_photo] C on C.pack_content_id = B.result ") exeQuery.append(" inner join [petitelin_CRM]..[view_product_store] D on D.id = A.id") exeQuery.append(" where sunser between 1 and 3 ") exeQuery.append(" ) A ") exeQuery.append(") A ") exeQuery.append("where row=1 ") exeQuery.append("order by pack_sunser,row ") strQuery = exeQuery.toString() execOrder = "list" set contRs = SetDatabaseByblank(oConn, strQuery, execOrder) %> <% end if contRs.movefirst if not(contRs.bof and contRs.eof) Then thisProductId = "" thisPackId = "" do while not contRs.eof If thisPackId = "" then %>


<% Else If thisPackId <> contRs("pack_content_id") Then If thisProductId <> contRs("product_id") Then %>
<% End If %>
<% End If End If If thisProductId <> contRs("product_id") Then If thisProductName <> contRs("name") Then If thisPackId = contRs("pack_content_id") Then response.write("
") End If response.write(contRs("name")) End If If contRs("code4Name") <> "" Then If thisProductName <> contRs("name") Then Response.write " : " & contRs("code4Name") Else Response.write ", " & contRs("code4Name") End If End If End If thisPackId = contRs("pack_content_id") thisProductId = contRs("product_id") thisProductName = contRs("name") contRs.movenext Loop End If %>
<% else response.write (adoRs("art_con1")) End If %>





<%=adoRs("goods_name")%>