<!--#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>