<% lsSql = "Select top 8 productno, gubun, category, productname, filetype_p as filetype, cost, sellcount, weight, sortno," lsSql = lsSql & " (select top 1 gubunname From product_category_root with (nolock) where gubun=A.category) gubunname , " lsSql = lsSql & " (select top 1 categoryname From product_category with (nolock) where gubun=A.category and categoryno=A.category2) categoryname , " lsSql = lsSql & " isdelete, registdate " & vbcrlf lsSql = lsSql & " , funcinfo , mainfilebig , mainfilesmall , subfilebig1 , subfilesmall1 " lsSql = lsSql & " , subfilebig2 , subfilesmall2 , subfilebig3 , subfilesmall3 , menualfile " lsSql = lsSql & " , specfile1 , specfile2 , specfile3 , utubeurl , isnew , ismenu , isslide , ismain " lsSql = lsSql & " from product_main a with (nolock) " lsSql = lsSql & " where isslide='1' order by registdate desc " rs.open lsSql , dbcon, 1 , 1 cnt = rs.recordcount %> <%If cnt <> 0 Then %>

계절의 변화에도 색상변화없이 언제나 처음 그대로

친환경 제품개발을 통하여 자연과의 공생을 모색하고 고객만족과 사회적기업으로 거듭나겠습니다

<% For i = 1 To cnt %>

"> /<%=rs("mainfilesmall")%>" alt="Product">

"><%=rs("gubunname")%>

<%=rs("productname")%>

" >Detail info

<% rs.movenext Next rs.close %>

<%End If %>

<% lsSql = "Select top 3 productno, gubun, category, productname, filetype_p as filetype, cost, sellcount, weight, sortno," lsSql = lsSql & " (select top 1 gubunname From product_category_root with (nolock) where gubun=A.category) gubunname , " lsSql = lsSql & " (select top 1 categoryname From product_category with (nolock) where gubun=A.category and categoryno=A.category2) categoryname , " lsSql = lsSql & " isdelete, registdate " & vbcrlf lsSql = lsSql & " , funcinfo , mainfilebig , mainfilesmall , subfilebig1 , subfilesmall1 " lsSql = lsSql & " , subfilebig2 , subfilesmall2 , subfilebig3 , subfilesmall3 , menualfile " lsSql = lsSql & " , specfile1 , specfile2 , specfile3 , utubeurl , isnew , ismenu , isslide , ismain " lsSql = lsSql & " from product_main a with (nolock) " lsSql = lsSql & " where ismain='1' order by registdate desc " rs.open lsSql , dbcon, 1 , 1 cnt = rs.recordcount %> <%If cnt <> 0 Then %> <% For i = 1 To cnt %>

" class="card-img-tiles">

/<%=rs("mainfilesmall")%>" alt="Category">

/<%=rs("subfilesmall1")%>" alt="Category"> /<%=rs("subfilesmall2")%>" alt="Category">

<%=rs("gubunname")%>

<%=rs("productname")%>

">View Product

<% rs.movenext Next %> <%End If rs.close %>

비아이랜드 시공사례

시공사례

<% Call GetFooter Set rs = Nothing Set rs2 = Nothing dbclose() %>