<!--#include file="include/conn.asp"-->
<!--#include file="menu.asp"-->
<%
If TT="" Then 
	Call backurl("/")
End If
'本页有哪些小类
Dim bSmall
Set oRs = oConn.Execute("SELECT Id,MenuTitle,MenuId,MenuType,MenuCont FROM [LstMenuSmall] where MenuId ="&TT&" and MenuType>0 ORDER BY MenuIndex asc,Id DESC")
If Not oRs.EOF Then bSmall= oRs.GetRows
Set oRs = Nothing
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=UTF-8" />
<meta http-equiv="X-UA-Compatible" content="IE=EmulateIE7" />
<meta http-equiv="X-UA-Compatible" content="IE=7" />
<title><%=sWeb("WebTitle")%>_<%=sWeb("WebUrl")%></title>
<meta name="keywords" content="<%=sWeb("WebKeyWord")%>" />
<meta name="description" content="<%=sWeb("WebDescription")%>" />
<meta name="author" content="<%=sWeb("WebAuthor")%>" />
<meta name="copyright" content="<%=sWeb("WebCopyright")%>" />
<meta content="all" name="robots" />
<link rel="shortcut icon" href="favicon.ico" />
<link type="text/css" href="/css/global.css" rel="stylesheet" />
<link type="text/css" href="/css/style.css" rel="stylesheet" />
<script src="/JavaScript/jquery-1.8.3.js" type="text/javascript"></script>
<script src="/JavaScript/picmouse.js" type="text/javascript"></script>
<script src="/JavaScript/jquery.lazyload.js" type="text/javascript"></script>
<script src="/JavaScript/flexslider.js" type="text/javascript"></script>
<script language="JavaScript" type="text/javascript">
$(function(){ 
  $("img").lazyload({ 
       effect : "fadeIn" 
  }); 
}); 
</script>
</head>
<body>
<%Call Tophhh()%>
<%Call TopMenu()%>
<div id="maindiv">
<div id="Lstalone">
<div id="Lstleft">
	<div class="lstabout">
		<div class="stitle"><%=MENUNAME(TT)%></div>
		<ul><li><p><%=MENU2LST(TT)%></p></li></ul>
	</div>
	<div class="lstbanner"><%=BANNERSS(1)%></div>
	<div class="ldh440About">
		<div class="stitlex">推荐热门</div>
		<ul><%=Lstroad7hot(TT)%></ul>
	</div>
	<div class="lstbanner"><%=BANNERSS(2)%></div>
	<div class="lstbanner"><%=BANNERSS(3)%></div>
</div>

<div id="Lstright">
	<table width="100%" border="0" cellspacing="0" cellpadding="0">
	<tr>
	<td style="text-align:center;line-height:40px;" height="40">
	<!-- JiaThis Button BEGIN -->
	<div class="jiathis_style">
		<span class="jiathis_txt">分享到：</span>
		<a class="jiathis_button_qzone">QQ空间</a>
		<a class="jiathis_button_tsina">新浪微博</a>
		<a class="jiathis_button_tqq">腾讯微博</a>
		<a class="jiathis_button_renren">人人网</a>
		<a class="jiathis_button_kaixin001">开心网</a>
		<a class="jiathis_button_tsohu">搜狐微博</a>
		<a class="jiathis_button_cqq">QQ好友</a>
		<a class="jiathis_button_xiaoyou">朋友网</a>
		<a class="jiathis_button_youdao">有道书签</a>
		<a class="jiathis_button_qzone">QQ空间</a>
		<a class="jiathis_button_cqq">QQ好友</a>
		<a class="jiathis_button_tsina">新浪微博</a>
		<a href="http://www.jiathis.com/share" class="jiathis jiathis_txt jiathis_separator jtico jtico_jiathis" target="_blank">更多</a>
	</div>
	<script type="text/javascript" src="http://v3.jiathis.com/code/jia.js?uid=1364630886268741" charset="utf-8"></script>
	<!-- JiaThis Button END -->
	</td>
	</tr>
	</table>
	<div id="ld798lst"><%=BANNERSS(37)%></div>
<%
If SS="" Then 
'所有二级栏目的列表
'0单页 1新闻 2旅游 3景点 4酒店 5租车 6链接
%>
	<%If Isarray(bSmall) Then%>
	<%For i=0 To Ubound(bSmall,2)%>
			<div id="ld798lst">
				<div class="fl ld798lstr">&nbsp;&nbsp;<%=bSmall(1,i)%><div class="fr"><a href=/Lstalone.asp?TT=<%=TT%>&SS=<%=bSmall(0,i)%>>更多>></a>&nbsp;&nbsp;</div></div>
				<%If bSmall(3,i)=2 Or bSmall(3,i)=3 Or bSmall(3,i)=4 Or bSmall(3,i)=5 Then%>
				<div class="fl ld798lstbottom">
					<ul><%=LstRaodPic(bSmall(0,i))%></ul>
				</div>
				<%elseIf bSmall(3,i)=1 Then%>
				<div class="fl lstnews">
					<ul><%=LstNewsClass(bSmall(0,i))%></ul>
				</div>
				<%elseIf bSmall(3,i)=0 Then%>
				<div class="fl lstCont"><%=bSmall(4,i)%></div>
				<%End If%>
			</div>
	<%Next
	Else 
		Set vvv = oConn.Execute("SELECT top 1 Id FROM [LstMenuSmall] where MenuId ="&TT) 
		If vvv.bof And vvv.eof Then
			Call alert("该栏目下无分类，请后台添加！","/")
		Else 
			w.r "Lstalone.asp?TT="&TT&"&SS="&vvv(0)&""
		End If
		
	End If%>
<%Else'单独一个二级栏目的列表%>
	<%
	Dim ssType '二级栏目是什么类型
	ssType = oConn.execute("select top 1 MenuType from LstMenuSmall where Id="&SS)(0)
	Set v= oConn.Execute("SELECT top 1 Id,MenuCont,MenuType,MenuUrl FROM [LstMenuSmall] where Id ="&SS)
	%>
	<%If ssType=0 Then '单页%>
	<div id="ld798lst">
		<div class="fl ld798lstr">&nbsp;&nbsp;<%=MENUNAMESS(SS)%><div class="fr"><a href=/Lstalone.asp?TT=<%=TT%>><<返回</a>&nbsp;&nbsp;</div></div>
		<div class="fl ld798alone"><%=v(1)%></div>
	</div>
	<%ElseIf ssType=2 Or ssType=3 Then '旅游和景点%>
	
	<div id="ld798lst">
		<div class="fl ld798lstr">&nbsp;&nbsp;<%=MENUNAMESS(SS)%><div class="fr"><a href=/Lstalone.asp?TT=<%=TT%>><<返回</a>&nbsp;&nbsp;</div></div>
		<div id="lstSxuan">
			<div class="sXuanAll">
				<div class="sXuanL fl">目的地：</div>
				<div class="sXuanR fr">
					<%if Isarray(sR1) Then%>
					<%for i=0 to UBound(sR1)%>
					<a href="?TT=<%=TT%>&SS=<%=SS%>&a=sr1&sr1=<%=sR1(i)%>"><span <%If session("sr1")=sR1(i) Then%>class="hover"<%End If%>><%=sR1(i)%></span></a>
					<%Next 
					End if%>
				</div>
			</div>
			<div class="sXuanAll">
				<div class="sXuanL fl">主要景点：</div>
				<div class="sXuanR fr">
					<%if Isarray(sR2) Then%>
					<%for i=0 to UBound(sR2)%>
					<a href="?TT=<%=TT%>&SS=<%=SS%>&a=sr2&sr2=<%=sR2(i)%>"><span <%If session("sr2")=sR2(i) Then%>class="hover"<%End If%>><%=sR2(i)%></span></a>
					<%Next 
					End if%>
				</div>
			</div>
			<div class="sXuanAll">
				<div class="sXuanL fl">几日游：</div>
				<div class="sXuanR fr">
					<%if Isarray(sR3) Then%>
					<%for i=0 to UBound(sR3)%>
					<a href="?TT=<%=TT%>&SS=<%=SS%>&a=sr3&sr3=<%=sR3(i)%>"><span <%If session("sr3")=sR3(i) Then%>class="hover"<%End If%>><%=sR3(i)%></span></a>
					<%Next 
					End if%>
				</div>
			</div>
			<div class="sXuanAll">
				<div class="sXuanL fl">出游方式：</div>
				<div class="sXuanR fr">
					<%if Isarray(sR4) Then%>
					<%for i=0 to UBound(sR4)%>
					<a href="?TT=<%=TT%>&SS=<%=SS%>&a=sr4&sr4=<%=sR4(i)%>"><span <%If session("sr4")=sR4(i) Then%>class="hover"<%End If%>><%=sR4(i)%></span></a>
					<%Next 
					End if%>
				</div>
			</div>
			<div class="sXuanAll">
				<div class="sXuanL fl">价格范围：</div>
				<div class="sXuanR fr">
					<%if Isarray(sR5) Then%>
					<%for i=0 to UBound(sR5)%>
					<a href="?TT=<%=TT%>&SS=<%=SS%>&a=sr5&sr5=<%=sR5(i)%>"><span <%If session("sr5")=sR5(i) Then%>class="hover"<%End If%>><%=sR5(i)%></span></a>
					<%Next 
					End if%>
				</div>
			</div>
			<div class="sXuanAll">
				<div class="sXuanL fl">已筛选：</div>
				<div class="sXuanR fr">
					<%If Len(session("sr1"))>0 Then%><a href="?TT=<%=TT%>&SS=<%=SS%>&a=sr1del"><span class="hover"><%=session("sr1")%> × </span></a><%End If%>
					<%If Len(session("sr2"))>0 Then%><a href="?TT=<%=TT%>&SS=<%=SS%>&a=sr2del"><span class="hover"><%=session("sr2")%> × </span></a><%End If%>
					<%If Len(session("sr3"))>0 Then%><a href="?TT=<%=TT%>&SS=<%=SS%>&a=sr3del"><span class="hover"><%=session("sr3")%> × </span></a><%End If%>
					<%If Len(session("sr4"))>0 Then%><a href="?TT=<%=TT%>&SS=<%=SS%>&a=sr4del"><span class="hover"><%=session("sr4")%> × </span></a><%End If%>
					<%If Len(session("sr5"))>0 Then%><a href="?TT=<%=TT%>&SS=<%=SS%>&a=sr5del"><span class="hover"><%=session("sr5")%> × </span></a><%End If%>
					<a href="?TT=<%=TT%>&SS=<%=SS%>&a=srAlldel"><span>重新筛选</span></a>
				</div>
			</div>
		</div>
		<div class="fl ld798lstall top5">
			<ul>
				<%
				sSql="select Id,PTitle,PBID,PSID,Phymoney,Pscmoney,PSmallPic from [LstNewsInfo] where ID>0 "

				If Len(session("sr1"))>0 Then sSql = sSql & " and InStr(RMDD,'"&session("sr1")&"')>0 "
				If Len(session("sr2"))>0 Then sSql = sSql & " and InStr(RJING,'"&session("sr2")&"')>0 "
				If Len(session("sr3"))>0 Then sSql = sSql & " and InStr(RDAY,'"&session("sr3")&"')>0 "
				If Len(session("sr4"))>0 Then sSql = sSql & " and InStr(RFSHI,'"&session("sr4")&"')>0 "
				If Len(session("sr5"))>0 Then sSql = sSql & " and InStr(RMONEY,'"&session("sr5")&"')>0 "

				sSql = sSql & " and PSId="&SS&" order by Pindex desc,Id desc"
				Set oRs = Server.CreateObject("ADODB.Recordset")
				oRs.Open sSql, oconn, 1, 1
				If oRs.eof and oRs.bof then
				Else
				Call PageNum(nm2)
				for i=1 to mypage%>
				<%

				If sLoad=1 Then
					If ishtml=1 Then
					Response.write "<li class=""animate"">"
					Response.write "	<div class=""fl img""><a href='/Html/Info/"&oRs(2)&"_"&oRs(3)&"/"&oRs(0)&".html'><img src=""images/loading.gif"" class=""lazy"" data-original='"&oRs(6)&"' class=""img""></a></div>"
					Response.write "	<div class=""fl end"">"
					Response.write "		<div class=""fr htxt"">"&oRs(1)&"..</div>"
					Response.write "		<div class=""fl money"">"&IndexMoneyInfo(oRs(4))&"<div class=""fr sheng"">"&IndexMoneysheng(oRs(5)-oRs(4))&"</div></div>"
					Response.write "	</div>"
					Response.write "</li>"
					Else
					Response.write "<li class=""animate"">"
					Response.write "	<div class=""fl img""><a href='/LstInfo.asp?TT="&oRs(2)&"&SS="&oRs(3)&"&Id="&oRs(0)&"'><img src=""images/loading.gif"" class=""lazy"" data-original='"&oRs(6)&"' class=""img""></a></div>"
					Response.write "	<div class=""fl end"">"
					Response.write "		<div class=""fr htxt"">"&oRs(1)&"..</div>"
					Response.write "		<div class=""fl money"">"&IndexMoneyInfo(oRs(4))&"<div class=""fr sheng"">"&IndexMoneysheng(oRs(5)-oRs(4))&"</div></div>"
					Response.write "	</div>"
					Response.write "</li>"
					End If
				Else 
					If ishtml=1 Then
					Response.write "<li class=""animate"">"
					Response.write "	<div class=""fl img""><a href='/Html/Info/"&oRs(2)&"_"&oRs(3)&"/"&oRs(0)&".html'><img class=""lazy"" src='"&oRs(6)&"' class=""img""></a></div>"
					Response.write "	<div class=""fl end"">"
					Response.write "		<div class=""fr htxt"">"&oRs(1)&"..</div>"
					Response.write "		<div class=""fl money"">"&IndexMoneyInfo(oRs(4))&"<div class=""fr sheng"">"&IndexMoneysheng(oRs(5)-oRs(4))&"</div></div>"
					Response.write "	</div>"
					Response.write "</li>"
					Else
					Response.write "<li class=""animate"">"
					Response.write "	<div class=""fl img""><a href='/LstInfo.asp?TT="&oRs(2)&"&SS="&oRs(3)&"&Id="&oRs(0)&"'><img class=""lazy"" src='"&oRs(6)&"' class=""img""></a></div>"
					Response.write "	<div class=""fl end"">"
					Response.write "		<div class=""fr htxt"">"&oRs(1)&"..</div>"
					Response.write "		<div class=""fl money"">"&IndexMoneyInfo(oRs(4))&"<div class=""fr sheng"">"&IndexMoneysheng(oRs(5)-oRs(4))&"</div></div>"
					Response.write "	</div>"
					Response.write "</li>"
					End If
				End If
				%>
				<%
				oRs.MoveNext
				Next
				End If
				%>
				</ul>
			</div>
		</div>
		<%If ishtml=1 Then%>
		<table border="0" width="100%" cellspacing="3" cellpadding="3">
			<tr>
				<td align="center" height="30"><%Call ShowHtml("/Html/category/"&TT&"_"&SS&"",nm2)%></td>
			</tr>
		</table>
		<%Else%>
		<table border="0" width="100%" cellspacing="3" cellpadding="3">
			<tr>
				<td align="center" height="30"><%Call PageUrl("?TT="&TT&"&SS="&SS&"",nm2)%></td>
			</tr>
		</table>
		<%End If%>
	</div>
	<%ElseIf ssType=1 Then '新闻%>
	<div id="ld798lst">
		<div class="fl ld798lstr">&nbsp;&nbsp;<%=MENUNAMESS(SS)%></div>
		<div class="lstnews">
			<ul>
				<%
				sSql="select Id,PTitle,PBID,PSID,PAddtime from [LstNewsInfo] where PSId="&SS&" order by Pindex desc,Id desc"
				Set oRs = Server.CreateObject("ADODB.Recordset")
				oRs.Open sSql, oconn, 1, 1
				If oRs.eof and oRs.bof then
				Else
				Call PageNum(nm1)
				for i=1 to mypage%>
				<%
				If ishtml=1 Then
					If i Mod 2=0 Then 
					Response.write "<li class='hover'>"
					Else
					Response.write "<li>"
					End If
				Response.write "	<div class=""fl"">·<a href='/Html/Info/"&oRs(2)&"_"&oRs(3)&"/"&oRs(0)&".html'>"&oRs(1)&"</a></div>"
				Response.write "	<div class=""fr"">"&FormatTime(oRs("PAddtime"),4)&"&nbsp;&nbsp;</div>"
				Response.write "</li>"
				Else
					If i Mod 2=0 Then 
					Response.write "<li class='hover'>"
					Else
					Response.write "<li>"
					End If
				Response.write "	<div class=""fl"">·<a href='/LstInfo.asp?TT="&oRs(2)&"&SS="&oRs(3)&"&Id="&oRs(0)&"'>"&oRs(1)&"</a></div>"
				Response.write "	<div class=""fr"">"&FormatTime(oRs("PAddtime"),4)&"&nbsp;&nbsp;</div>"
				Response.write "</li>"
				End If
				%>
				<%
				oRs.MoveNext
				Next
				End If
				%>
			</ul>
		</div>
		<%If ishtml=1 Then%>
		<table border="0" width="100%" cellspacing="3" cellpadding="3">
			<tr>
				<td align="center" height="30"><%Call ShowHtml("/Html/category/"&TT&"_"&SS&"",nm1)%></td>
			</tr>
		</table>
		<%Else%>
		<table border="0" width="100%" cellspacing="3" cellpadding="3">
			<tr>
				<td align="center" height="30"><%Call PageUrl("?TT="&TT&"&SS="&SS&"",nm1)%></td>
			</tr>
		</table>
		<%End If%>
	</div>
	<%ElseIf ssType=4 Then '酒店列表%>
	<div id="ld798lst">
		<div class="fl ld798lstr">&nbsp;&nbsp;<%=MENUNAMESS(SS)%></div>
		<div class="fl ld798lstall top5">
			<ul>
				<%
				sSql="select Id,PTitle,PBID,PSID,Phymoney,Pshangye,PSmallPic from [LstNewsInfo] where PSId="&SS&" order by Pindex desc,Id desc"
				Set oRs = Server.CreateObject("ADODB.Recordset")
				oRs.Open sSql, oconn, 1, 1
				If oRs.eof and oRs.bof then
				Else
				Call PageNum(nm2)
				for i=1 to mypage%>
				<%

				If sLoad=1 Then

					If ishtml=1 Then
					Response.write "<li class=""animate"">"
					Response.write "	<div class=""fl img""><a href='/Html/Info/"&oRs(2)&"_"&oRs(3)&"/"&oRs(0)&".html'><img src=""images/loading.gif"" class=""lazy"" data-original='"&oRs(6)&"' class=""img""></a></div>"
					Response.write "	<div class=""fl end"">"
					Response.write "		<div class=""fr htxt"">"&oRs(1)&"..</div>"
					Response.write "		<div class=""fl money"">"&IndexMoneyInfo(oRs(4))&"<div class=""fr shang"">"&oRs(5)&"</div></div>"
					Response.write "	</div>"
					Response.write "</li>"
					Else
					Response.write "<li class=""animate"">"
					Response.write "	<div class=""fl img""><a href='/LstInfo.asp?TT="&oRs(2)&"&SS="&oRs(3)&"&Id="&oRs(0)&"'><img src=""images/loading.gif"" class=""lazy"" data-original='"&oRs(6)&"' class=""img""></a></div>"
					Response.write "	<div class=""fl end"">"
					Response.write "		<div class=""fr htxt"">"&oRs(1)&"..</div>"
					Response.write "		<div class=""fl money"">"&IndexMoneyInfo(oRs(4))&"<div class=""fr shang"">"&oRs(5)&"</div></div>"
					Response.write "	</div>"
					Response.write "</li>"
					End If

				Else 
				
					If ishtml=1 Then
					Response.write "<li class=""animate"">"
					Response.write "	<div class=""fl img""><a href='/Html/Info/"&oRs(2)&"_"&oRs(3)&"/"&oRs(0)&".html'><img class=""lazy"" src='"&oRs(6)&"' class=""img""></a></div>"
					Response.write "	<div class=""fl end"">"
					Response.write "		<div class=""fr htxt"">"&oRs(1)&"..</div>"
					Response.write "		<div class=""fl money"">"&IndexMoneyInfo(oRs(4))&"<div class=""fr shang"">"&oRs(5)&"</div></div>"
					Response.write "	</div>"
					Response.write "</li>"
					Else
					Response.write "<li class=""animate"">"
					Response.write "	<div class=""fl img""><a href='/LstInfo.asp?TT="&oRs(2)&"&SS="&oRs(3)&"&Id="&oRs(0)&"'><img class=""lazy"" src='"&oRs(6)&"' class=""img""></a></div>"
					Response.write "	<div class=""fl end"">"
					Response.write "		<div class=""fr htxt"">"&oRs(1)&"..</div>"
					Response.write "		<div class=""fl money"">"&IndexMoneyInfo(oRs(4))&"<div class=""fr shang"">"&oRs(5)&"</div></div>"
					Response.write "	</div>"
					Response.write "</li>"
					End If

				End If
				%>
				<%
				oRs.MoveNext
				Next
				End If
				%>
				</ul>
			</div>
		<%If ishtml=1 Then%>
		<table border="0" width="100%" cellspacing="3" cellpadding="3">
			<tr>
				<td align="center" height="30"><%Call ShowHtml("/Html/category/"&TT&"_"&SS&"",nm1)%></td>
			</tr>
		</table>
		<%Else%>
		<table border="0" width="100%" cellspacing="3" cellpadding="3">
			<tr>
				<td align="center" height="30"><%Call PageUrl("?TT="&TT&"&SS="&SS&"",nm1)%></td>
			</tr>
		</table>
		<%End If%>
	</div>
	<%ElseIf ssType=5 Then '车辆租赁%>
	<div id="ld798lst">
		<div class="fl ld798lstr">&nbsp;&nbsp;<%=MENUNAMESS(SS)%></div>
		<div class="fl ld798lstall top5">
			<ul>
				<%
				sSql="select Id,PTitle,PBID,PSID,Phymoney,CarPP,PSmallPic from [LstNewsInfo] where PSId="&SS&" order by Pindex desc,Id desc"
				Set oRs = Server.CreateObject("ADODB.Recordset")
				oRs.Open sSql, oconn, 1, 1
				If oRs.eof and oRs.bof then
				Else
				Call PageNum(nm2)
				for i=1 to mypage%>
				<%
				If sLoad=1 Then

					If ishtml=1 Then
					Response.write "<li class=""animate"">"
					Response.write "	<div class=""fl img""><a href='/Html/Info/"&oRs(2)&"_"&oRs(3)&"/"&oRs(0)&".html'><img src=""images/loading.gif"" class=""lazy"" data-original='"&oRs(6)&"' class=""img""></a></div>"
					Response.write "	<div class=""fl end"">"
					Response.write "		<div class=""fr htxt"">"&oRs(1)&"..</div>"
					Response.write "		<div class=""fl money"">"&IndexMoneyInfo(oRs(4))&"<div class=""fr che"">"&oRs(5)&"</div></div>"
					Response.write "	</div>"
					Response.write "</li>"
					Else
					Response.write "<li class=""animate"">"
					Response.write "	<div class=""fl img""><a href='/LstInfo.asp?TT="&oRs(2)&"&SS="&oRs(3)&"&Id="&oRs(0)&"'><img src=""images/loading.gif"" class=""lazy"" data-original='"&oRs(6)&"' class=""img""></a></div>"
					Response.write "	<div class=""fl end"">"
					Response.write "		<div class=""fr htxt"">"&oRs(1)&"..</div>"
					Response.write "		<div class=""fl money"">"&IndexMoneyInfo(oRs(4))&"<div class=""fr che"">"&oRs(5)&"</div></div>"
					Response.write "	</div>"
					Response.write "</li>"
					End If

				Else 
					If ishtml=1 Then
					Response.write "<li class=""animate"">"
					Response.write "	<div class=""fl img""><a href='/Html/Info/"&oRs(2)&"_"&oRs(3)&"/"&oRs(0)&".html'><img class=""lazy"" src='"&oRs(6)&"' class=""img""></a></div>"
					Response.write "	<div class=""fl end"">"
					Response.write "		<div class=""fr htxt"">"&oRs(1)&"..</div>"
					Response.write "		<div class=""fl money"">"&IndexMoneyInfo(oRs(4))&"<div class=""fr che"">"&oRs(5)&"</div></div>"
					Response.write "	</div>"
					Response.write "</li>"
					Else
					Response.write "<li class=""animate"">"
					Response.write "	<div class=""fl img""><a href='/LstInfo.asp?TT="&oRs(2)&"&SS="&oRs(3)&"&Id="&oRs(0)&"'><img class=""lazy"" src='"&oRs(6)&"' class=""img""></a></div>"
					Response.write "	<div class=""fl end"">"
					Response.write "		<div class=""fr htxt"">"&oRs(1)&"..</div>"
					Response.write "		<div class=""fl money"">"&IndexMoneyInfo(oRs(4))&"<div class=""fr che"">"&oRs(5)&"</div></div>"
					Response.write "	</div>"
					Response.write "</li>"
					End If

				End If
				%>
				<%
				oRs.MoveNext
				Next
				End If
				%>
				</ul>
			</div>
		<%If ishtml=1 Then%>
		<table border="0" width="100%" cellspacing="3" cellpadding="3">
			<tr>
				<td align="center" height="30"><%Call ShowHtml("/Html/category/"&TT&"_"&SS&"",nm1)%></td>
			</tr>
		</table>
		<%Else%>
		<table border="0" width="100%" cellspacing="3" cellpadding="3">
			<tr>
				<td align="center" height="30"><%Call PageUrl("?TT="&TT&"&SS="&SS&"",nm1)%></td>
			</tr>
		</table>
		<%End If%>
	</div>
	<%ElseIf v(2)=6 Then%>
		<%Call backurl(""&v("MenuUrl")&"")%>
	<%End If%>
<%End If%>
</div>
</div>
</div>
<%Call ShowEnd()%>
</body>
</html>
<%
If a="sr1" Then
	session("sr1")= o.t("sr1")
	w.r "Lstalone.asp?TT="&TT&"&SS="&SS&""
End If
If a="sr2" Then
	session("sr2")= o.t("sr2")
	w.r "Lstalone.asp?TT="&TT&"&SS="&SS&""
End If
If a="sr3" Then
	session("sr3")= o.t("sr3")
	w.r "Lstalone.asp?TT="&TT&"&SS="&SS&""
End If
If a="sr4" Then
	session("sr4")= o.t("sr4")
	w.r "Lstalone.asp?TT="&TT&"&SS="&SS&""
End If
If a="sr5" Then
	session("sr5")= o.t("sr5")
	w.r "Lstalone.asp?TT="&TT&"&SS="&SS&""
End If
''''''
If a="sr1del" Then
	session("sr1")= ""
	w.r "Lstalone.asp?TT="&TT&"&SS="&SS&""
End If
If a="sr2del" Then
	session("sr2")= ""
	w.r "Lstalone.asp?TT="&TT&"&SS="&SS&""
End If
If a="sr3del" Then
	session("sr3")= ""
	w.r "Lstalone.asp?TT="&TT&"&SS="&SS&""
End If
If a="sr4del" Then
	session("sr4")= ""
	w.r "Lstalone.asp?TT="&TT&"&SS="&SS&""
End If
If a="sr5del" Then
	session("sr5")= ""
	w.r "Lstalone.asp?TT="&TT&"&SS="&SS&""
End If
If a="srAlldel" Then
	session("sr1")= ""
	session("sr2")= ""
	session("sr3")= ""
	session("sr4")= ""
	session("sr5")= ""
	w.r "Lstalone.asp?TT="&TT&"&SS="&SS&""
End If
%>