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.

587 lines
25 KiB
Plaintext

<!--#include virtual="/include/site-seting.asp" -->
<!--#include virtual="/common/Function.asp" -->
<!--#include virtual="/common/Function-tour.asp" -->
<!--#include virtual="/common/function-seo.asp"-->
<!--#include virtual="/common/function-packageinfo.asp"-->
<!--#include virtual="/common/function-cityguide.asp" -->
<!--#include virtual="/common/travelguide-china-funs.asp" -->
<!--#include virtual="/include/site-setting-js.asp" -->
<%
city = request.QueryString("city")
If request.QueryString("city") = Empty Then
city = "beijing"
Else
city = changeParaStr(SafeRequest("city", 0))
End If
If city = "hongkong" Then
Response.Redirect(Replace(RewriteUrl, "/hongkongtour/", "/hong-kongtour/"))
'Response.Redirect()
city = "Hong Kong"
End If
If request.querystring("days") <> Empty Then
HideLineandold = true '隐藏长线和一地线路
days = SafeRequest("days", 1)
days_sql = " and dbo.V_SRMS_ResourceAllot_Tour_Price_CJ.CLI_Days = " & days
If days > 1 Then
days_txt = days & " Days " & capitalize(city) & " Tours, "
Else
days_txt = days & " Day " & capitalize(city) & " Tours,"
End If
Else
HideLineandold = false '显示长线和一地线路
End If
'URL定义-3H
Dim urlCityTourInfo
urlCityTourInfo = "/tour/{0}tour/{1}/"
sql = "select cli_sn,CLI2_Name,CLI2_Memo,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 dbo.GetCityName(dbo.CustomerLineInfo.CLI_CII_SN, "&site_lgc&") = '"&city&"' ORDER BY CLI_OrderNum"
Set rs = server.CreateObject("adodb.recordset")
rs.Open sql, conn, 1, 1, 1
'转到city-tour-list-new.asp
Dim tmp_single_sizeof
'If rs.recordcount >= 8 Then
' 'if not instr(Request.ServerVariables("HTTP_USER_AGENT"),"MSIE 6") > 0 then
' server.Transfer("/single-city-tour/city-tour-list-new.asp")
' 'end if
'Else
tmp_single_sizeof = rs.recordcount
'End If
sql = " SELECT TOP 5 vtp.CLI2_PassCity, "&_
" vtp.CLI_SN, "&_
" vtp.CLI_NO, "&_
" vtp.CLI2_Name, "&_
" vtp.CLI_Days, "&_
" vtp.CLP_TwoToFiveAdultPrice, "&_
" tourmanager.dbo.GetFullPathByPII_SN(vtp.CLI_ListImage, 1) AS pic "&_
" FROM V_SRMS_ResourceAllot_Tour_Price_CJ vtp "&_
" WHERE vtp.CLI2_LGC = 1 "&_
" AND vtp.SRA_SSIID = 14 "&_
" AND vtp.CLP_PriceType = 1 "&_
" AND srms.dbo.Find_IN_Field_CC('"&city&"',vtp.CLI2_PassCity,',')=1 "&_
" AND vtp.CLI_PackageClass = '202004' "&_
" ORDER BY "&_
" vtp.CLI_OrderNum "
'sql1 = "select top 5 *,dbo.GetFullPathByPII_SN(CLI_ListImage, 1) AS pic,CLP_TwoToFiveAdultPrice from customerlineinfo inner join customerlineinfo2 on cli_sn=cli2_cli_sn inner join CustomerLinePrice on CLP_CLI_SN = cli_sn where clp_pricetype=1 and CLI_PackageClass = '202004' and cli_state=1005004 and (cli_dei_sn=1 or cli_dei_sn=2) and CLI2_PassCity like '%"&city&"%' ORDER BY CLI_OrderNum "
sql1 = " " &_
" SELECT TOP 5 dbo.CustomerLineInfo.CLI_NO, dbo.CustomerLineInfo.CLI_Days, " &_
" dbo.CustomerLineInfo2.CLI2_PassCity, " &_
" dbo.CustomerLinePrice.CLP_TwoToFiveAdultPrice, " &_
" dbo.CustomerLineInfo2.CLI2_Name, " &_
" dbo.GetFullPathByPII_SN(dbo.CustomerLineInfo.CLI_ListImage, "&site_lgc&") AS pic " &_
" FROM dbo.CustomerLineInfo INNER JOIN " &_
" dbo.CustomerLineInfo2 ON " &_
" dbo.CustomerLineInfo.CLI_SN = dbo.CustomerLineInfo2.CLI2_CLI_SN INNER JOIN " &_
" dbo.CustomerLinePrice ON " &_
" dbo.CustomerLinePrice.CLP_CLI_SN = dbo.CustomerLineInfo.CLI_SN " &_
" WHERE (dbo.CustomerLinePrice.CLP_PriceType = 1) AND " &_
" (dbo.CustomerLineInfo.CLI_PackageClass = '202004') AND " &_
" (dbo.CustomerLineInfo.CLI_State = 1005004) AND " &_
" (dbo.CustomerLineInfo.CLI_DEI_SN = 1 OR " &_
" dbo.CustomerLineInfo.CLI_DEI_SN = 2) AND (dbo.CustomerLinePrice.DeleteFlag <> 1) " &_
" AND (dbo.CustomerLineInfo2.DeleteFlag <> 1) AND " &_
" (dbo.CustomerLineInfo.DeleteFlag <> 1) AND dbo.CustomerLineInfo2.CLI2_LGC = 1 " &_
" GROUP BY dbo.CustomerLineInfo.CLI_NO, dbo.CustomerLineInfo.CLI_Days, " &_
" dbo.CustomerLineInfo2.CLI2_PassCity, " &_
" dbo.CustomerLinePrice.CLP_TwoToFiveAdultPrice, " &_
" dbo.CustomerLineInfo2.CLI2_Name, " &_
" dbo.GetFullPathByPII_SN(dbo.CustomerLineInfo.CLI_ListImage,"&site_lgc&"), " &_
" dbo.CustomerLineInfo.CLI_OrderNum " &_
" HAVING (dbo.CustomerLineInfo2.CLI2_PassCity LIKE N'%"&city&"%') " &_
" ORDER BY dbo.CustomerLineInfo.CLI_OrderNum "
'Response.Write(sql1)
'response.end
Set rs1 = server.CreateObject("adodb.recordset")
rs1.Open sql1, conn, 1, 1
sql2 = " SELECT TOP 5 cl.CUL_SN, "&_
" cli.COLI_Name, "&_
" cli.COLI_SN, "&_
" cli.COLI_ID, "&_
" cli.COLI_Days, "&_
" cli.COLI_OPI_ID, "&_
" cli.COLI_OrderStartDate, "&_
" clie.COLE_PassCity, "&_
" clie.COLE_Attraction, "&_
" clie.COLE_Country "&_
" FROM CUstomerList cl "&_
" INNER JOIN ConfirmLineInfo cli "&_
" ON cli.COLI_SN = cl.CUL_COLI_SN "&_
" INNER JOIN ConfirmLineInfoElse clie "&_
" ON clie.COLE_COLI_SN = cli.COLI_SN "&_
" WHERE cl.CUL_IsLinkMan = 1 "&_
" AND cli.COLI_Area = 2 "&_
" AND clie.COLE_PassCity <> '' "&_
" AND srms.dbo.Find_IN_Field_CC('"&city&"',clie.COLE_PassCity,',')=1 "&_
" AND cli.COLI_Days <> 0 "&_
" AND cli.COLI_OrderStartDate < GETDATE() AND (len(clie.COLE_PassCity)-len(replace(clie.COLE_PassCity, ',',''))) <> 0 "&_
" ORDER BY "&_
" cli.COLI_OrderStartDate DESC "
'Response.Write(sql)
Set rs2 = server.CreateObject("adodb.recordset")
rs2.Open sql2, conn, 1, 1
'转到city-tour-list-new.asp
wid = Site_ID
eid = GetSRMSCityId(city)
CityID = GetCityID(city)
etype = "K"
epagetype = "t-citytour-list"
If CityID = 0 Then GotoErrPage
def_title = capitalize(city)&" Tours, Private Tours to "&capitalize(city)&" China"
def_keywords = capitalize(city)&" tour, "&capitalize(city)&" tours, "&capitalize(city)&" china tours, "&capitalize(city)&" vacations"
def_description = capitalize(city)&" Tours: "&strGetSubstring(get_city_introduction(city), 1, 150, "...")
sql="select count(ESI_GRI_SN) as Num,isnull(avg(ESI_Rate),0) as ESI_Rate from( "&_
"select ESI_GRI_SN,avg(ESI_Rate) as ESI_Rate "&_
"from Eva_ServiceItemInfo "&_
"where ESI_ServiceCity='"&CityID&"' and ESI_GRI_SN>0 "&_
"group by ESI_GRI_SN "&_
"having avg(ESI_Rate)>0 "&_
") mmm"
Set tmpRs = conn.Execute(sql)
ReviewNum = tmpRs("Num")
ReviewRate= tmpRs("ESI_Rate")
set tmpRs = 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" />
<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="<%=seo_description(wid,eid,etype,epagetype,strGetSubstring(get_city_introduction(city), 1, 150, "..."))%>"/>
<link href="/css/global-all-new.css" rel="stylesheet" type="text/css" media="all" />
<link href="/css/citytour.css" rel="stylesheet" type="text/css" media="all" />
<script type='text/javascript' src="http://data.chinahighlights.com/js/jquery.js"></script>
<script type='text/javascript' src='http://data.chinahighlights.com/js/ChtPublic.js'></script>
<script type='text/javascript' src='/js/city-tour-list-simple.js'></script><%
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%>
</head>
<body>
<div id="wrapper">
<!--#include virtual="/include/headerWrapper-2013.asp"-->
<div id="content">
<div id="contentHead">
<div id="subNav"><a href="/">Home</a> <a href="/citytour/" >Single City Tours</a> <%=capitalize(city)%> Tours </div>
<h1><%=capitalize(city)%> Tours</h1>
</div>
<div id="mainContent2">
<div class="clear"></div>
<div id="contentRight">
<div class="note">
<p>
<% =def_write_city_introduction(city) %>
</p>
<% If ReviewRate>0 and ReviewNum>0 Then %>
<p>
<div itemscope itemtype="http://data-vocabulary.org/Review-aggregate" class="infoReview">
<span itemprop="itemreviewed"><strong>Page Rating:</strong> </span> <span itemprop="rating" itemscope itemtype="http://data-vocabulary.org/Rating"> <span itemprop="average"><%= round(ReviewRate,2) %></span>/<span itemprop="best">5</span> </span> based on <span itemprop="count"><%= ReviewNum %></span> ratings.
</div>
</p>
<% End If %>
<p>
<% if city ="guangzhou" then
%>
<a href="/tour/china-tours-from-<%=city%>/">Looking for China Tours from <%=capitalize(city)%>, please click here</a>.
<% else %>
<a href="http://www.chinahighlights.com/tour/tour-list.asp?city=<%=city%>" rel="nofollow">Looking for China Tours with <%=capitalize(city)%>, please click here</a>.
<%
end if
%>
</div>
<form id="form1" name="form1" method="post" action="">
<%
If rs.Eof And rs.Bof Then
tmp1_GotoErrPage = 1
Else
Dim i1
i1 = 1
Do While Not rs.Eof
sn = rs("cli_sn")
title = rs("CLI2_Name")
Price = rs("CLP_TwoToFiveAdultPrice")
CLI_NO = trim(rs("CLI_NO"))
If isnull(rs("pic")) OR rs("pic") = Empty Then
pic = "/pic/unknown.gif"
Else
pic = imgurl & rs("pic")
End If
If len(rs("cityname"))>0 Then
CityTourInfoUrl = strFormat(urlCityTourInfo,array(changeStrPara(rs("cityname")),lcase(CLI_NO)))
Else
CityTourInfoUrl = strFormat(urlCityTourInfo,array(changeStrPara(city),lcase(CLI_NO)))
End If
If rs("CLI_Days") > 1 Then
days = rs("CLI_Days") & "-Day"
Else
days = rs("CLI_Days") & "-Day"
End If
CLI2_Memo = rs("CLI2_Memo")
If i1 > 4 Then box_class = "tourListBox2" Else box_class = "tourListBox1"
%>
<div class=" china-tour-list">
<div class="listImage150"><a href="<%=CityTourInfoUrl%>" target="citytour" rel="nofollow" ><img src="http://www.chinahighlights.com<%=pic%> " border="0" alt="Photos of <%=title%>" title="Photos of <%=title%>" /></a></div>
<div class="listContent418">
<h2><%=days%> <a href="<%=CityTourInfoUrl%>" target="citytour"><%=title%></a></h2>
<ul class="tourdetailedInfo">
<li class="features"><strong>Attractions:</strong> <%=CLI2_Memo%></li>
<li><strong>Tour Code:</strong> <%=CLI_NO%> </li>
</ul>
</div>
<div class="searchlistPrice"><span class="fullPrice">Full price from:</span> <br />
<span class=" highlightBold red_price">$<%=setFigure(getPriceNine(CLng(Price), INTERVAL))%></span> p/p<br />
<div class="viewDetail"> <a href="<%=CityTourInfoUrl%>" target="citytour" rel="nofollow" ><img src="http://data.chinahighlights.com/pic/view-details.png"></a></div>
</div>
<div class="clear"></div>
</div>
<%
i1 = i1 + 1
rs.movenext
Loop
End If
rs.Close
%>
<%
If HideLineandold = false Then '如果有天数则不输出长线和老客人线路
%>
<!--提取长线部分-->
<%
If rs1.recordcount>0 Then
%>
<h2 class="citytourTitle1">China Tours to <%=capitalize(city)%></h2>
<%
Do While Not rs1.EOF
toururlinfo = "/tour/"&LCase(rs1("CLI_NO")&"/")
%>
<div class="china-tour-list">
<div class="listImage150"><a href="<%=toururlinfo %>" target="_blank" rel="nofollow" ><img src="http://www.chinahighlights.com<%=imgurl&rs1("pic")%> " border="0" alt="Photos of <%=rs1("CLI2_Name")%>" title="Photos of <%=rs1("CLI2_Name")%>" /></a></div>
<div class="listContent418">
<h2><%=rs1("CLI_NO")%>: <a href="<%=toururlinfo %>"><%=rs1("CLI2_Name")%></a></h2>
<ul class="tourdetailedInfo">
<li><strong>Duration:</strong> <%=rs1("CLI_Days")%> Days</li>
<li><strong>Destinations:</strong>
<%
Dim PassCitiesArr, PassCitiesArr_index, PassCitiesArr_count
'循环passcity
PassCitiesArr = Split(rs1("CLI2_PassCity"), ",")
PassCitiesArr_count = UBound(PassCitiesArr)
For PassCitiesArr_index = 0 To PassCitiesArr_count
If StrComp(LCase(Trim(PassCitiesArr(PassCitiesArr_index))), LCase(Trim(city))) = 0 Then
Response.Write("<span class=""highlight2"">"&PassCitiesArr(PassCitiesArr_index)&"</span>")
Else
Response.Write(PassCitiesArr(PassCitiesArr_index))
End If
If PassCitiesArr_index<PassCitiesArr_count Then Response.Write("→")
Next
%>
</li>
<li><a href="<%=toururlinfo %>" target="_blank"><strong>Itinerary & Price Details</strong></a></li>
</ul>
</div>
<div class="searchlistPrice"><span class="fullPrice">Full price from:</span> <br />
<span class=" highlightBold red_price">$<%=setFigure(getPriceNine(CLng(rs1("CLP_TwoToFiveAdultPrice")), INTERVAL))%></span> p/p<br />
<div class="viewDetail"> <a href="<%=toururlinfo%>" target="_blank" rel="nofollow" ><img src="http://data.chinahighlights.com/pic/view-details.png"></a></div>
</div>
<div class="clear"></div>
</div>
<%
rs1.movenext
Loop
Else
tmp2_GotoErrPage = 1
End If
rs1.Close
%>
<!--提取老客人线路-->
<%
If rs2.recordcount>0 Then
%>
<h2 class="citytourTitle2">Previous Customer Tours including <%=capitalize(city)%></h2>
<div class="tourListBox2">
<ul class="customerCitytour">
<%
Do While Not rs2.EOF
toururlinfo = "/tour/customertours/"&rs2("COLI_ID")&".htm"
%>
<li><a href="<%=toururlinfo %>" rel="nofollow"><%=rs2("COLI_Days")%>-Day
<%
'循环passcity
PassCitiesArr = Split(rs2("COLE_PassCity"), ",")
PassCitiesArr_count = UBound(PassCitiesArr)
For PassCitiesArr_index = 0 To PassCitiesArr_count
If StrComp(LCase(Trim(PassCitiesArr(PassCitiesArr_index))), LCase(Trim(city))) = 0 Then
Response.Write("<span class=""highlight2"">"&PassCitiesArr(PassCitiesArr_index)&"</span>")
Else
Response.Write(PassCitiesArr(PassCitiesArr_index))
End If
If PassCitiesArr_index<PassCitiesArr_count Then Response.Write(",")
Next
%>
Tour</a> (<%=GetEngDate(rs2("COLI_OrderStartDate")) %>)</li>
<%
rs2.movenext
Loop
rs2.Close
%>
</ul>
<div class="clear"></div>
</div>
<%
Else
tmp3_GotoErrPage =1
End If '如果有数据才显示边框
%>
<%
End If '如果有天数则不输出长线和老客人线路
If tmp1_GotoErrPage = 1 And tmp2_GotoErrPage =1 And tmp3_GotoErrPage =1 Then
GotoErrPage
End If
%>
</form>
<script type='text/javascript' src='/js/tour/tailor-in-page.js'></script>
</div>
<div id="sideBar">
<!-- city tour search -->
<script>
$(function(){
$(".hotelsearchtitle .citySelect a").click(function(){ $("#hotelcityList").show(); });
$("#hotelcityList .closeIt").click(function(){ $("#hotelcityList").hide(); });
$("#hotelcityList ul li").click(function(){
$(".singlecitytoursearchtitle .citySelect a").text("");
$("#s_city").val("");
$("#s_city").val($(this).text());
$(".hotelsearchtitle .citySelect a").text($(this).text());
$("#hotelcityList").hide();
});
});
</script>
<div class="hotelsearchtitle"><span class="citySelect"><a name="city" href="javascript:;">
<% =capitalize(city) %>
</a></span> Tour Search
</div>
<%if city="beijing" or city="shanghai" or city="guilin" or city="lhasa" then
moretops="<div class=\'moretops\'><a href=\'/"&city&"/top10-tours.htm\'>Top 10 "&capitalize(city)&" Tours &#187;</a></div>"
end if%>
<script>var moretops="<%=moretops%>";</script>
<script type="text/javascript" src="/js/city-tour-list-new.js"></script>
<!-- city tour search ends-->
<%
Video_Width=175
Video_height=132
Video_Lang = Site_LGC '语种 只cht用 默认1
'\\GetSRMSPRovinceId(city,Site_LGC,Site_ID) 取得省ID
'\\GetSRMSCityId(city) 取得城市ID
if request.querystring("region") = empty then
Video_RelType = "K" '关联产品类型 城市 路线等 沿用韩特飞的数值
Video_RelSn = GetSRMSCityId(city) '线路或者文章id
else
Video_RelType = "P" '关联产品类型 城市 路线等 沿用韩特飞的数值
Video_RelSn = PRI_SN '线路或者文章id
end if
%>
<!--#include virtual="/include/video_min.asp" -->
<%
if Video_Sqe then
%>
<div id="videoInclude" class="roundCorner">
<h3>Travel Video about <%=capitalize(city)%></h3>
<div id="detailedVideo"> <%=Video_code%> </div>
</div>
<%
end if
''//如果是省级页面使用到,将取出这个省下所有城市的小包价
if request.QueryString("region") = empty then
area_sql = " = '"&city&"'"
else
area_sql = " in ((SELECT SRMS.dbo.SRMS_Info_AreaPlacenameLGC.SIAPL_Name "&_
" FROM SRMS.dbo.SRMS_Info_AreaPlacename INNER JOIN "&_
" SRMS.dbo.SRMS_Info_AreaPlacenameLGC ON "&_
" SRMS.dbo.SRMS_Info_AreaPlacename.SIAP_Code = "&_
" SRMS.dbo.SRMS_Info_AreaPlacenameLGC.SIAPL_SIAPCode "&_
" INNER JOIN SRMS.dbo.SRMS_ResourceAllot ON "&_
" SRMS.dbo.SRMS_Info_AreaPlacename.SIAP_ID = "&_
" SRMS.dbo.SRMS_ResourceAllot.SRA_ResID "&_
" WHERE (SRMS.dbo.SRMS_Info_AreaPlacename.SIAP_ParentCode = '"&PRI_Code&"') AND "&_
" (SRMS.dbo.SRMS_Info_AreaPlacenameLGC.SIAPL_LGC = "&Site_LGC&") AND "&_
" (SRMS.dbo.SRMS_ResourceAllot.SRA_Code = 'k') AND "&_
" (SRMS.dbo.SRMS_ResourceAllot.SRA_SSIID = "&Site_ID&")))"
end if
''//
sql=" " &_
" SELECT SystemCode2.SYC2_SYC_SN, SystemCode2.SYC2_CodeDiscribe, " &_
" Count(SystemCode2.SYC2_CodeDiscribe) AS PAG_Count " &_
" FROM BIZ_PackageInfo P1 INNER JOIN " &_
" BIZ_PackageInfo2 p2 ON P1.PAG_SN = p2.PAG2_PAG_SN INNER JOIN " &_
" SystemCode2 ON p2.PAG2_LGC = SystemCode2.SYC2_LGC AND " &_
" CAST(SystemCode2.SYC2_SYC_SN AS varchar) IN (P1.PAG_ExtendType) INNER JOIN " &_
" CItyInfo2 ON P1.PAG_CII_SN = CItyInfo2.CII2_CII_SN AND " &_
" p2.PAG2_LGC = CItyInfo2.CII2_LGC " &_
" WHERE (p2.PAG2_LGC = 1) AND (REPLACE(CItyInfo2.CII2_Name, ' ', '') IN ('"&city&"')) AND " &_
" (ISNULL " &_
" ((SELECT TOP 1 bpp.PKP_AdultPrice " &_
" FROM dbo.BIZ_PackagePrice bpp " &_
" WHERE bpp.PKP_PAG_SN = p1.PAG_SN AND (2 BETWEEN PKP_PersonStart AND " &_
" PKP_PersonStop) AND (GETDATE() BETWEEN PKP_ValidDate AND " &_
" PKP_InvalidDate) " &_
" ORDER BY " &_
" (SELECT TOP 1 dav.CAV_Level " &_
" FROM DCityAndVendor dav " &_
" WHERE bpp.PKP_VEI_SN = dav.CAV_VEI_SN AND " &_
" dav.CAV_CII_SN = P1.PAG_CII_SN " &_
" ORDER BY dav.Cav_level)), 0) > 0) AND (p2.PAG2_Check = 2) " &_
" GROUP BY SystemCode2.SYC2_SYC_SN, SystemCode2.SYC2_CodeDiscribe "
sql = replace(sql,"hong kong","hongkong")
sql = replace(sql,"Hong Kong","hongkong")
rs.open sql,conn,3,1,1
if rs.recordcount > 0 or EntertainmentCount > 0 then
%>
<div class="rightBox">
<div class="rightContent">
<h4>Day Trips &amp; Transfers</h4>
<ul>
<%
if rs.eof and rs.bof then
else
do while not rs.eof
SYC2_SYC_SN = rs("SYC2_SYC_SN")
SYC2_CodeDiscribe = rs("SYC2_CodeDiscribe")
DiscribeURL = changeStrPara(rs("SYC2_CodeDiscribe"))
if rs("PAG_Count") > 1 then
PAG_Count = rs("PAG_Count") & " Trips"
else
PAG_Count = rs("PAG_Count") & " Trip"
end if
%>
<li><a href="/day-trips/<%=replace(city," ","-")%>-<%=DiscribeURL%>.htm" rel="nofollow"><%=SYC2_CodeDiscribe%></a> (<%=PAG_Count%>)</li>
<%
rs.movenext
loop
end if
rs.close
if EntertainmentCount > 0 then
%>
<li class="addon"><a href="/<%=city%>/addons.htm">Itinerary Plus</a></li>
<%
end if
%>
</ul>
<div class="clear"></div>
</div>
</div>
<%
end if
%>
<div class="clear"></div>
<%
cityCapStr = capitalize(city)
linkCity = replace(lcase(City), " ","-")
RightBoxShow = False
%>
<div class="rightBox none">
<div class="rightContent">
<h4>About <%=capitalize(city)%></h4>
<ul class="squareGray">
<% If checkCityMM(city, "MainCity")<>"" Then %>
<% RightBoxShow = True %>
<li><a href="/<%=linkCity%>/"><%=cityCapStr%> Overview</a></li>
<li><a href="/<%=linkCity%>/weather.htm"><%=cityCapStr%> Weather</a></li>
<li><a href="/<%=linkCity%>/attraction/"><%=cityCapStr%> Attractions</a></li>
<li><a href="/<%=linkCity%>/map.htm"><%=cityCapStr%> Maps</a></li>
<li><a href="/<%=linkCity%>/transportation.htm"><%=cityCapStr%> Transportation</a></li>
<li><a href="http://photo.chinahighlights.com/<%=linkCity%>/"><%=cityCapStr%> Photos</a></li>
<li><a href="/<%=linkCity%>/food-restaurant.htm"> Food &amp; Restaurant</a></li>
<% ElseIf checkCityMM(city, "minorCity")<>"" Then %>
<% RightBoxShow = True %>
<li><a href="/<%=linkCity%>/"><%=cityCapStr%> Overview</a></li>
<li><a href="/<%=linkCity%>/weather.htm"><%=cityCapStr%> Weather</a></li>
<li><a href="/<%=linkCity%>/attraction/"><%=cityCapStr%> Attractions</a></li>
<li><a href="/<%=linkCity%>/map.htm"><%=cityCapStr%> Maps</a></li>
<li><a href="/<%=linkCity%>/transportation.htm"><%=cityCapStr%> Transportation</a></li>
<li><a href="http://photo.chinahighlights.com/<%=linkCity%>/"><%=cityCapStr%> Photos</a></li>
<% End If %>
<%
getCityRCLiksStr = getCityRCLiks(CityID,city,"Hotel|Train|Flight")
If getCityRCLiksStr<>"" Then
allCount = 0
linkArr = split(getCityRCLiksStr, "$$")
tmpArr = split(linkArr(1),"@")
For tti=0 to ubound(tmpArr)
tmp = split(tmpArr(tti), "-")
If tmp(0)="Hotel" AND tmp(1)>0 Then linkHotels = "<li><a href=""/hotel/"&linkCity&"-hotels/"" title=""Recommended "&cityCapStr&" Hotel"">"&cityCapStr&" Hotels</a></li>"
If tmp(0)="Flight" AND tmp(1)>0 Then
linkFlight = "<li><a href=""/"&linkCity&"/flights-to-"&linkCity&".htm"" title="""&cityCapStr&" Flight Schedule"">"&cityCapStr&" Flights</a></li>"
End If
If tmp(0)="Train" AND tmp(1)>0 Then linkTrain = "<li><a href=""/china-trains/"&linkCity&"-train-schedule.htm"" title="""&cityCapStr&" Train Schedule"">"&cityCapStr&" Train Schedule</a></li>"
allCount = allCount + tmp(1)
Next
If allCount>0 Then
Response.Write(linkHotels)
'Response.Write(linkTour)
Response.Write(linkTrain)
Response.Write(linkFlight)
Response.Write(linkFlights)
RightBoxShow = True
End If
End If %>
</ul>
</div>
</div>
<% If RightBoxShow Then %>
<script type="text/javascript">$(".rightBox.none").attr('class','rightBox')</script>
<% End If %>
<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" title="Would you like us to call you"></a></p>
<p><a href="/forms/call-you.asp" rel="nofollow">Leave your phone number, and we will call back!</a></p>
<p><img src="http://data.chinahighlights.com/image/promo/book-steps-s.jpg" alt="<%=capitalize(city)%> Private Tours" title="<%=capitalize(city)%> Private Tours"></p>
</div>
<div class="clear"></div>
</div>
</div>
<div class="clear"></div>
</div>
<div class="contentBottom"></div>
<!--#include virtual="/include/footer-link-tour.asp" -->
</div>
</body>
</html>