You cannot select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.

1238 lines
56 KiB
Plaintext

<!--#include virtual="/include/site-seting.asp" -->
<!--#include virtual="/common/Function.asp" -->
<!--#include virtual="/common/function-seo.asp"-->
<!--#include virtual="/include/tour-headcode.asp" -->
<!--#include virtual="/common/Function-tour.asp" -->
<!--#include virtual="/common/function-customer.asp" -->
<%
'区分是长线还是一地
tour_url_type "single", temp_CLI_PackageClass '长线用tour 一地用single
If Replace(CLI_CityName, " ", "") <> Replace(Request("city"), "-", "") Then
GotoErrPage
End If
If changeParaStr(SafeRequest("city", 0)) = "hongkong" Then
Response.Redirect(Replace(RewriteUrl, "/hongkongtour/", "/hong-kongtour/"))
End If
set rstemp = server.createobject("adodb.recordset")
set rs = server.createobject("adodb.recordset")
checkflag = false
set ttt = Server.CreateObject("adodb.recordset")
sql="SELECT CLD_SN FROM dbo.CustomerLineDetail WHERE (CLD_CLI_SN = "&CLI_SN&") AND (CLD_ServiceType = 'A')"
ttt.open sql,conn,3,1,1
if not ttt.eof then
hotelstr = "+ well selected hotel"
hotelflag = true
else
hotelstr = ""
hotelflag = false
end if
ttt.close
set ttt = nothing
'sql="SELECT top 1 CLP_TwoToFiveAdultPrice FROM CustomerLinePrice where CLP_CLI_SN=" & CLI_SN & " order by CLP_TwoToFiveAdultPrice "
'CLI_Price=conn.execute(sql)(0)
'查找线路地图
sql="select top 1 '/image'+PII_Location+dbo.GetNetImageFileName(2,ltrim(rtrim(PII_FileName))) as " & _
"PII_url from PictureInfo where " & _
"PII_ServiceType2=29002 and PII_ServiceType='T' and PII_ResourceSN=" & CLI_SN
rstemp.open sql,conn,3,1,1
if not rstemp.eof then
pic_url=rstemp("PII_url")
end if
rstemp.close
if pic_url<>empty then
else
sql="SELECT isnull(CLD_ServiceCity,0) as CLD_ServiceCity FROM CustomerLineDetail " & _
"WHERE (CLD_CLI_SN = " & CLI_SN & ") AND (CLD_DayNo = 1) AND (CLD_ServiceType = 'A')"
rstemp.open sql,conn,3,1,1
if not rstemp.eof then
thecity=rstemp("CLD_ServiceCity")
else
thecity=0
end if
rstemp.close
sql="select top 1 '/image'+PII_Location+dbo.GetNetImageFileName(2,ltrim(rtrim(PII_FileName))) as " & _
"PII_url from PictureInfo where " & _
"PII_ServiceType2=29002 and PII_ServiceType='T' and PII_CII_SN=" & thecity
rstemp.open sql,conn,3,1,1
if not rstemp.eof then
pic_url=rstemp("PII_url")
end if
rstemp.close
end if
set rs1=server.createobject("adodb.recordset")
set rs2=server.createobject("adodb.recordset")
set rs3=server.createobject("adodb.recordset")
set rs4=server.createobject("adodb.recordset")
'sql="select * from V_Web_TourInfo where CLI2_LGC=" & site_lgc & " and CLI_SN=" & CLI_SN
sql= " " &_
" Select " &_
" dbo.CustomerLineInfo2.CLI2_Name, dbo.CustomerLineInfo.CLI_Days, " &_
" dbo.CustomerLineInfo.CLI_SN, dbo.CustomerLineInfo2.CLI2_Introduction, " &_
" dbo.CustomerLineInfo.CLI_NO, dbo.CustomerLineInfo.CLI_LineType, " &_
" dbo.CustomerLineInfo2.CLI2_LGC, dbo.CustomerLineInfo2.CLI2_LineDescribe, " &_
" dbo.CustomerLineInfo2.CLI2_EntranceCity, " &_
" dbo.CustomerLineInfo2.CLI2_DepartureCity, dbo.CustomerLineInfo2.CLI2_PassCity, " &_
" dbo.CustomerLineInfo.CLI_PackageClass, dbo.CustomerLineInfo.CLI_ListImage, " &_
" dbo.CustomerLineInfo2.CLI2_BriDescribe, dbo.CustomerLineInfo2.CLI2_PriceInclude, " &_
" dbo.CustomerLineInfo.CLI_Addon, dbo.CustomerLineInfo.CLI_Extention, " &_
" dbo.CustomerLineInfo.CLI_CityName, dbo.CustomerLineInfo.CLI_OrderNum, " &_
" dbo.CustomerLineInfo.CLI_IncTour, dbo.CustomerLineInfo.CLI_LineClass, " &_
" dbo.CustomerLineInfo.CLI_PrimeGroup, dbo.CustomerLineInfo.CLI_State, " &_
" dbo.CustomerLineInfo2.CLI2_DepartureDate, dbo.CustomerLineInfo.CLI_SX, " &_
" dbo.CustomerLineInfo.CLI_Grade, dbo.CustomerLineInfo2.CLI2_Describe, dbo.CustomerLineInfo2.CLI2_Memo, dbo.GetCityName(CLI_CII_SN, 1) AS CityName " &_
" FROM dbo.CustomerLineInfo2 INNER JOIN " &_
" dbo.CustomerLineInfo ON " &_
" dbo.CustomerLineInfo2.CLI2_CLI_SN = dbo.CustomerLineInfo.CLI_SN " &_
" WHERE (dbo.CustomerLineInfo.DeleteFlag <> 1) and CLI2_LGC=" & site_lgc & " and CLI_SN=" & CLI_SN
'response.write sql
'response.End()
cityname = ""
rs.open sql,conn,3,1,1
if not rs.eof then
cityname = CLI_CityName
If cityname = "" Or IsEmpty(cityname) Or IsNull(cityname) Then
cityname = rs("CityName")
End If
CLI_Days = rs("CLI_Days")
CLI_NO=rs("CLI_NO")
CLI2_PassCity = rs("CLI2_PassCity")
sql="select WPI_Location+WPI_Name as WPI_url from WebPageInfo where" &_
" WPI_Web='" & WebCode & "' and WPI_ServiceType='T' and WPI_ResourceName='" & _
CLI_NO & "'"
rstemp.open sql,conn,3,1,1
if not rstemp.eof then
file_url=rstemp("WPI_url")
end if
rstemp.close
'查询豪华等线路的酒店及价格
'查询豪华等线路的酒店及价格
Sql = "SELECT DISTINCT CustomerLineInfo.CLI_NO, CLI_SN,"
Sql = Sql & " VEndorInfo2.VEI2_CompanyN, VEndorInfo2.VEI2_Http,"
Sql = Sql & " CItyInfo2.CII2_LGC, CustomerLineDetail.CLD_DayNo,"
Sql = Sql & " CItyInfo2.CII2_Name, CustomerLinePrice.CLP_OneAdultPrice,"
Sql = Sql & " CLI_PackageClass, CustomerLinePrice.CLP_TwoToFiveAdultPrice,"
Sql = Sql & " CustomerLinePrice.CLP_SixToNineAdultPrice,"
Sql = Sql & " CustomerLinePrice.CLP_OverTenAdultPrice,"
Sql = Sql & " CustomerLinePrice.CLP_OneRoomDiffPrice"
Sql = Sql & " FROM CustomerLineInfo INNER JOIN CustomerLineDetail"
Sql = Sql & " ON CustomerLineInfo.CLI_SN = CustomerLineDetail.CLD_CLI_SN"
Sql = Sql & " INNER JOIN CItyInfo2"
Sql = Sql & " ON CustomerLineDetail.CLD_ServiceCity = CItyInfo2.CII2_CII_SN"
Sql = Sql & " INNER JOIN VEndorInfo2"
Sql = Sql & " ON CustomerLineDetail.CLD_ServiceSN = VEndorInfo2.VEI2_VEI_SN"
Sql = Sql & " INNER JOIN CustomerLinePrice"
Sql = Sql & " ON CustomerLineInfo.CLI_SN = CustomerLinePrice.CLP_CLI_SN"
Sql = Sql & " WHERE (CustomerLineInfo.CLI_NO = '" & CLI_NO & "')"
Sql = Sql & " AND (VEndorInfo2.VEI2_LGC = " & site_lgc & " )"
Sql = Sql & " AND (CustomerLineDetail.CLD_ServiceType = 'A')"
Sql = Sql & " AND (CItyInfo2.CII2_LGC = " & site_lgc & " )"
Sql = Sql & " AND (CustomerLineDetail.CLD_ServiceSN2 <> 18)"
Sql = Sql & " AND (CustomerLineDetail.CLD_ServiceSN <> 1491)"
Sql = Sql & " AND (CustomerLineDetail.CLD_ServiceSN <> 1743)"
sql = Sql & " AND (CustomerLinePrice.CLP_Area=2) and (CLI_State = 1005003 or CLI_State = 1005004)"
Sql2 = "SELECT DISTINCT CustomerLineInfo.CLI_NO, CLI_SN,"
Sql2 = Sql2 & " CustomerLinePrice.CLP_OneAdultPrice,"
Sql2 = Sql2 & " CLI_PackageClass, CustomerLinePrice.CLP_TwoToFiveAdultPrice,"
Sql2 = Sql2 & " CustomerLinePrice.CLP_SixToNineAdultPrice,"
Sql2 = Sql2 & " CustomerLinePrice.CLP_OverTenAdultPrice,"
Sql2 = Sql2 & " CustomerLinePrice.CLP_OneRoomDiffPrice"
Sql2 = Sql2 & " FROM CustomerLineInfo INNER JOIN CustomerLinePrice"
Sql2 = Sql2 & " ON CustomerLineInfo.CLI_SN = CustomerLinePrice.CLP_CLI_SN"
Sql2 = Sql2 & " WHERE (CustomerLineInfo.CLI_NO = '" & CLI_NO & "')"
Sql2 = Sql2 & " AND (CustomerLinePrice.CLP_Area=2) and (CLI_State = 1005003 or CLI_State = 1005004)"
PriceType=" AND (dbo.CustomerLinePrice.CLP_PriceType = 2)"
sql1=Sql & " AND (CustomerLineInfo.CLI_Grade = 7002)" & PriceType
Sql1 = Sql1 & " ORDER BY CustomerLineDetail.CLD_DayNo"
rs1.open Sql1,conn,3,1,1
if rs1.eof then
sql1=Sql2 & " AND (CustomerLineInfo.CLI_Grade = 7002)" & PriceType
rs1.close
rs1.open Sql1,conn,3,1,1
nohotel1=1
end if
'查询标准等线路的酒店及价格
sql1=Sql & " AND (CustomerLineInfo.CLI_Grade = 7001)" & PriceType
Sql1 = Sql1 & " ORDER BY CustomerLineDetail.CLD_DayNo"
rs2.open Sql1,conn,3,1,1
if rs2.eof then
sql1=Sql2 & " AND (CustomerLineInfo.CLI_Grade = 7001)" & PriceType
rs2.close
rs2.open Sql1,conn,3,1,1
nohotel2=1
end if
'查询经济等线路的酒店及价格
sql1=Sql & " AND (CustomerLineInfo.CLI_Grade = 7003)" & PriceType
Sql1 = Sql1 & " ORDER BY CustomerLineDetail.CLD_DayNo"
rs3.open Sql1,conn,3,1,1
if rs3.eof then
sql1=Sql2 & " AND (CustomerLineInfo.CLI_Grade = 7003)" & PriceType
rs3.close
rs3.open Sql1,conn,3,1,1
nohotel3=1
end if
'query all total reviews
sql="SELECT count(0) as Num " & _
" FROM Eva_CustomerMail LEFT OUTER JOIN" & _
" ConfirmLineInfo ON Eva_CustomerMail.ECM_GRI_SN = ConfirmLineInfo.COLI_GRI_SN" & _
" where ECM_Public=1 and ECM_Dealed=1 and ECM_PubContent is not null and ECM_CLI_NO='" & CLI_NO & "'" &_
" and (dbo.ConfirmLineInfo.COLI_WebCode = '"&Site_Code&"') "
ReviewNum = conn.Execute(sql)(0)
i2=rs1.recordcount
if rs2.recordcount>i2 then
i2=rs2.recordcount
end if
if rs3.recordcount>i2 then
i2=rs3.recordcount
end if
else
response.write"<script languae='javascript'>alert('error',history.go(-1));</script>"
response.End()
end if
Dim temp_Landscape_Date, temp_Landscape_pic_info, temp_PicInfo
temp_Landscape_Date = get_Landscape_Date(CLI_SN)
'XXXXXXXXXXXXXXXXXXXXXX
HTCustomerLinePic = getHTCustomerLinePic(CLI_SN)
city = cityname
wid = Site_ID
eid = CLI_SN
etype = "t"
epagetype="t-citytour-info"
def_title = CLI_Days&"-Day " &TourName& " from $" &setFigure (getPriceNine(CLng(CLI_Price), INTERVAL))
def_keywords = capitalize(CityName)&" tour, "&capitalize(CityName)&" "&CLI_Days&" days tour, "&CLI_Days&" days "&capitalize(CityName)&" tour, "&CLI_Days&" day "&capitalize(CityName)&" city tour"
def_description = CLI2_Introduction
%>
<!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" xml:lang="en" lang="en">
<head>
<title><%=seo_title(wid,eid,etype,epagetype,def_title)%></title>
<meta name="Copyright" content="www.chinahighlights.com, copyrights reserved." />
<meta name="keywords" content="<%=seo_keywords(wid,eid,etype,epagetype,def_keywords)%>"/>
<meta name="description" content="<%=Replace(TourIntroduction, """", "")%>"/>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<meta name="robots" content="all" />
<link href="/css/global-all-new.css" rel="stylesheet" type="text/css" media="all"/>
<link href="http://data.chinahighlights.com/css/citytour-info.css" rel="stylesheet" type="text/css" media="all" /><%
If Request.QueryString("RewriteUrl") <> "" Then
RewriteUrl = Request.QueryString("RewriteUrl")
End If
If RewriteUrl <> "" Then%>
<link rel="canonical" href="http://www.chinahighlights.com<% =LCase(RewriteUrl) %>" /><%
End If%>
<script language="javascript" src="http://data.chinahighlights.com/js/jquery.js"></script>
<script language="javascript" src="/js/tourinfo.js"></script>
<script language="javascript" src="http://data.chinahighlights.com/js/ChtPublic.js"></script>
<script type="text/javascript" src="/js/photo-preview.js"></script>
<script type="text/JavaScript" src="/js/linksubmit.js"></script>
<script type="text/javascript" src="/js/community/jsbase.js"></script>
<script type="text/JavaScript" src="/js/city-tour.js"></script>
<style>
.questionForm { margin-bottom:0!important}
</style>
</head>
<body>
<div id="wrapper">
<!--#include virtual="/include/headerWrapper-2013.asp" -->
<div id="content" itemscope itemtype="http://schema.org/Product">
<div id="contentHead">
<div id="subNav"><a href="/">Home</a> <a href="/citytour/">Single City Tours</a> <a href="/<%=lcase( Replace(Trim(cityname), " ", "-") )%>/tours.htm"><%=capitalize(cityname)%> Tours</a> <%=ucase(rs("CLI_NO"))%></div>
<h1><span itemprop="name"><%=capitalize(TourName)%></span></h1>
</div>
<div id="mainContent2">
<div id="sideBar">
<% if not lcase(rs("CLI_NO")) ="hk-13" then %>
<div class="priceInclusion" style="width:173px; float: none">
<h3>Price Inclusion</h3>
<ul>
<% if lcase(rs("CLI_NO")) = "hk-1" or lcase(rs("CLI_NO")) = "hk-2" or lcase(rs("CLI_NO")) = "hk-3" or lcase(rs("CLI_NO")) = "hk-8" or lcase(rs("CLI_NO")) = "hk-7" then%>
<li>Shared Car and Driver</li>
<li>English-speaking Tour Guide</li>
<li>Luggage Transfers</li>
<% else %>
<% if lcase(rs("CLI_NO")) <> "tw-01" Then%>
<li> Centrally Located Hotel</li>
<% end if %>
<li>Authentic Local Restaurants</li>
<li>Private Car and Driver</li>
<li>Guide <img title="English" alt="English" style="padding-left: 3px;" src="http://data.chinahighlights.com/pic/logo/language/lang-en.gif"> <img title="German: Additonal cost may apply!" alt="German: Additonal cost may apply!" style="padding-left: 3px;" src="http://data.chinahighlights.com/pic/logo/language/lang-de.gif"> <img title="Spanish: Additonal cost may apply!" alt="Spanish: Additonal cost may apply!" style="padding-left: 3px;" src="http://data.chinahighlights.com/pic/logo/language/lang-es.gif"> <img title="French: Additonal cost may apply!" alt="French: Additonal cost may apply!" style="padding-left: 3px;" src="http://data.chinahighlights.com/pic/logo/language/lang-fr.gif"> <img title="Japanese" alt="Japanese" style="padding-left: 3px;" src="http://data.chinahighlights.com/pic/logo/language/lang-jp.gif"> <img title="Chinese" alt="Chinese" style="padding-left: 3px;" src="http://data.chinahighlights.com/pic/logo/language/lang-cn.gif"> </li>
<% end if %>
<li>Entrance Fees</li>
<li>Service Charge & Government Taxes</li>
<% if not lcase(rs("CLI_NO")) ="np-03" and not lcase(rs("CLI_NO")) ="np-02" then%>
<li>Insurance </li>
<% end if %>
<li>Tour Arrangements</li>
</ul>
</div>
<% end if %>
<%
If SafeRequest("city", 0) <> "" Then
City = SafeRequest("city", 0)
Else
City = "beijing"
End If
city = City
sql_tt = "select top 3 cli_sn,CLI2_Name,CLP_TwoToFiveAdultPrice,CLI_NO,CLI_Days,cli2_attractionlist, dbo.GetFullPathByPII_SN(CLI_ListImage, 1) as pic, (case when charindex('6060',cli_linetype ) > 0 then 'Just the City' when charindex('6059',cli_linetype ) >0 then 'The City and Nearby' when charindex('6061',cli_linetype ) >0 then 'Trips from the City' when charindex('6062',cli_linetype ) >0 then 'Water Town Tours' when charindex('6063',cli_linetype ) >0 then 'Event Tours' when charindex('6065',cli_linetype ) >0 then 'Great Wall Tours' else '' end ) as linetypeName, dbo.GetCityName(CLI_CII_SN, "&site_lgc&") AS cityname from customerlineinfo inner join customerlineinfo2 on cli_sn=cli2_cli_sn inner join CustomerLinePrice on CLP_CLI_SN = cli_sn where clp_pricetype=2 and (CLI_PackageClass = '202003' or CLI_PackageClass='202007' or CLI_PackageClass='202005') and cli2_lgc="&site_lgc&" and (cli_dei_sn=1 or cli_dei_sn=2) and cli_state=1005004 and cli2_passcity like '%"&city&"%' ORDER BY IsNULL(CLI_OrderNum, 99)"
'and LineTypeName like '" & line_type_Name & "'
sql_tt_type = "Select * From (" & sql_tt & ") DERIVEDTBL "
Set rs_tt = Server.CreateObject("adodb.recordset")
rs_tt.Open sql_tt_type, conn, 1, 1, 1
If rs_tt.Eof Then
Set rs_tt = Server.CreateObject("adodb.recordset")
rs_tt.Open sql_tt, conn, 1, 1, 1
End If
If Not rs_tt.Eof Then
%>
<div class="rightBox">
<div class="rightContent">
<h4>Top Tours in
<% =capitalize(city) %>
</h4>
<ul>
<%
'rs("CLI_NO")
Do While iii <= 5 And Not rs_tt.Eof
If rs_tt("CLI_NO") = "" Then Exit Do
If CLI_NO <> rs_tt("CLI_NO") Then
%>
<li><a href="/tour/<% =LCase(Replace(Trim(rs_tt("cityname")), " ", "-")) %>tour/<% =LCase(rs_tt("CLI_NO")) %>/">
<% =rs_tt("CLI_Days") %>
-Day <%=rs_tt("cli2_name")%></a> <span class=" redArial12Bold">$
<% =rs_tt("CLP_TwoToFiveAdultPrice") %>
</span></li>
<%
Else
End If
rs_tt.MoveNext
iii = iii + 1
Loop
%>
</ul>
</div>
</div>
<%
End If
%>
<div class="rightBox">
<div class="rightContent">
<h4>Tour Map</h4>
<div style=" margin-left:-10px;" id="LeftMap"> </div>
</div>
</div>
<div class="rightBox">
<div class="rightContent">
<h4>Top Destinations</h4>
<ul class="squareGray">
<li><a href="/beijing/tours.htm">Beijing Tours</a></li>
<li><a href="/shanghai/tours.htm">Shanghai Tours</a></li>
<li><a href="/xian/tours.htm">Xi'an Tours</a></li>
<li><a href="/guilin/tours.htm">Guilin Tours</a></li>
<li><a href="/tibet/tours.htm">Tibet Tours</a></li>
<li><a href="/yunnan/tours.htm">Yunnan Tours</a></li>
<li><a href="/hangzhou/tours.htm">Hangzhou Tours</a></li>
<li><a href="/hong-kong/tours.htm">Hong Kong Tours</a></li>
</ul>
</div>
</div>
<!--#include virtual="/common/cache/citytocity-tour.ini.asp" -->
<%
If citytocitytour.Exists(lcase(city)) Then
%>
<div class="rightBox">
<div class="rightContent">
<h4>Tours from <%= capitalize(replace(city,"-"," ")) %></h4>
<ul>
<%
uboundi = ubound(citytocitytour(lcase(city)))
For citytocitytourii = 0 to uboundi
Response.Write(citytocitytour(lcase(city))(citytocitytourii))
Next
%>
<li><strong><a href="/tour/china-tours-from-<%= lcase(city) %>/">All Tours from <%= capitalize(city) %></a></strong></li>
</ul>
</div>
</div>
<%
End If
%>
<!-- customers' reviews -->
<%
Reviews_Number = ""
Reviews_Number = 3 '显视条数
Set frs = server.CreateObject("adodb.recordset")
fsql = "select top " & Reviews_Number & " (select top 1 ECF_content from Eva_CustomerMailFocus WHERE ECF_ECM_SN=Eva_CustomerMail.ECM_SN) as FBtxt, ecm_clientname ,ecm_feedbackdate,ecm_feedbackdate,coli_id from Eva_CustomerMail LEFT OUTER JOIN ConfirmLineInfo ON Eva_CustomerMail.ECM_GRI_SN = ConfirmLineInfo.COLI_GRI_SN where ECM_PubContent is not null and ECM_Public=1 and ecm_lgc=1 and ECM_CLI_NO='"&CLI_NO&"' order by ecm_feedbackdate desc"
frs.Open fsql, conn, 1, 1, 1
fj = 1
If not frs.eof Then%>
<div class="rightBox">
<div class="rightContent"> <span class="rightTitle">Customers' Reviews</span>
<%
While Not frs.EOF%>
<div class="customerReview">
<p><%=getleft(ClearHtml(frs("FBtxt")),150)%>&nbsp;<a href="/feedback/<%=year(frs("ecm_feedbackdate"))%>/<%=month(frs("ecm_feedbackdate"))%>/<%=frs("coli_id")%>.htm" target="_blank">Read more</a></p>
<p class="whoWhen"><span class="customerName"><%=frs("ecm_clientname")%></span> <%=GetEngDate(frs("ecm_feedbackdate"))%></p>
</div>
<%
frs.movenext
fj = fj + 1
Wend%>
</div>
</div>
<% End If %>
<!-- customers' reviews end-->
<p align="center"><a href="/forms/call-you.asp" rel="nofollow"><img src="http://data.chinahighlights.com/image/promo/call-you.gif" border="0" alt="Would you like us to call you" width="171" height="71"></a></p>
<p><a href="/forms/call-you.asp" rel="nofollow">Leave your phone number, and we will call back!</a></p>
</div>
<div id="contentRight">
<div class="cityTourListOut" style=" width:760px;">
<div class="cityTourInfoRight">
<% If Len(TourIntroduction) >2 Then %>
<span itemprop="description">
<p><% =TourIntroduction %></p>
</span>
<% End If %>
<p> <strong>Daparture Date:</strong>
<% If trim(rs("CLI2_DepartureDate"))<>"" Then %>
<strong><%=rs("CLI2_DepartureDate")%></strong>
<% ElseIf rs("CLI_PrimeGroup")=True Then %>
This tour starts at Beijing on every other Tuesday from March to November, on the twice a month basis.
<% Else %>
<strong>You Choose!</strong>
<% End If %>
<br />
<strong>Duration:</strong>
<%
If cli_days > 1 then
Response.Write cli_days & " Days"
Else
Response.Write cli_days & " Day"
End If
%>
</p>
<div class="cityTourInfoRight" itemprop="aggregateRating" itemscope itemtype="http://schema.org/AggregateRating">
<strong>Reviews:<span itemprop="reviewCount"><%=ReviewNum%></span></strong>
</div>
<div class="priceFromCity" itemprop="offers" itemscope itemtype="http://schema.org/Offer"> <strong>From:</strong>
<span class="tourPrice" itemprop="price">$<% = setFigure (getPriceNine(CLng(CLI_Price), INTERVAL)) %></span> per person
<link itemprop="availability" href="http://schema.org/InStock" />In stock
</div>
<div class="enquiryArea"><img src="http://data.chinahighlights.com/pic/enquiry.png" lazyload="false" alt="Inquiry Now" onClick="jsGetToPost('/forms/reservation-form-citytour.asp?season=<%=MMTTFAP(2)%>&grade=<%=MMTTFAP(1)%>&size=2&cli_no=<%=Line_SN3%>')" width="152" height="48" class="inquirySubmit"></div>
<div class="clear"></div>
</div>
<div class="video-photo">
<% If LCase(CLI_NO) = "gl-1" Then %>
<div id="videoInclude">
<div id="detailedVideo">
<object id="vp1TDoBf" width="300" height="225" classid="clsid:d27cdb6e-ae6d-11cf-96b8-444553540000">
<param name="movie" value="http://static.animoto.com/swf/w.swf?w=swf/vp1&e=1349421094&f=TDoBfhSPgBJzZMOw3bGZaQ&d=62&m=p&r=360p+480p+720p&volume=100&start_res=360p&i=m&ct=Start%20your%20journey%20here%20%3E&cu=http://www.chinahighlights.com/contactus/&options=">
</param>
<param name="allowFullScreen" value="true">
</param>
<param name="allowscriptaccess" value="always">
</param>
<embed id="vp1TDoBf" src="http://static.animoto.com/swf/w.swf?w=swf/vp1&e=1349421094&f=TDoBfhSPgBJzZMOw3bGZaQ&d=62&m=p&r=360p+480p+720p&volume=100&start_res=360p&i=m&ct=Start%20your%20journey%20here%20%3E&cu=http://www.chinahighlights.com/contactus/&options=" type="application/x-shockwave-flash" allowscriptaccess="always" allowfullscreen="true" width="300" height="225"></embed>
</object>
</div>
</div>
<% Else%>
<%
Video_Width=300
Video_height=225
Video_RelType = "T" '关联产品类型 城市 路线等 沿用韩特飞的数值
Video_Lang = Site_LGC '语种 只cht用 默认1
Video_RelSn = cli_sn '线路或者文章id
%>
<!--#include virtual="/include/video_min.asp" -->
<% End IF%>
<div class="clear"></div>
<% If Video_exist Then %>
<div id="videoInclude">
<div id="detailedVideo"><%=Video_code%></div>
</div>
<div class="clear"></div>
<% ElseIf LCase(CLI_NO) <> "gl-1"Then %>
<img src="<% =picUrl %>" border="0" />
<% End If %>
</div>
<div class="clear"> </div>
</div>
<div class="clear"> </div>
<div id="tourInfoDetail" style="width:760px; margin-bottom:10px;">
<%
sql = ""
Set rsinfo = server.CreateObject("adodb.recordset")
sql = "select CLI2_Name,CLI_Days,CLI2_Introduction,CLI_NO,CLI2_LineDescribe,CLI_PackageClass,CLI_Addon,CLI_PrimeGroup,CLI_LineType,CLI_SN from " & _
"V_Web_TourInfo where CLI2_LGC="&Site_LGC&" and CLI_State = 1005004 and CLI_no='"&CLI_no&"' "
'Response.Write(SQL)
rsinfo.Open sql, conn, 1, 1, 1
tourinfostr = ""
i = 1
hotel_sizeof = 0
If Not rsinfo.EOF Then
For i = 1 to rsinfo("CLI_Days")
rs_Describe_SQL = " " &_
" DECLARE @CLI_SN int, @DayNo int, @LGC int " &_
" SET @CLI_SN = " & rsinfo("CLI_SN") & " " &_
" SET @DayNo = " & i & " " &_
" SET @LGC = " & Site_Lgc & " DECLARE @List nvarchar(4000), @Memo nvarchar(4000) " &_
" EXEC SP_LineTour_GetStationDescribe @CLI_SN, 1, @DayNo, 0, @LGC, 0, " &_
" @List out, @Memo out, - 1, - 1, - 1, - 1 " &_
" SELECT replace(@List, char(10), '<br />') AS info1, replace(@Memo, char(10), '<br />') " &_
" AS info2 "
'Response.Write(rs_Describe_SQL)
'Response.End()
Set rs_Describe = Conn.Execute(rs_Describe_SQL, , 1)
temp_Describe = Replace(rs_Describe("info1"), "<h2><span class=""tourDate"">Day "&i&"</span></h2>", "")
Response.Write("<div id=""Day_" & i & """>")
%>
<h2><span class="tourDate">Day
<% =i %>
</span></h2>
<% if i =2 then%>
<%
'QA来源统计 专为线路T、酒店 A.
'sources_type_ 全局变量 32002
'product_type_ 全局变量 T, A
sources_type_ = 32002
product_type_ = "T"
%>
<!--#include virtual="/include/question-form.asp" -->
<% end if %>
<%
If CheckDimension(ManualDescribe_row) <> 2 Then
tmp_row(0, 0) = -1
tmp_row(0, 1) = -1
tmp_row(0, 2) = -1
ManualDescribe_row = tmp_row
End If
ManualDescribe_Empty = False
For iii_m = 0 to ubound(ManualDescribe_row, 2)
If ManualDescribe_row(0, iii_m) = i Then
If Len(ManualDescribe_row(1, iii_m)) < 10 Then
ManualDescribe_Empty = False
Exit For
End If
%>
<%
If ManualDescribe_row(2, iii_m) Then
ManualDescribe_pic = GetOnePicPII_SN(ManualDescribe_row(2, iii_m), 1)
If ManualDescribe_pic <> "" Then
%>
<div class="manualImg"> <img src="<%=replace(ManualDescribe_pic, "-s.", "-m.")%>" width="300"> </div>
<%
End If
End If
%>
<p>
<% Response.Write(ManualDescribe_row(1, iii_m)) %>
</p>
<%
ManualDescribe_Empty = True
Exit For
Else
ManualDescribe_Empty = False
End If
Next
%>
<%
If ManualDescribe_Empty = False Then
%>
<% '----- 程序出描述 Start ---------------------------------------------------------------%>
<div class="imgdivlist">
<%
For tp_i = 0 to Ubound(temp_Landscape_Date, 2)
If temp_Landscape_Date(1, tp_i) = i Then
temp_PicInfo = getAttrPhoto(temp_Landscape_Date(2, tp_i))
If IsArray(temp_PicInfo) Then
If CheckDimension(Ubound(HTCustomerLinePic)) = 2 Then
If ubound(HTCustomerLinePic(4, HTCI), 2) < HTCI Then
tmp_HTCustomerLinePic = HTCustomerLinePic(4, HTCI)
End If
End If
%>
<a class="preview" title="<% =temp_PicInfo(1, 0) %>" onClick="return false;" href="http://www.chinahighlights.com<% =temp_PicInfo(5, 0) %>"> <img border="0" align="right" style="border: 1px solid rgb(204, 204, 204); padding: 3px; margin: 3px; width: 80px; height: 60px;" src="http://www.chinahighlights.com<% =Replace(temp_PicInfo(5, 0), "-m.", "-s.") %>"> </a>
<%
End If
End If
Next
If CheckDimension(HTCustomerLinePic) = 2 Then
For HTCI = 0 to Ubound(HTCustomerLinePic, 2)
If HTCustomerLinePic(1, HTCI) = i Then
%>
<a class="preview" title="<% =HTCustomerLinePic(4, HTCI) %>" onClick="return false;" href="/images<% =Replace(HTCustomerLinePic(3, HTCI), ".jpg", "-m.jpg") %>"> <img border="0" align="right" alt="<% =HTCustomerLinePic(4, HTCI) %>" style="border: 1px solid rgb(204, 204, 204); padding: 3px; margin: 3px; width: 80px; height: 60px;" src="/images<% =Replace(HTCustomerLinePic(3, HTCI), ".jpg", "-s.jpg") %>"> </a>
<%
End If
Next
End If
%>
<div class="clear"></div>
</div>
<% Response.Write(temp_Describe & "<p>" & rs_Describe("info2") & "</p>") %>
<% '----- 程序出描述 End ---------------------------------------------------------------%>
<%
End If
%>
<%
If get_ODate_Search_H(TempDateHotel, i) <> "" Then
%>
<%
hotel_sizeof = hotel_sizeof + 1
End If
Response.Write("<div class=""clear""></div></div>")
'if i = 2 Then Response.End()
Next
End If
rsinfo.Close
Set rsinfo = Nothing
Response.Write(tourinfostr)
%>
<div class="clear"></div>
</div>
<div class="pricetable">
<div class="priceTitle">Price Per Person in US Dollars <img src="http://data.chinahighlights.com/pic/question-mark.jpg">
<span class="moneyConverter"><a href="/travelguide/moneyconverter.htm">Currency Converter</a></span>
<div class="priceTerms" style=" display: none">
<ol>
<li>Normally hotels allow a maximum of 3 adults per room with an extra bed, at extra charge. </li>
<li>Tour price is indicative only, please enquire for a detailed quotation.</li>
<li>More people more discounts. Low season, lower price.</li>
<li><span class=" redPrice">*</span> Single Room Supplement prices are shown: <strong>Superior/Deluxe/Economy</strong></li>
</ol>
<div class="arrowLeft"></div>
<div class="closeIt">X</div>
</div>
</div>
<a name="priceTable" id="priceTable"></a>
<table cellspacing="0" cellpadding="0" border="0" class="">
<tbody>
<%
If setFigure(addition(OneAdultPrice1, 0)) <> "" Or setFigure(addition(OneAdultPrice2, 0)) <> "" Or setFigure(addition(OneAdultPrice3, 0)) <> "" _
And setFigure(addition(TwoToFiveAdultPrice1, 0)) <> "" Or setFigure(addition(TwoToFiveAdultPrice2, 0)) <> "" Or setFigure(addition(TwoToFiveAdultPrice3, 0)) <> "" _
And setFigure(addition(SixToNineAdultPrice1, 0)) <> "" Or setFigure(addition(SixToNineAdultPrice2, 0)) <> "" Or setFigure(addition(SixToNineAdultPrice3, 0)) <> "" _
Then %>
<tr>
<th width="145" scope="col" class="second"><%
If LCase(CLI_NO) <> "ybl-2" And LCase(CLI_NO) <> "ybl-3" And LCase(CLI_NO) <> "ybl-4" And LCase(CLI_NO) <> "ybl-5" Then
%><strong>Nov.1 - Mar. 31</strong><%
Else%><strong>Feb.16 - Mar.16</strong><%
End If %></th>
<th width="110" scope="col">Superior </th>
<th width="110" scope="col">Deluxe </th>
<th width="110" scope="col">Economy </th>
<th width="169" scope="col" class="last">Single Room Supplement <strong>*</strong></th>
</tr>
<tr>
<td class="first">1 Person</td>
<td><% If Line_SN1 <> "" Then
If setFigure (getPriceNine(addition(OneAdultPrice1, 0), INTERVAL)) = "" Then
Response.Write("-")
Else
%>
<a href="JavaScript:void(0)" onClick="jsGetToPost('/forms/reservation-form-citytour.asp?season=2&grade=7002&size=1&cli_no=<%=Line_SN1%>')" rel="nofollow">$<%=setFigure (getPriceNine(addition(OneAdultPrice1, 0), INTERVAL))%></a>
<%
End If
Else %>
-
<% End If %></td>
<td><% If Line_SN2 <> "" Then
If setFigure (getPriceNine(addition(OneAdultPrice2, 0), INTERVAL)) = "" Then
Response.Write("-")
Else
%>
<a href="JavaScript:void(0)" onClick="jsGetToPost('/forms/reservation-form-citytour.asp?season=2&grade=7001&size=1&cli_no=<%=Line_SN2%>')" rel="nofollow"> $<%=setFigure (getPriceNine(addition(OneAdultPrice2, 0), INTERVAL))%></a>
<%
End If
Else %>
-
<% End If %></td>
<td><% If Line_SN3 <> "" Then
If setFigure (getPriceNine(addition(OneAdultPrice3, 0), INTERVAL)) = "" Then
Response.Write("-")
Else
%>
<a href="JavaScript:void(0)" onClick="jsGetToPost('/forms/reservation-form-citytour.asp?season=2&grade=7003&size=1&cli_no=<%=Line_SN3%>')" rel="nofollow"> $<%=setFigure (getPriceNine(addition(OneAdultPrice3, 0), INTERVAL))%></a>
<%
End If
Else %>
-
<% End If %></td>
<td> -</td>
</tr>
<tr>
<td class="first">2-5 Persons</td>
<td><% If Line_SN1 <> "" Then
If setFigure (getPriceNine(addition(TwoToFiveAdultPrice1, 0), INTERVAL)) = "" Then
Response.Write("-")
Else
%>
<a href="JavaScript:void(0)" onClick="jsGetToPost('/forms/reservation-form-citytour.asp?season=2&rade=7002&size=2&cli_no=<%=Line_SN1%>')" rel="nofollow">$<%=setFigure (getPriceNine(addition(TwoToFiveAdultPrice1, 0), INTERVAL))%></a>
<%
End If
Else %>
-
<% End If %></td>
<td><% If Line_SN2 <> "" Then
If setFigure (getPriceNine(addition(TwoToFiveAdultPrice2, 0), INTERVAL)) = "" Then
Response.Write("-")
Else
%>
<a href="JavaScript:void(0)" onClick="jsGetToPost('/forms/reservation-form-citytour.asp?season=2&grade=7001&size=2&cli_no=<%=Line_SN2%>')" rel="nofollow"> $<%=setFigure (getPriceNine(addition(TwoToFiveAdultPrice2, 0), INTERVAL))%></a>
<%
End If
Else %>
-
<% End If %></td>
<td><% If Line_SN3 <> "" Then
If setFigure (getPriceNine(addition(TwoToFiveAdultPrice3, 0), INTERVAL)) = "" Then
Response.Write("-")
Else
%>
<a href="JavaScript:void(0)" onClick="jsGetToPost('/forms/reservation-form-citytour.asp?season=2&grade=7003&size=2&cli_no=<%=Line_SN3%>')" rel="nofollow"> $<%=setFigure (getPriceNine(addition(TwoToFiveAdultPrice3, 0), INTERVAL))%></a>
<%
End If
Else %>
-
<% End If %></td>
<td><% If Line_SN1 <> "" Then
If setFigure(Replace(OneRoomDiffPrice1, "$", "")) = "" Then
Response.Write("-")
Else
%>
$<%=setFigure(Replace(OneRoomDiffPrice1, "$", ""))%> /
<%End If%>
<% Else %>
- /
<% End If %>
<% If Line_SN2 <> "" Then
If setFigure(Replace(OneRoomDiffPrice2, "$", "")) = "" Then
Response.Write("-")
Else
%>
$<%=setFigure(Replace(OneRoomDiffPrice2, "$", ""))%> /
<%End If%>
<% Else %>
- /
<% End If %>
<% If Line_SN3 <> "" Then
If setFigure(Replace(OneRoomDiffPrice3, "$", "")) = "" Then
Response.Write("-")
Else
%>
$<%=setFigure(Replace(OneRoomDiffPrice3, "$", ""))%> /
<%End If%>
<% Else %>
- /
<% End If %></td>
</tr>
<tr>
<td class="first">6-9 Persons</td>
<td><% If Line_SN1 <> "" Then
If setFigure (getPriceNine(addition(SixToNineAdultPrice1, 0), INTERVAL)) = "" Then
Response.Write("-")
Else
%>
<a href="JavaScript:void(0)" onClick="jsGetToPost('/forms/reservation-form-citytour.asp?season=2&grade=7002&size=6&cli_no=<%=Line_SN1%>')" rel="nofollow">$<%=setFigure (getPriceNine(addition(SixToNineAdultPrice1, 0), INTERVAL))%></a>
<%
End If
Else %>
-
<% End If %></td>
<td><% If Line_SN2 <> "" Then
If setFigure (getPriceNine(addition(SixToNineAdultPrice2, 0), INTERVAL)) = "" Then
Response.Write("-")
Else
%>
<a href="JavaScript:void(0)" onClick="jsGetToPost('/forms/reservation-form-citytour.asp?season=2&grade=7001&size=6&cli_no=<%=Line_SN2%>')" rel="nofollow"> $<%=setFigure (getPriceNine(addition(SixToNineAdultPrice2, 0), INTERVAL))%></a>
<%
End If
Else %>
-
<% End If %></td>
<td><% If Line_SN3 <> "" Then
If setFigure (getPriceNine(addition(SixToNineAdultPrice3, 0), INTERVAL)) = "" Then
Response.Write("-")
Else
%>
<a href="JavaScript:void(0)" onClick="jsGetToPost('/forms/reservation-form-citytour.asp?season=2&grade=7003&size=6&cli_no=<%=Line_SN3%>')" rel="nofollow"> $<%=setFigure (getPriceNine(addition(SixToNineAdultPrice3, 0), INTERVAL))%></a>
<%
End If
Else %>
-
<% End If %></td>
<td><% If Line_SN1 <> "" Then
If setFigure(Replace(OneRoomDiffPrice1, "$", "")) = "" Then
Response.Write("-")
Else
%>
$<%=setFigure(Replace(OneRoomDiffPrice1, "$", ""))%> /
<%End If%>
<% Else %>
- /
<% End If %>
<% If Line_SN2 <> "" Then
If setFigure(Replace(OneRoomDiffPrice2, "$", "")) = "" Then
Response.Write("-")
Else
%>
$<%=setFigure(Replace(OneRoomDiffPrice2, "$", ""))%> /
<%End If%>
<% Else %>
- /
<% End If %>
<%
If Line_SN3 <> "" Then
If setFigure(Replace(OneRoomDiffPrice3, "$", "")) = "" Then
Response.Write("-")
Else
%>
$<%=setFigure(Replace(OneRoomDiffPrice3, "$", ""))%> /
<%End If%>
<% Else %>
- /
<% End If %></td>
</tr>
<%
End If
If setFigure(addition(OneAdultPrice4, 0)) <> "" Or setFigure(addition(OneAdultPrice5, 0)) <> "" Or setFigure(addition(OneAdultPrice6, 0)) <> "" _
Or setFigure(addition(TwoToFiveAdultPrice4, 0)) <> "" Or setFigure(addition(TwoToFiveAdultPrice5, 0)) <> "" Or setFigure(addition(TwoToFiveAdultPrice6, 0)) <> "" _
Or setFigure(addition(SixToNineAdultPrice4, 0)) <> "" Or setFigure(addition(SixToNineAdultPrice5, 0)) <> "" Or setFigure(addition(SixToNineAdultPrice6, 0)) <> "" _
Then %>
<tr>
<th class="second" scope="col"><%
If LCase(CLI_NO) <> "ybl-2" And LCase(CLI_NO) <> "ybl-3" And LCase(CLI_NO) <> "ybl-4" And LCase(CLI_NO) <> "ybl-5" Then
%><strong>Apr.1 - Oct.31</strong><%
Else%><strong>Feb.8 - Feb.15</strong><%
End If
%></th>
<th scope="col">Superior </th>
<th scope="col">Deluxe </th>
<th width="128" scope="col">Economy </th>
<th width="169" class="last " scope="col">Single Room Supplement <strong>*</strong></th>
</tr>
<tr>
<td class="first">1 Person</td>
<td><% If Line_SN4 <> "" Then
If setFigure (getPriceNine(addition(OneAdultPrice4, 0), INTERVAL))= "" Then
Response.Write("-")
Else
%>
<a href="JavaScript:void(0)" onClick="jsGetToPost('/forms/reservation-form-citytour.asp?season=1&grade=7002&size=1&cli_no=<%=Line_SN4%>')" rel="nofollow"> $<%=setFigure (getPriceNine(addition(OneAdultPrice4, 0), INTERVAL))%></a>
<%End If %>
<% Else %>
-
<% End If %></td>
<td><% If Line_SN5 <> "" Then
If setFigure (getPriceNine(addition(OneAdultPrice5, 0), INTERVAL)) = "" Then
Response.Write("-")
Else
%>
<a href="JavaScript:void(0)" onClick="jsGetToPost('/forms/reservation-form-citytour.asp?season=1&grade=7001&size=1&cli_no=<%=Line_SN5%>')" rel="nofollow"> $<%=setFigure (getPriceNine(addition(OneAdultPrice5, 0), INTERVAL))%></a>
<%End If %>
<% Else %>
-
<% End If %></td>
<td><% If Line_SN6 <> "" Then
If setFigure (getPriceNine(addition(OneAdultPrice6, 0), INTERVAL)) = "" Then
Response.Write("-")
Else
%>
<a href="JavaScript:void(0)" onClick="jsGetToPost('/forms/reservation-form-citytour.asp?season=1&grade=7003&size=1&cli_no=<%=Line_SN6%>')" rel="nofollow"> $<%=setFigure (getPriceNine(addition(OneAdultPrice6, 0), INTERVAL))%></a>
<%End If %>
<% Else %>
-
<% End If %></td>
<td><a rel="nofollow" onClick="jsGetToPost('/forms/reservation-form-citytour.asp?season=1&grade=7003&size=2&cli_no=cht-da-1')" href="JavaScript:void(0)"> -</a></td>
</tr>
<tr>
<td class="first">2-5 Persons</td>
<td><% If Line_SN4 <> "" Then
If setFigure (getPriceNine(addition(TwoToFiveAdultPrice4, 0), INTERVAL)) = "" Then
Response.Write("-")
Else
%>
<a href="JavaScript:void(0)" onClick="jsGetToPost('/forms/reservation-form-citytour.asp?season=1&grade=7002&size=2&cli_no=<%=Line_SN4%>')" rel="nofollow"> $<%=setFigure (getPriceNine(addition(TwoToFiveAdultPrice4, 0), INTERVAL))%></a>
<%End If %>
<% Else %>
-
<% End If %></td>
<td><% If Line_SN5 <> "" Then
If setFigure (getPriceNine(addition(TwoToFiveAdultPrice5, 0), INTERVAL)) = "" Then
Response.Write("-")
Else
%>
<a href="JavaScript:void(0)" onClick="jsGetToPost('/forms/reservation-form-citytour.asp?season=1&grade=7001&size=2&cli_no=<%=Line_SN5%>')" rel="nofollow"> $<%=setFigure (getPriceNine(addition(TwoToFiveAdultPrice5, 0), INTERVAL))%></a>
<%End If %>
<% Else %>
-
<% End If %></td>
<td><% If Line_SN6 <> "" Then
If setFigure (getPriceNine(addition(TwoToFiveAdultPrice6, 0), INTERVAL)) = "" Then
Response.Write("-")
Else
%>
<a href="JavaScript:void(0)" onClick="jsGetToPost('/forms/reservation-form-citytour.asp?season=1&grade=7003&size=2&cli_no=<%=Line_SN6%>')" rel="nofollow"> $<%=setFigure (getPriceNine(addition(TwoToFiveAdultPrice6, 0), INTERVAL))%></a>
<%End If %>
<% Else %>
-
<% End If %></td>
<td><% If Line_SN4 <> "" Then
If setFigure(Replace(OneRoomDiffPrice4, "$", "")) = "" Then
Response.Write("-")
Else
%>
$<%=setFigure(Replace(OneRoomDiffPrice4, "$", ""))%> /
<%End If%>
<% Else %>
- /
<% End If %>
<% If Line_SN5 <> "" Then
If setFigure(Replace(OneRoomDiffPrice5, "$", "")) = "" Then
Response.Write("-")
Else
%>
$<%=setFigure(Replace(OneRoomDiffPrice5, "$", ""))%> /
<%End If%>
<% Else %>
- /
<% End If %>
<% If Line_SN6 <> "" Then
If setFigure(Replace(OneRoomDiffPrice6, "$", "")) = "" Then
Response.Write("-")
Else
%>
$<%=setFigure(Replace(OneRoomDiffPrice6, "$", ""))%> /
<%End If%>
<% Else %>
- /
<% End If %></td>
</tr>
<tr class="last">
<td class="first">6-9 Persons</td>
<td><% If Line_SN4 <> "" Then
If setFigure (getPriceNine(addition(SixToNineAdultPrice4, 0), INTERVAL))= "" Then
Response.Write("-")
Else
%>
<a href="JavaScript:void(0)" onClick="jsGetToPost('/forms/reservation-form-citytour.asp?season=1&grade=7002&size=6&cli_no=<%=Line_SN4%>')" rel="nofollow"> $<%=setFigure (getPriceNine(addition(SixToNineAdultPrice4, 0), INTERVAL))%></a>
<%End If%>
<% Else %>
-
<% End If %></td>
<td><% If Line_SN5 <> "" Then
If setFigure (getPriceNine(addition(SixToNineAdultPrice5, 0), INTERVAL)) = "" Then
Response.Write("-")
Else
%>
<a href="JavaScript:void(0)" onClick="jsGetToPost('/forms/reservation-form-citytour.asp?season=1&grade=7001&size=6&cli_no=<%=Line_SN5%>')" rel="nofollow"> $<%=setFigure (getPriceNine(addition(SixToNineAdultPrice5, 0), INTERVAL))%></a>
<%End If%>
<% Else %>
-
<% End If %></td>
<td><% If Line_SN6 <> "" Then
If setFigure (getPriceNine(addition(SixToNineAdultPrice6, 0), INTERVAL)) = "" Then
Response.Write("-")
Else
%>
<a href="JavaScript:void(0)" onClick="jsGetToPost('/forms/reservation-form-citytour.asp?season=1&grade=7003&size=6&cli_no=<%=Line_SN6%>')" rel="nofollow"> $<%=setFigure (getPriceNine(addition(SixToNineAdultPrice6, 0), INTERVAL))%></a>
<%End If%>
<% Else %>
-
<% End If %></td>
<td><% If Line_SN4 <> "" Then
If setFigure(Replace(OneRoomDiffPrice4, "$", "")) = "" Then
Response.Write("-")
Else
%>
$<%=setFigure(Replace(OneRoomDiffPrice4, "$", ""))%> /
<%End If%>
<% Else %>
- /
<% End If %>
<% If Line_SN5 <> "" Then
If setFigure(Replace(OneRoomDiffPrice5, "$", "")) = "" Then
Response.Write("-")
Else
%>
$<%=setFigure(Replace(OneRoomDiffPrice5, "$", ""))%> /
<%End If%>
<% Else %>
- /
<% End If %>
<% If Line_SN6 <> "" Then
If setFigure(Replace(OneRoomDiffPrice6, "$", "")) = "" Then
Response.Write("-")
Else
%>
$<%=setFigure(Replace(OneRoomDiffPrice6, "$", ""))%> /
<%End If%>
<% Else %>
- /
<% End If %></td>
</tr>
<%
End If %>
</tbody>
</table>
<div class="reserveButton"><img src="http://data.chinahighlights.com/pic/enquiry.png" lazyload="false" alt="Inquiry Now" onClick="jsGetToPost('/forms/reservation-form-citytour.asp?season=<%=MMTTFAP(2)%>&grade=<%=MMTTFAP(1)%>&size=2&cli_no=<%=Line_SN3%>')" width="152" height="48" class="buttonSubmit">
<div class="tailorTour"><a href="/forms/tailormadetours.htm"><img alt="Tailor Make This Tour" src="http://data.chinahighlights.com/pic/tailor-tour.png"></a></div>
<div class="or">OR</div>
</div>
<div id="tailorInfo">Tour Code: <%=ucase(cli_no)%><br />Destinations: <%=capitalize(cityname)%><br />Tour Length: <%=cli_days%> Days<br />Attractions: <%=rs("CLI2_Memo")%><br />Acommodation: Economy
</div>
</div>
<!-- hotels and ships -->
<div>
<%
If Hotel_sizeof > 0 Then%>
<div class="hotelCruise">Hotels We Arranged</div>
<%
'/========================================================
'单独查询城市的酒店列表
'不分淡旺季
'/========================================================
rs1.close
rs2.close
rs3.close
Sql = "SELECT DISTINCT VEndorInfo2.VEI2_CompanyN, CItyInfo2.CII2_Name ,VEndorInfo2.VEI2_VEI_SN, CustomerLineDetail.CLD_DayNo"
Sql = Sql & " FROM CustomerLineInfo INNER JOIN CustomerLineDetail"
Sql = Sql & " ON CustomerLineInfo.CLI_SN = CustomerLineDetail.CLD_CLI_SN"
Sql = Sql & " INNER JOIN CItyInfo2"
Sql = Sql & " ON CustomerLineDetail.CLD_ServiceCity = CItyInfo2.CII2_CII_SN"
Sql = Sql & " INNER JOIN VEndorInfo2"
Sql = Sql & " ON CustomerLineDetail.CLD_ServiceSN = VEndorInfo2.VEI2_VEI_SN"
Sql = Sql & " INNER JOIN CustomerLinePrice"
Sql = Sql & " ON CustomerLineInfo.CLI_SN = CustomerLinePrice.CLP_CLI_SN"
Sql = Sql & " WHERE (CustomerLineInfo.CLI_NO = '" & CLI_NO & "')"
Sql = Sql & " AND (VEndorInfo2.VEI2_LGC = " & Site_LGC & " )"
Sql = Sql & " AND (CustomerLineDetail.CLD_ServiceType = 'A')"
Sql = Sql & " AND (CItyInfo2.CII2_LGC = " & Site_LGC & " )"
Sql = Sql & " AND (CustomerLineDetail.CLD_ServiceSN2 <> 18)"
Sql = Sql & " AND (CustomerLineDetail.CLD_ServiceSN <> 1491)"
Sql = Sql & " AND (CustomerLineDetail.CLD_ServiceSN <> 1743)"
sql = Sql & " AND (CustomerLinePrice.CLP_Area=2)"
'查询豪华等线路的酒店及价格
sql1 = Sql & " AND (CustomerLineInfo.CLI_Grade = 7002)"
Sql1 = Sql1 & " ORDER BY CustomerLineDetail.CLD_DayNo"
rs1.open Sql1,conn,1,1
'response.Write sql1 & "<br/>"
'查询标准等线路的酒店及价格
sql1=Sql & " AND (CustomerLineInfo.CLI_Grade = 7001)"
Sql1 = Sql1 & " ORDER BY CustomerLineDetail.CLD_DayNo"
rs2.open Sql1,conn,1,1
'response.Write sql1 & "<br/>"
'查询经济等线路的酒店及价格
sql1 = Sql & " AND (CustomerLineInfo.CLI_Grade = 7003)"
Sql1 = Sql1 & " ORDER BY CustomerLineDetail.CLD_DayNo"
rs3.open Sql1,conn,1,1
'response.Write sql1 & "<br/>"
'response.End()
i2=rs1.recordcount
If rs2.recordcount > i2 Then
i2 = rs2.recordcount
End If
If rs3.recordcount > i2 Then
i2 = rs3.recordcount
End If
%>
<table cellspacing="0" cellpadding="0" border="0" class="hotelArrange">
<tr>
<th width="71" scope="col" class="first">City</th>
<%if not rs1.eof then%>
<th width="124" scope="col">Superior</th>
<%end if%>
<%if not rs2.eof then%>
<th width="112" scope="col">Deluxe</th>
<%end if%>
<%if not rs3.eof then%>
<th width="192" scope="col" class="last">Economy</th>
<%end if%>
</tr>
<%
For i=1 To i2
If Not rs1.Eof Then
thehotel11=rs1("VEI2_CompanyN")
Else
thehotel11="11"
End If
If Not rs2.Eof Then
thehotel22 = rs2("VEI2_CompanyN")
Else
thehotel22 = "22"
End If
If not rs3.Eof Then
thehotel33 = rs3("VEI2_CompanyN")
Else
thehotel33 = "33"
End If
If thehotel1 = thehotel11 Or thehotel2 = thehotel22 Or thehotel3 = thehotel33 Then
Else
%>
<tr>
<td class="sub"><%
If Not rs1.Eof Then
Response.Write rs1("CII2_Name")
thehotel1 = rs1("VEI2_CompanyN")
Elseif Not rs2.eof Then
Response.Write rs2("CII2_Name")
thehotel2 = rs2("VEI2_CompanyN")
Elseif Not rs3.Eof Then
Response.Write rs3("CII2_Name")
thehotel3 = rs3("VEI2_CompanyN")
End If
%></td>
<%If Not rs1.Eof Then%>
<td><%=rs1("VEI2_CompanyN")%><br />
<%getstar(getGradeByHotelID(rs1("VEI2_VEI_SN")))%></td>
<%End If%>
<%If Not rs2.Eof Then%>
<td><%=rs2("VEI2_CompanyN")%><br />
<%getstar(getGradeByHotelID(rs2("VEI2_VEI_SN")))%></td>
<%End If%>
<%If Not rs3.Eof Then%>
<td><%=rs3("VEI2_CompanyN")%><br />
<%getstar(getGradeByHotelID(rs3("VEI2_VEI_SN")))%></td>
<%End If%>
</tr>
<%
End If
If Not rs1.Eof Then rs1.movenext
If Not rs2.Eof Then rs2.movenext
If Not rs3.Eof Then rs3.movenext
'if not rs4.eof then rs4.movenext
Next
%>
</table>
<%
End If %>
<%
'1为三峡线路
If TourSX Then
%>
<div class="clear"></div>
<div class="hotelCruise">Yangtze Cruise Ships</div>
<table border="0" cellpadding="0" cellspacing="0" class="hotelArrange">
<tr>
<th width="30%">Yangtze Cruise Ships</th>
<th width="40%" class="last">Downstream/Upstream</th>
</tr>
<%
arrSXTour = Get_SXTourCruise(CLI_NO,Site_LGC)
If IsArray(arrSXTour) Then
For i = 0 to ubound(arrSXTour,2) - 1
ShipName = arrSXTour(0,i)
ShipURL = changeStrPara(arrSXTour(0,i))
CruiseGread = arrSXTour(1,i)
CruiseFrom = arrSXTour(2,i)
CruiseTo = arrSXTour(3,i)
%>
<tr>
<td class="sub"><a href="/yangtzecruise/<%=ShipURL%>/"><%=ShipName%></a>
</th>
<td><%=CruiseFrom%>-<%=CruiseTo%></td>
</tr>
<%
Next
End if
%>
</table>
<%
End if
%>
</div>
<!-- hotels and ships end -->
<div class="detailTerms"> <span class="tourTestimonial"> </span>
<%
if isnull(CLI2_Describe) or trim(CLI2_Describe)="" then
else
%>
<h3>Note:</h3>
<%=CLI2_Describe%>
<%end if%>
</div>
<div class="clear"></div>
<div id="priceIntro"> <span class="backtotop"><a href="#">-Top-</a></span>
<h2><a name="inclusion" id="inclusion"></a>Price Inclusions and Exclusions</h2>
<%=Get_PriceInclude(CLI_NO,Site_LGC)%>
<div class="clear"></div>
</div>
<!---------QA Start-------->
<div id="qa-static">
<!--#include virtual="/community/include/qa-static-pro.asp" -->
<%
'QA来源统计 专为线路T、酒店 A.
'sources_type_ 全局变量 32002
'product_type_ 全局变量 T, A
sources_type_ = 32002
product_type_ = "T"
%>
<% Response.Write ajaxQA(title,array(10)) %>
</div>
<!--------QA End-------->
</div>
</div>
<div class="clear"></div>
</div>
<div class="clear"></div>
</div>
<div class="contentBottom"></div>
<!--#include virtual="/include/footer-link-tour.asp" -->
</body>
</html>
<script type="text/javascript" src="<%=GMapurl%>CHTMaps/Handler/MHandler.ashx?ContId=LeftMap&Cwith=175&Cheight=140&MLevel=4&eabInfoWindow=false&Adname=<%=PassCity%>&LPoints=true"></script>