<!--#include file="../Include/Const.asp" -->
<!--#include file="../Include/Conn.asp" -->
<!--#Include File="Func.asp"-->
<%
Call WebSiteLoad(1)
Dim SeoTitle,SortID,SortPath
if request.QueryString("sortid")="" then
SeoTitle="公司产品"
elseif not IsNumeric(request.QueryString("sortid")) then
SeoTitle="参数错误"
elseif conn.execute("select * from Angel_ProductSort Where ViewFlag and  ID="&request.QueryString("sortid")).eof then
SeoTitle="参数错误"
else
set rs = server.createobject("adodb.recordset")
sql="select * from Angel_ProductSort where ViewFlag and ID="&request.QueryString("sortid")
rs.open sql,conn,1,1
SeoTitle=rs("SortName")
SortID=rs("ID")
SortPath=rs("SortPath")
rs.close
set rs=nothing
end if


%>
<!DOCTYPE html>
<!--HTML5 doctype-->
<html>
<head>
<meta http-equiv="Content-type" content="text/html; charset=gb2312">
<meta name="viewport" content="width=device-width, initial-scale=1.0, maximum-scale=1.0, minimum-scale=1.0, user-scalable=0">
<meta name="apple-mobile-web-app-capable" content="yes" />
<title><%=SeoTitle%></title>
<link rel="stylesheet" type="text/css" href="css/icons.css" />
<link rel="stylesheet" type="text/css" href="css/af.ui.base.css" />
<link rel="stylesheet" type="text/css" href="css/style.css" />
<!--jqMobi主JS-->
<script type="text/javascript" charset="gb2312" src="js/jquery-1.10.2.min.js"></script>
<script type="text/javascript" charset="gb2312" src="js/jq.appframework.js"></script>
<script type="text/javascript" charset="gb2312" src="js/appframework.ui.js"></script>
<!--jqMobi插件-->
<script type="text/javascript" charset="gb2312" src="js/jq.slidemenu.js"></script>
<script type="text/javascript" charset="gb2312" src="js/base.js"></script>
<script type="text/javascript">
	$(document).ready(function(e) {
        $(".page-list a").attr("data-ignore",true); //分页链接不使用AJAX请求
		$("#main_footer a.basket").addClass("pressed");
    });
</script>
</head>

<body>
<div id="afui">
  <div id="content">
    
	<div id="mainPanel" class="panel" data-header="main_header" data-footer="main_footer">
      <!--筛选按钮-->
      <div class="select-bar">
        <div class="col">
          <a href="javascript:;" class="icon-back" onclick="history.back(-1)">返回上一页</a>
        </div>

        <div class="col">
          <a href="#categoryPanel" class="icon-carat-r">商品类别</a>
        </div>
	
      </div>
      <!--/筛选按钮-->
      
      <!--最新商品-->
	  <!--
      <div class="section">
        <h1>最新商品</h1>
      </div>
      <div>
        <ul class="list listview">
          
          <li>
            <a href="/goods/show-40.html" data-ignore="true">
              <img src="/upload/201210/21/small_201210210001069890.jpg" />
              <h2>飞利浦彩电42PFL3320/T3</h2>
              <div class="note">
                <p>图片/显示宽高比: 16:9 宽屏幕屏幕对角线尺寸（英寸）: 42英寸屏幕对角线尺寸（公制）: 107厘米显示屏类型: 有源阵列 LCD, 全高清面板分辨率: 1920 x 1080画面效果增强: 720p 50/60 赫兹处理, 2D/3D 降噪, 3/2 - 2/2 移动下拉, 3D 梳状滤波器, 晶彩, 数码降噪, 动态对比度增强…</p>
                <p><i class="hot">438次</i><i class="price">￥0.01</i>元</p>
              </div>
            </a>
          </li>
          
          <li>
            <a href="/goods/show-37.html" data-ignore="true">
              <img src="/upload/201210/20/small_201210201055447111.jpg" />
              <h2>格力空调KFR-35GW/(35556)FNFa-3(镜面红)</h2>
              <div class="note">
                <p>主要功能特点：                          ★ 采用G10变频引擎                          ★ 150-260V超宽电压运行，适用范围更广泛                          ★ 行业首创舒适省电模式                          ★ 静音设计，静享舒适睡眠                          ★ 抗菌…</p>
                <p><i class="hot">156次</i><i class="price">￥3580.00</i>元</p>
              </div>
            </a>
          </li>
          
          <li>
            <a href="/goods/show-36.html" data-ignore="true">
              <img src="/upload/201210/20/small_201210201052093300.jpg" />
              <h2>YORK空调YHFH-120B/N2CS</h2>
              <div class="note">
                <p>\正确选购空调更节能购买空调时购买直流变频空调更省电；能效比越高的空调越省电：空调的能效比是衡量一台空调是否节能的唯一标准；空调能效等级越小越省电：购买冷暖型空调，应选购其电辅助加热可以单独控制的；空调的输出冷(热)量要与使用面积相对应，选大选小都会更耗电。 …</p>
                <p><i class="hot">14次</i><i class="price">￥3179.00</i>元</p>
              </div>
            </a>
          </li>
          
          <li>
            <a href="/goods/show-34.html" data-ignore="true">
              <img src="/upload/201210/20/small_201210201048503818.jpg" />
              <h2>东芝洗衣机XQG75-ESE</h2>
              <div class="note">
                <p>东芝电器营销株式会社的具有高附加值的电冰箱、洗衣机、小型家用电器、满足了消费者日常生活的需要，并且提高了生活的质量。公司还面向日本市场经销影像设备及其他数码产品，公司在巩固发展日本市场优势的同时，并通过与国际伙伴的战略性结盟促进海外事业的扩展。东芝电器营销…</p>
                <p><i class="hot">153次</i><i class="price">￥5308.00</i>元</p>
              </div>
            </a>
          </li>
          
          <li>
            <a href="/goods/show-33.html" data-ignore="true">
              <img src="/upload/201210/20/small_201210201044509728.jpg" />
              <h2>海尔XQG60-10866</h2>
              <div class="note">
                <p>基本参数产品类型滚筒式 洗涤容量6kg 洗衣程序棉麻,化纤,羊毛,内衣,手洗,单脱,单漂,单排,节能洗,牛仔,兰诺 洗涤功率180W 脱水功率350W 内筒材料不锈钢 抗菌类型银离子抗菌 功能参数 显示屏LCD 其他参数 外形设计玻纤材料 外型尺寸840595570mm 产品重量83kg 其他特点29分钟快速…</p>
                <p><i class="hot">39次</i><i class="price">￥2880.00</i>元</p>
              </div>
            </a>
          </li>
          
        </ul>
      </div>
	  -->
      <!--/最新商品-->
      
      <!--商品推荐--
      <div class="section">
        <h1>商品推荐</h1>
      </div>
      <div>
        <ul class="list listview">
          
          <li>
            <a href="/goods/show-40.html" data-ignore="true">
              <img src="/upload/201210/21/small_201210210001069890.jpg" />
              <h2>飞利浦彩电42PFL3320/T3</h2>
              <div class="note">
                <p>图片/显示宽高比: 16:9 宽屏幕屏幕对角线尺寸（英寸）: 42英寸屏幕对角线尺寸（公制）: 107厘米显示屏类型: 有源阵列 LCD, 全高清面板分辨率: 1920 x 1080画面效果增强: 720p 50/60 赫兹处理, 2D/3D 降噪, 3/2 - 2/2 移动下拉, 3D 梳状滤波器, 晶彩, 数码降噪, 动态对比度增强…</p>
                <p><i class="hot">438次</i><i class="price">￥0.01</i>元</p>
              </div>
            </a>
          </li>
          
          <li>
            <a href="/goods/show-37.html" data-ignore="true">
              <img src="/upload/201210/20/small_201210201055447111.jpg" />
              <h2>格力空调KFR-35GW/(35556)FNFa-3(镜面红)</h2>
              <div class="note">
                <p>主要功能特点：                          ★ 采用G10变频引擎                          ★ 150-260V超宽电压运行，适用范围更广泛                          ★ 行业首创舒适省电模式                          ★ 静音设计，静享舒适睡眠                          ★ 抗菌…</p>
                <p><i class="hot">156次</i><i class="price">￥3580.00</i>元</p>
              </div>
            </a>
          </li>
          
          <li>
            <a href="/goods/show-34.html" data-ignore="true">
              <img src="/upload/201210/20/small_201210201048503818.jpg" />
              <h2>东芝洗衣机XQG75-ESE</h2>
              <div class="note">
                <p>东芝电器营销株式会社的具有高附加值的电冰箱、洗衣机、小型家用电器、满足了消费者日常生活的需要，并且提高了生活的质量。公司还面向日本市场经销影像设备及其他数码产品，公司在巩固发展日本市场优势的同时，并通过与国际伙伴的战略性结盟促进海外事业的扩展。东芝电器营销…</p>
                <p><i class="hot">153次</i><i class="price">￥5308.00</i>元</p>
              </div>
            </a>
          </li>
          
          <li>
            <a href="/goods/show-32.html" data-ignore="true">
              <img src="/upload/201210/20/small_201210201044429301.jpg" />
              <h2>松下洗衣机XQG60-V63GS</h2>
              <div class="note">
                <p>主体品牌 松下 Panasonic系列 大视窗型号 XQG60-V64NW颜色 白色类别 滚筒式自动化程度 全自动显示方式 LED数码管显示控制方式 电脑控制开门方式 前开式排水方式 下排水电机类型 普通电机特色功能脱水功能 支持防缠绕 支持儿童安全锁 支持预约功能 支持干衣功能 不支持夜间洗 不…</p>
                <p><i class="hot">276次</i><i class="price">￥3870.00</i>元</p>
              </div>
            </a>
          </li>
          
          <li>
            <a href="/goods/show-30.html" data-ignore="true">
              <img src="/upload/201210/20/small_201210202357569149.jpg" />
              <h2>老板烟灶套餐CXW-200-8210N+9B26N+802N</h2>
              <div class="note">
                <p>主体品牌 老板型号 CXW-200-8310N+6G21N颜色 不锈钢吸油烟机规格类别 欧式控制方式 琴键开关排风量(m3/min) 17出风口径（mm） 170照明方式 冷光灯照明功率 ≤2W2最大风压(Pa) ≥320电机输入功率（W） 200面板材质 不锈钢噪音[dB(A)] 53外形尺寸（长宽高mm） 895500535产品重量…</p>
                <p><i class="hot">179次</i><i class="price">￥10399.00</i>元</p>
              </div>
            </a>
          </li>
          
        </ul>
      </div>-->
      <!--/商品推荐-->



      <!--商品列表-->
      <div>
        <ul class="list listview listline">
<%dim rs,sql,idCount,Listid,datawhere

if SortPath<>"" and SortID="" then
	datawhere="where ViewFlag and Instr(SortPath,"&SortPath&")>0 "
elseif SortPath<>"" and SortID<>""  then
	datawhere="where ViewFlag and SortID="&SortID
else
	datawhere="where ViewFlag"
end if



Listid=request("Listid")
if not IsNumeric(Listid) then 
response.Write("&#x8BF7;&#x4E0D;&#x8981;&#x8F93;&#x5165;&#x975E;&#x6CD5;&#x5B57;&#x7B26;")
response.end
end if
dim pages,sqlid
      pages=10
  dim pagec
  dim page
      page=clng(request("Page"))
  dim pagenc
      pagenc=5
  dim pagenmax
  dim pagenmin
  dim pageprevious
  dim pagenext
  dim Myself,PATH_INFO,QUERY_STRING
      PATH_INFO = request.servervariables("PATH_INFO")
	  QUERY_STRING = request.ServerVariables("QUERY_STRING")'
      if QUERY_STRING = "" then
	    Myself = PATH_INFO & "?"
	  elseif Instr(PATH_INFO & "?" & QUERY_STRING,"Page=")=0 then
	    Myself= PATH_INFO & "?" & QUERY_STRING & "&"
	  else
	    Myself = Left(PATH_INFO & "?" & QUERY_STRING,Instr(PATH_INFO & "?" & QUERY_STRING,"Page=")-1)
	  end if
  dim taxis
      taxis="order by id desc "
  dim i
  if Listid="" then
  sql="select count(ID) as idCount from Angel_Product "&datawhere&""
  set rs=server.createobject("adodb.recordset")
  rs.open sql,conn,0,1
  idCount=rs("idCount")
  if(idcount>0) then
    if(idcount mod pages=0)then
	  pagec=int(idcount/pages)
   	else
      pagec=int(idcount/pages)+1
    end if
	sql="select id from Angel_Product "&datawhere&" order by ID"
    set rs=server.createobject("adodb.recordset")
    rs.open sql,conn,1,1
    rs.pagesize = pages
    if page < 1 then page = 1
    if page > pagec then page = pagec
    if pagec > 0 then rs.absolutepage = page
    for i=1 to rs.pagesize
	  if rs.eof then exit for
	  if(i=1)then
	    sqlid=rs("id")
	  else
	    sqlid=sqlid &","&rs("id")
	  end if
	  rs.movenext
    next
  end If
 
  
if(idcount>0 and sqlid<>"") Then
set rs = server.createobject("adodb.recordset")
sql="select * from Angel_Product "&datawhere&" and id in("& sqlid &")  order by ID"
rs.open sql,conn,1,3
dim nn
nn=1
do while not rs.eof
response.Write("<li>"&vbcrlf)
response.Write("<a href=""productview.asp?Id="&rs("ID")&""" data-ignore=""true"">"&vbcrlf)
response.Write("<img src="""&rs("SmallPic")&""" />"&vbcrlf)
response.Write("<h2>"&unicode(rs("productname"&""))&"</h2>"&vbcrlf)
response.Write("<div class=""note"">"&vbcrlf)
If rs("Intro")<>"" Then 
response.Write("<p>"&unicode(rs("Intro"))&"</p>"&vbcrlf)
Else 
response.Write("<p>"&rs("Intro")&"</p>"&vbcrlf)
End If 
response.Write("<p><i class=""hot"">"&unicode(rs("ClickNumber"))&"次</i>")
If rs("Price")<>"" Then 
response.Write("<i class=""price"">￥"&unicode(rs("Price"))&"</i>元</p>"&vbcrlf)
Else
response.Write("<i class=""price"">￥"&rs("Price")&"</i>元</p>"&vbcrlf)
End If 
response.Write("</div>"&vbcrlf)
response.Write("</a>"&vbcrlf)
response.Write("</li>"&vbcrlf)
nn=nn+1
rs.movenext 
loop
rs.close
else
    response.write "<li>"&unicode("暂无相关信息")&"</li>"
end if


response.Write("</ul>"&vbcrlf)
response.Write("</div>"&vbcrlf)
response.Write("<!--/商品列表-->"&vbcrlf)

Response.Write("<!--分页页码-->"&vbcrlf)
Response.Write(" <div class=""page-lists""><span>共"&idcount&"记录</span><span>"&page&"/"&pagec&"</span>")

pagenmin=page-pagenc
  pagenmax=page+pagenc
  if(pagenmin<1) then pagenmin=1
  if(page>1) then response.write ("<a href="""& myself &"Page=1"" title=""&#x56DE;&#x5230;&#x7B2C;&#x4E00;&#x9875;"" data-ignore=""true""><font face=""webdings"" color=""#000000"">9</font></a> ")
  if page-(pagenc*2+1)<=0 then
	pageprevious=1
  else
	pageprevious=page-(pagenc*2+1)
  end If
  if(pagenmin>1) then response.write ("<a href="""& myself &"Page="& pageprevious &""" data-ignore=""true"" title=""&#x7B2C;"& pageprevious &"&#x9875;""><font face=""webdings"" color=""#000000"">3</font></a> ")
  if(pagenmax>pagec) then pagenmax=pagec
  for i = pagenmin to pagenmax
	if(i=page) then
	  response.write ("&nbsp;<strong style=""color:red"">"& i &"</strong>&nbsp;")
	Else
		response.write ("[<a href="""& myself &"Page="&i&""" data-ignore=""true"">"& i &"</a>]")
	end if
  next
  if page+(pagenc*2+1)>=pagec then
    pagenext=pagec
  else
    pagenext=page+(pagenc*2+1)
  end If
  response.Write("</div><!--放置页码列表-->"&vbcrlf)

else

 sql="select count(ID) as idCount from Angel_Product "&datawhere&" and  id="&Listid&""
  set rs=server.createobject("adodb.recordset")
  rs.open sql,conn,0,1
  idCount=rs("idCount")
  if(idcount>0) then
    if(idcount mod pages=0)then
	  pagec=int(idcount/pages)
   	else
      pagec=int(idcount/pages)+1
    end if
	sql="select id from Angel_Product "&datawhere&" and id="&Listid&" order by ID"
    set rs=server.createobject("adodb.recordset")
    rs.open sql,conn,1,1
    rs.pagesize = pages
    if page < 1 then page = 1
    if page > pagec then page = pagec
    if pagec > 0 then rs.absolutepage = page
    for i=1 to rs.pagesize
	  if rs.eof then exit for
	  if(i=1)then
	    sqlid=rs("id")
	  else
	    sqlid=sqlid &","&rs("id")
	  end if
	  rs.movenext
    next
  end If

if(idcount>0 and sqlid<>"") Then

set rs = server.createobject("adodb.recordset")
sql="select * from Angel_Product "&datawhere&" and id="&Listid&" order by ID"
rs.open sql,conn,1,3
dim nna
nna=1
do while not rs.eof
'response.Write("["&nna&"]<a title="""&unicode(rs("productname"&""))&""" href=""ProductView.asp?Id="&rs("ID")&""">"&unicode(rs("productname"&""))&"</a>")
'response.Write("</br>")
response.Write("<li>"&vbcrlf)
response.Write("<a href=""productview.asp?Id="&rs("ID")&""" data-ignore=""true"">"&vbcrlf)
response.Write("<img src="""&rs("SmallPic")&""" />"&vbcrlf)
response.Write("<h2>"&unicode(rs("productname"&""))&"</h2>"&vbcrlf)
response.Write("<div class=""note"">"&vbcrlf)
If rs("Intro")<>"" Then 
response.Write("<p>"&unicode(rs("Intro"))&"</p>"&vbcrlf)
Else 
response.Write("<p>"&rs("Intro")&"</p>"&vbcrlf)
End If 
response.Write("<p><i class=""hot"">"&unicode(rs("ClickNumber"))&"次</i>")
If rs("Price")<>"" Then 
response.Write("<i class=""price"">￥"&unicode(rs("Price"))&"</i>元</p>"&vbcrlf)
Else
response.Write("<i class=""price"">￥"&rs("Price")&"</i>元</p>"&vbcrlf)
End If 
response.Write("</div>"&vbcrlf)
response.Write("</a>"&vbcrlf)
response.Write("</li>"&vbcrlf)

nna=nna+1
rs.movenext 
loop
rs.close

Else 
  response.write "<li>"&unicode("暂无相关信息")&"</li>"&vbcrlf
End If 

response.Write("</ul>"&vbcrlf)
response.Write("</div>"&vbcrlf)
response.Write("<!--/商品列表-->"&vbcrlf)

Response.Write("<!--分页页码-->"&vbcrlf)
Response.Write(" <div class=""page-lists""><span>共"&idcount&"记录</span><span>"&page&"/"&pagec&"</span>")


Response.Write("<h2>"&getclassnamep(Listid)&"</h2><ul><li>&#x603B;&#x6570;:"&idcount&";"&page&"/"&pagec&" ")
pagenmin=page-pagenc
  pagenmax=page+pagenc
  if(pagenmin<1) then pagenmin=1
  if(page>1) then response.write ("<a href="""& myself &"Page=1"" title=""&#x56DE;&#x5230;&#x7B2C;&#x4E00;&#x9875;""><font face=""webdings"" color=""#000000"">9</font></a> ")
  if page-(pagenc*2+1)<=0 then
	pageprevious=1
  else
	pageprevious=page-(pagenc*2+1)
  end If
  if(pagenmin>1) then response.write ("<a href="""& myself &"Page="& pageprevious &""" title=""&#x7B2C;"& pageprevious &"&#x9875;""><font face=""webdings"" color=""#000000"">3</font></a> ")
  if(pagenmax>pagec) then pagenmax=pagec
  for i = pagenmin to pagenmax
	if(i=page) then
	  response.write ("&nbsp;<strong style=""color:red"">"& i &"</strong>&nbsp;")
	Else
		response.write ("[<a href="""& myself &"Page="&i&""">"& i &"</a>]")
	end if
  next
  if page+(pagenc*2+1)>=pagec then
    pagenext=pagec
  else
    pagenext=page+(pagenc*2+1)
  end If

  response.Write("</div><!--放置页码列表-->"&vbcrlf)

end if
%>

      
      <!--版权信息-->
            <div class="copyright">
        <p><a href="http://<%=SiteUrl%>/m/" data-ignore="true">触屏版</a> | <a href="http://<%=SiteUrl%>/" data-ignore="true">电脑版</a> | <a href="javascript:;" onclick="$.ui.scrollToTop('mainPanel')">返回顶部</a></p>
        <address>版权所有 <%=SiteTitle2%> 版本号 V1.3</address></p>
      </div>
      <!--/版权信息-->
    
	</div>
    
    <!--页面头部-->
        <header id="main_header">
      <h2 class="logo"><img src="<%=AngelSysRootDir%>images/logo.png" /></h2>
      <a onclick="af.ui.toggleSideMenu()" class="menuButton"></a>
    </header>
    <!--/页面头部-->
    
    <!--底部导航-->
     <footer id="main_footer">
      <a href="index.asp" class="icon home" data-ignore="true">首页</a>
      <a href="login.asp" class="icon user" data-ignore="true">会员</a>
      <a href="productList.asp" class="icon basket" data-ignore="true">公司产品</a>
      <a href="search.asp" class="icon magnifier" data-ignore="true">搜索</a>
      <a href="about.asp?Id=10" class="icon phone" data-ignore="true">电话</a>
    </footer>
    <!--/底部导航-->
	
    <!--左侧导航-->
        <nav>
      <ul class="list">
        <li class="divider">网站导航</li>
        <li><a href="index.asp" class="icon home" data-ignore="true">网站首页</a></li>
        <li><a href="newslist.asp" class="icon tv" data-ignore="true">新闻资讯</a></li>
        <li><a href="productList.asp" class="icon basket" data-ignore="true">公司产品</a></li>
        <li><a href="downlist.asp" class="icon download" data-ignore="true">资料下载</a></li>
        <li><a href="login.asp" class="icon user" data-ignore="true">会员中心</a></li>
        <li><a href="about.asp" class="icon phone" data-ignore="true">关于我们</a></li>
        <li><a href="messagewrite.asp" class="icon message" data-ignore="true">在线留言</a></li>
        <li><a href="about.asp?Id=10" class="icon phone" data-ignore="true">联系我们</a></li>
      </ul>
    </nav>
    <!--/左侧导航-->
    
    <!--分类筛选-->
    <div id="categoryPanel" class="panel" data-footer="none">
      <header>
        <a onclick="$.ui.goBack();" class="backButton">返回</a>
        <h1>商品类别</h1>
        <a onclick="$.ui.toggleSideMenu()" class="menuButton"></a>
      </header>
     <!--大类-->
    <%=AngelProductFolder(0,"Angel_ProductSort",1)%>
    <!--/大类-->
    </div>
    <!--/分类筛选-->
      
  </div>
</div>
</body>
</html>
<%
Function AngelProductFolder(id,DataForm,Angel_languageid)
  Dim rs,sql,i,ChildCount,FolderType,FolderName,onMouseUp,ListType,AngelText
   AngelText=""
  Set rs=server.CreateObject("adodb.recordset")
  sql="Select * From "&DataForm&" where ViewFlag and Angel_languageid="&Angel_languageid&" And ParentID="&id&" order by Sequence desc,ID desc"
  rs.open sql,conn,1,1
    if id=0 and rs.recordcount=0 then
     AngelText=AngelText&"<ul class=""category-bar""><li>"&unicode("暂无产品分类")&"</li></ul>"
        exit function
    end if
  i=1
AngelText=AngelText&"<ul class=""category-bar"">"&VbCrlf
  while not rs.eof
    ChildCount=conn.execute("select count(*) from "&DataForm&" where ViewFlag And Angel_languageid="&Angel_languageid&" and ParentID="&rs("id"))(0)
    FolderName=rs("SortName")
    datafrom=DataForm

    If ishtml = 1 Then
	AutoLink = "productlist.asp?sortid="&rs("ID")&""
    Else
	AutoLink = "productlist.asp?sortid="&rs("ID")&""
    End If

If id=0 Then 
 if ChildCount>0 Then
AngelText=AngelText&"<li>"&VbCrlf
AngelText=AngelText&"<h2><a href="""&AutoLink&""" data-ignore=""true"">"&FolderName&"</a></h2>"&VbCrlf
AngelText=AngelText&"<p>"&VbCrlf
AngelText=AngelText&AngelProductFolder(rs("id"),DataForm,Angel_languageid)
AngelText=AngelText&"</p></li>"&VbCrlf
 Else 
AngelText=AngelText&"<a href="""&AutoLink&""" data-ignore=""true"">"&FolderName&"</a>"&VbCrlf
 End If 
 Else 
  if ChildCount>0 Then
AngelText=AngelText&"<li>"&VbCrlf
AngelText=AngelText&"<h2><a href="""&AutoLink&""" data-ignore=""true"">"&FolderName&"</a></h2>"&VbCrlf
AngelText=AngelText&"<p>"&VbCrlf
AngelText=AngelText&AngelProductFolder(rs("id"),DataForm,Angel_languageid)
AngelText=AngelText&"</p></li>"&VbCrlf
 Else 
AngelText=AngelText&"<a href="""&AutoLink&""" data-ignore=""true"">"&FolderName&"</a>"&VbCrlf
 End If 
 End If 
    rs.movenext
    i=i+1
    wend
AngelText=AngelText&"</ul>"&VbCrlf
    rs.close
    set rs=Nothing
AngelProductFolder=AngelText
end Function
%>
