<%@ CODEPAGE= 65001 %> <% dim conn call makeconnect set rs=server.CreateObject ("adodb.recordset") set rs1=server.CreateObject ("adodb.recordset") %> Landbond------------------
Landbond   CHINESE
  HOME | ABOUT LANDBOND | PRODUCT | INFORMATION | CONTACT US |
           
<% if pTypeFlag = "a" then sql = "select * from productType where level=1 and left(code,4)='"&ptype&"'" else sql = "select * from productType2 where level=1 and left(code,4)='"&ptype&"'" end if rs.open sql,conn,3 if pType2="" then if not rs.eof then pType2 = rs("code") end if end if do while not rs.eof if pType2=rs("code") then 'classFlag = "STYLE2" pType2Name = rs("mingcheng") pType2Pic= rs("pic1") else classFlag = "" end if %> <% rs.moveNext loop rs.close %>
Select series
<%=pTypeName%>   
&ptype2=<%=rs("code")%>" class="menu02_a" > <%=rs("mingcheng")%>   
 
 
HOME | Product | Product F/P
Latest Launch more...
<% sql = " select top 1 * from product where newflag=1 order by px,updateriqi desc" rs.Open sql,Conn,3 for i=1 to 1 if rs.eof then pid="" pxinghao = "" pmingcheng = "" pguige = "" picName = "../ima/pic01.jpg" else pid=rs("pid") pxinghao = rs("pxinghao") pmingcheng = rs("pmingcheng") mingcheng = left(mingcheng,inStr(mingcheng,chr(13))) pguige = rs("pguige") pguige = left(pguige,inStr(pguige,chr(13))) picName = "../upload/product/"&rs("pic6") strlen = 14 rs.movenext end if next rs.close %>
<% if pid<>"" then %> <%else%> <%end if%> Model: <%=pxinghao%>
Name: <%=pmingcheng%>
Size: <%=pguige%>
 
Recommending more...
<% sql = " select top 4 * from product where tuijianFlag=1 order by px,updateriqi desc" rs.Open sql,Conn,3 dim pid1(4),picname1(4) for i=1 to 4 if rs.eof then pid1(i)="" 'pxinghao = "" 'pmingcheng = "" 'pguige = "" picName1(i) = "../ima/pic01.jpg" else pid1(i)=rs("pid") 'pxinghao = rs("pxinghao") 'pmingcheng = rs("pmingcheng") 'mingcheng = left(mingcheng,inStr(mingcheng,chr(13))) 'pguige = rs("pguige") 'pguige = left(pguige,inStr(pguige,chr(13))) picName1(i) = "../upload/product/"&rs("pic6") 'strlen = 14 rs.movenext end if next rs.close %>
<% if pid1(1)<>"" then %> <%else%> <%end if%> <% if pid1(2)<>"" then %> <%else%> <%end if%> <% if pid1(3)<>"" then %> <%else%> <%end if%> <% if pid1(4)<>"" then %> <%else%> <%end if%>
 
 
Office Chair Galleria Sofa Product by Life Style PROJECT Function
<% sql="select * from productType where left(code,4)='H006'" set rs=conn.execute(sql) while not rs.eof if len(rs("code"))>4 then %> <% end if rs.movenext wend %>
"><%=rs("mingcheng")%>
<% sql="select * from productType where left(code,4)='H005'" set rs=conn.execute(sql) while not rs.eof if len(rs("code"))>4 then %> <% end if rs.movenext wend rs.close %>
"><%=rs("mingcheng")%>
<% sql = "select * from productType where level=0 and code<>'H005' and code<>'H006'and code<>'H007'" rs.open sql,conn,3 'if pType="" then ' if not rs.eof then ' pType = rs("code") ' pTypeFlag = "a" ' end if ' end if do while not rs.eof %> <% rs.movenext loop rs.close %>
"><%=rs("mingcheng")%>
<% sql="select * from productType where left(code,4)='H007'" set rs=conn.execute(sql) while not rs.eof if len(rs("code"))>4 then %> <% end if rs.movenext wend rs.close %>
"><%=rs("mingcheng")%>
HOME | ABOUT LANDBOND | PRODUCT | INFORMATION | CONTACT US
  Copyright © 1984-2006 Landbond Group.  
<% if provinceSselect <> "1" then %> <% end if %> <% set rs= nothing set rs1= nothing conn.close set conn=nothing %>