<!--#include file="include/conn.asp"-->
<!--#include file="menu.asp"-->
<%
If Id="" Then
	Call alert("参数错误,返回首页.","/")
End If

'如果没有TT和SS参数
If TT="" Or SS="" Then 
	Set TTSS= oConn.Execute("SELECT top 1 PBId,PSId,(select top 1 MenuType from [LstMenuSmall] where Id=LstNewsInfo.PSId) FROM [LstNewsInfo] where Id ="&Id)
	If TTSS.bof And TTSS.eof Then
		w.r "/"
	Else 
		TT = TTSS(0)
		SS = TTSS(1)
		MYLX = TTSS(2)
	End If
Else
	Set TTSS2= oConn.Execute("SELECT top 1 MenuType FROM [LstMenuSmall] where Id ="&SS)
	If TTSS2.bof And TTSS2.eof Then
		w.r "/"
	Else 
		MYLX = TTSS2(0)
	End If
End If

'本页
Dim vroad
Set v= oConn.Execute("SELECT top 1 * FROM [LstNewsInfo] where Id ="&Id)
If v.bof And v.eof Then
	w.r "/"
End If
oConn.Execute("UPDATE [LstNewsInfo] SET Phits = Phits +1 where Id ="&Id)
session("orderid") = Id
'0单页 1新闻 2旅游 3景点 4酒店 5租车 6链接
session("ordertt") = 4 
%>
<!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 name="viewport" content="width=device-width, initial-scale=1.0, minimum-scale=1.0, maximum-scale=1.0,user-scalable=no">
<meta http-equiv="Cache-Control" content="max-age=0">
<meta name="apple-touch-fullscreen" content="yes">
<meta name="apple-mobile-web-app-capable" content="yes">
<meta name="apple-mobile-web-app-status-bar-style" content="black">
<title><%=v("PTitle")%>_<%=sWeb("WebTitle")%></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")%>" />
<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.2.js"></script>
</head>
<body>
<%Call Topall()%>
<div id="Lstalone">
	<div class="lsthome">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;您的位置 >> <%=MENUNAMETT(TT)%> >> <%=MENUNAMESS(SS)%></div>
</div>
	<div id="mobmenulist" class="mobmenulist">
		<%Call Showleft(TT)%>
	</div>
<div id="Lstmob">
	<div class="lstinfos">
		<ul>
			<li class="stitlex f20 fyahei"><%=v("PTitle")%></li>
			<li class="stitle"><img width="100%" src="<%=v("PSmallPic")%>"></li>
			<li>门市价：<del>￥<%=v("Pscmoney")%>.00</del></li>
			<li>会员价：<span class="fmoney f20">￥<%=v("Phymoney")%>.00</span><span class="f12 fhui">元起</span></li>
			<li>地址：<%=v("PJaddress")%></li>
			<li>商业圈：<%=v("Pshangye")%></li>
			<li>预订电话：<%=v("PJtel")%></li>



<table border="1" width="100%" id="table2" cellspacing="0" cellpadding="0" style="border-collapse: collapse" bordercolor="#E1E1E1">
			<tr>
				<td height="30" align="center" bgcolor="#EEEEEE">名称</td>
				<td height="30" align="center" bgcolor="#EEEEEE">早餐</td>
				<td height="30" align="center" bgcolor="#EEEEEE">宽带</td>
				<td height="30" align="center" bgcolor="#EEEEEE">日均价</td>
				<td height="30" align="center" bgcolor="#EEEEEE">预订</td>
			</tr>
		<%
		Dim RoomId,RoomRs,RoomSql
		'RoomId = v("Id")
		RoomSql= "Select Id,roomTitle,roomZaocan,roomKuandai,roomMoney FROM [LstRoom] where NewsId= "&Id&" order by id desc"
		Set RoomRs= Server.CreateObject("ADODB.Recordset")
		RoomRs.open RoomSql,oconn,1,1
		if RoomRs.eof and RoomRs.bof Then
		Else
		do while not RoomRs.eof
		%>
			<tr>
				<td height="35" align="center"><%=RoomRs("roomTitle")%></td>
				<td height="35" align="center"><%=RoomRs("roomZaocan")%></td>
				<td height="35" align="center"><%=RoomRs("roomKuandai")%></td>
				<td height="35" align="center">￥<b class="fmoney f16"><%=RoomRs("roomMoney")%></b> 元</td>
				<td height="35" width="100" align="center"><input class="sub2mob" type="button" onclick="{location.href='UserOrderRoom.asp?OrderFangId=<%=RoomRs("Id")%>';}" name="delete" value="立即预订"></td>
			</tr>
		<%
		RoomRs.movenext
		loop
		End if
		RoomRs.close
		set RoomRs=Nothing
		%>

		</table>


		</ul>
	</div>
</div>
<%Call ShowFoot()%>
</body>
</html>