Haina
/
data.chinahighlights.com
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity
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.
master
Branches Tags
${ item.name }
Create tag ${ searchTerm }
Create branch ${ searchTerm }
from '0bf6947a55'
${ noResults }
data.chinahighlights.com/css/city-tour-list-new.asp

491 lines
23 KiB
Plaintext
Raw Normal View History Unescape Escape

同步 FTP 上面的文件
6 years ago
<!--#include virtual="/include/site-seting.asp" -->
<!--#include virtual="/common/Function.asp" -->
<!--#include virtual="/common/Function-tour.asp" -->
<!--#include virtual="/common/Function-packageinfo.asp" -->
<!--#include virtual="/common/Function-seo.asp" -->
<!--#include virtual="/common/function-cityguide.asp" -->
<!--#include virtual="/common/travelguide-china-funs.asp" -->
<%
'call t_che_now()
If request.QueryString("city") = Empty Then
city = "beijing"
Else
city = changeParaStr(SafeRequest("city", 0))
End If
If city = "tibet" Then
EntranceCity = "Lhasa"
Else
EntranceCity = city
End If
cityurl = city
cityid = getcityid(city)
ShowTimeStr = ""
ShowTimeStr = TowNum(Month(Now())) & "/" & TowNum(Day(Now())) & "/" & Year(Now())
Set rs = server.CreateObject("adodb.recordset")
Set rs2 = server.CreateObject("adodb.recordset")
Set rs3 = server.CreateObject("adodb.recordset")
wid = Site_ID
eid = GetSRMSCityId(city)
etype = "K"
epagetype = "t-citytour-list"
def_title = days_txt & capitalize(city)&" Tour, "&capitalize(city)&" Tours, "&capitalize(city)&" Day Tours & "&capitalize(city)&" China Tours"
def_keywords = days_txt & capitalize(city)&" tour, "&capitalize(city)&" tours, "&capitalize(city)&" tour packages, tours in "&capitalize(city)&", "&capitalize(city)&" china tours, "&capitalize(city)&" tour guide, "&capitalize(city)&" day tours"
def_description = days_txt & capitalize(city)&" Tours: "&capitalize(city)&" city packages, "&capitalize(city)&" private city tours, China tours to "&capitalize(city)&", "&capitalize(city)&" Day tours, etc. All the tours in "&capitalize(city)&" are customizable to fit your own pace."
urlCityTourInfo = "/tour/{0}tour/{1}/"
%>
<!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="<%=capitalize(city)%> Tours: <%=strGetSubstring(get_city_introduction(city), 1, 150, "...")%>"/>
<link href="http://data.chinahighlights.com/css/basic.css" rel="stylesheet" type="text/css" media="all" />
<link href="http://data.chinahighlights.com/css/layout.css" rel="stylesheet" type="text/css" media="all" />
<link href="http://data.chinahighlights.com/css/tour.css" rel="stylesheet" type="text/css" media="all" />
<link href="http://data.chinahighlights.com/css/citytour.css" rel="stylesheet" type="text/css" media="all" />
<link href="http://data.chinahighlights.com/css/PluginsCss.css" rel="stylesheet" type="text/css" media="all" />
<script language="javascript" type="text/javascript" src="http://data.chinahighlights.com/js/jquery.js"></script>
<script language="javascript" type="text/javascript" src="/js/jsbase.js"></script>
<script type='text/javascript' src='http://data.chinahighlights.com/js/ChtPublic.js'></script>
<script language="javascript" src="/js/newcitytour.js"></script>
<script type="text/javascript" src="/js/community/facebox.js"></script>
<script language="javascript" src="/js/citytour-left.js"></script>
<link rel="canonical" href="http://www.chinahighlights.com<%=getHTTPURL()%>" />
<style>
#subContent {
float: left!important;
margin: 0 0 0 20px!important
}
#mainContent {
float: right!important;
margin: 0 20px 0 0!important;
}
</style>
</head>
<body>
<div id="wrapper" class="<%=lcase(city)%>Tour guide">
<div id="pageIntro">
<p><%=capitalize(city)%> Tours - See the best with our <%=capitalize(city)%> tour packages </p>
</div>
<!--#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>
<script type="text/javascript" src="/js/Html/page-tool.js"></script>
<h1><%=capitalize(city)%> Tours</h1>
</div>
<div id="citytourFilter">
<div class="note">
<p><% =def_write_city_introduction(city) %></p>
</div>
<%
' *6065
sql = "select 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 dbo.GetCityName(dbo.CustomerLineInfo.CLI_CII_SN, "&site_lgc&") = '"&city&"' ORDER BY CLI_OrderNum"
'Response.Write(sql)
rs.Open sql, conn, 1, 1, 1
totaltour = rs.recordcount
'增加多网站后台的选择
sql = "select * from BIZ_PackageInfo INNER JOIN BIZ_PackageInfo2 on PAG_SN=PAG2_PAG_SN inner join systemcode2 on (cast(SYC2_SYC_SN as varchar) in (Left(Replace(BIZ_PackageInfo.PAG_ExtendType, ',', ''), 5))) where PAG2_LGC=1 and pag2_check=2 and PAG_CII_SN="&cityid&" AND BIZ_PackageInfo.PAG_Flag = 1 and SYC2_lgc="&site_lgc&_
" "
'Response.Write(sql)
rs2.Open sql, conn, 1, 1, 1
totaldaytrip = rs2.recordcount
sql = " " &_
" SELECT *, " &_
" (SELECT TOP 1 dbo.GetFullPathByPII_SN(dbo.PictureInfo.PII_SN, 1) " &_
" FROM pictureinfo " &_
" WHERE (PII_ResourceSN = dbo.EntertainmentInfo.ENI_SN) AND " &_
" (PII_ServiceType = 'e')) AS pic, IsNull( " &_
" (SELECT TOP 1 EnterTainmentPrice.ENP_Agreement " &_
" FROM EnterTainmentPrice INNER JOIN " &_
" DCityAndVendor ON " &_
" EnterTainmentPrice.ENP_VEI_SN = DCityAndVendor.CAV_VEI_SN " &_
" WHERE (EnterTainmentPrice.ENP_ENI_SN = ENI_SN) AND (GETDATE() BETWEEN " &_
" EnterTainmentPrice.ENP_Start AND EnterTainmentPrice.ENP_Stop) AND " &_
" (EnterTainmentPrice.ENP_PGI_SN = 8 OR " &_
" EnterTainmentPrice.ENP_PGI_SN = 11 OR " &_
" EnterTainmentPrice.ENP_PGI_SN = 13) AND (DCityAndVendor.CAV_CII_SN = "&cityid&") " &_
" ORDER BY DCityAndVendor.CAV_Level), 0) AS price " &_
" FROM dbo.EntertainmentInfo INNER JOIN " &_
" dbo.EntertainmentInfo2 ON " &_
" dbo.EntertainmentInfo.ENI_SN = dbo.EntertainmentInfo2.ENI2_ENI_SN " &_
" WHERE (dbo.EntertainmentInfo2.ENI2_LGC = "&Site_lgc&") AND (dbo.EntertainmentInfo.ENI_Type = 2) " &_
" AND (ISNULL(dbo.EntertainmentInfo.DeleteFlag, 0) <> 1) AND " &_
" (dbo.EntertainmentInfo.ENI_CII_SN = "&cityid&") AND " &_
" (ISNULL " &_
" ((SELECT TOP 1 EnterTainmentPrice.ENP_Agreement " &_
" FROM EnterTainmentPrice INNER JOIN " &_
" DCityAndVendor ON " &_
" EnterTainmentPrice.ENP_VEI_SN = DCityAndVendor.CAV_VEI_SN " &_
" WHERE (EnterTainmentPrice.ENP_ENI_SN = ENI_SN) AND (GETDATE() BETWEEN " &_
" EnterTainmentPrice.ENP_Start AND EnterTainmentPrice.ENP_Stop) AND " &_
" (EnterTainmentPrice.ENP_PGI_SN = 8 OR " &_
" EnterTainmentPrice.ENP_PGI_SN = 11 OR " &_
" EnterTainmentPrice.ENP_PGI_SN = 13) AND (DCityAndVendor.CAV_CII_SN = "&cityid&") " &_
" ORDER BY DCityAndVendor.CAV_Level), 0) > 0) "
'Response.Write(sql)
'Response.End()
rs3.Open sql, conn, 1, 1, 1
totaladdons = rs3.recordcount
%>
</div>
<div id="mainContent2">
<div id="contentRight">
<!--Filter Result Begins-->
<div id="tourfilterResult" class="roundCorner" style="border: 0px;">
<%
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
alist = rs("cli2_attractionlist")
%>
<script>
function get_picinfo(o){
var tempPic = $(".imgdivlist a").clone();
alert($(tempPic).html())
//$(this).html(tempPic);
}
</script>
<div class=" china-tour-list daytripList tourfilterList" style="display:none1" id="Type_<%=rs("linetypeName")%>">
<div class="listImage150"><a href="<%=CityTourInfoUrl%>"><img src="http://www.chinahighlights.com/<%=pic%>" lazyload="false" border="0"></a></div>
<div class="listContent418">
<span class="mainTitle"><%=days%> <a href="<%=CityTourInfoUrl%>" target="citytour"><%=title%></a></span>
<ul class="tourdetailedInfo">
<li><strong>Attractions:</strong> <%=alist%></li>
<li><strong>Tour Code:</strong> <%=rs("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"><img src="http://data.chinahighlights.com/pic/view-details.png" alt="View Details"></a></div>
</div>
<div class="clear"></div>
</div>
<%
rs.movenext
Wend
While Not rs2.EOF
sn = rs2("PAG_SN")
title = rs2("PAG2_Name")
hours = rs2("PAG_NeedTime")
ttype = rs2("SYC2_CodeDiscribe")
hrstr = "hr"
hours = FormatNumber(hours, 1, TristateTrue)
If CInt(hours)>= 2 Then hrstr = "hrs"
If InStr(hours, ".") >0 And Right(hours, 1)<>0 Then
If CInt(hours)<= 1 Then
tmphours = 0
tmpmins = hours * 60
Else
tmphours = (hours * 10 ) Mod 10
tmpmins = ((tmphours * 6) \ 10) * 10
End If
If tmphours>0 Then
hours = Int(hours)&hrstr& tmpmins &"mins"
Else
hours = tmpmins &"mins"
End If
Else
hours = CInt(hours) &hrstr
End If
PAG_Code = rs2("PAG_Code")
content = rs2("PAG2_Attraction")
Price = GetAdultPricePAG_SN(rs2("PAG_SN"), 2)
If IsNull(rs2("PAG2_PII_SN")) Or rs2("PAG2_PII_SN") = Empty Then
ListImage = -1
Else
ListImage = rs2("PAG2_PII_SN")
End If
daytripshtml = LCase(Replace(title, " ", "-"))
daytripshtml = daytripshtml&".htm"
cityurl = Replace(cityurl, " ", "-")
%>
<div class="china-tour-list tourfilterList1" style="display: ">
<div class="listImage150"><a href="/<%=cityurl%>/day-trips/<%=daytripshtml%>"><img src="<%=GetOnePicPII_SN(ListImage,1)%> " border="0"></a></div>
<div class="listContent418">
<h2><a href="/<%=cityurl%>/day-trips/<%=daytripshtml%>"><%=title%></a></h2>
<ul class="tourdetailedInfo">
<li style="display:none"><%=ttype%></li>
<li><strong>Duration: </strong><%=hours%> <span class="tourCode"><strong>Tour Code:</strong> <%=PAG_Code%></span></li>
<li><strong>Attractions:</strong> <%=content%></li>
<li><strong>Tour Type:</strong>
<%
If RegExpfind("hksic", LCase(rs2("PAG_Code"))) = true Then
%>
<span class="redArial12Bold">Seat-in-coach tour (SIC)</span> Join an organized tour in a large coach with a tour guide for the group.
<%
else
%>
<span class="redArial12Bold">Private Tour</span> – A private tour includes a private guide and driver
<%
end if
%>
</li>
</ul>
</div>
<div class="searchlistPrice"><span class="fullPrice">Full price from:</span> <br />
<span class=" highlightBold red_price">$<%=price%></span> p/p<br />
<div class="viewDetail"><a href="/<%=cityurl%>/day-trips/<%=daytripshtml%>"><img src="http://data.chinahighlights.com/pic/view-details.png"></a></div>
</div>
<div class="clear"></div>
</div>
<%
rs2.movenext
Wend
While Not rs3.EOF
sn = rs3("ENI_SN")
title = rs3("ENI2_Name")
tmpcityid = rs3("eni_cii_sn")
content = Left(rs3("ENI2_Introduction"), 126)&"..."
ENI_ConsumeTime = rs3("ENI_ConsumeTime")
If Not IsNull(ENI_ConsumeTime) And IsNumeric(ENI_ConsumeTime) Then
If ENI_ConsumeTime < 1 Then
ENI_ConsumeTime = ENI_ConsumeTime * 60 &" Min"
Else
ENI_ConsumeTime = ENI_ConsumeTime &" Hours"
End If
End If
If IsNull(rs3("pic")) Or rs3("pic") = Empty Then
ListImage = "/pic/unknown.gif"
Else
ListImage = imgurl & rs3("pic")
End If
price = 0
netprice = 0
Set rs_tmp = server.CreateObject("adodb.recordset")
' rs_tmp.Open "SELECT top 1 cav_vei_sn FROM [dbo].[DCityAndVendor] where cav_cii_sn="&tmpcityid&" order by cav_level", conn, 1, 1, 1
' If Not rs_tmp.EOF Then
' veisn = rs_tmp("cav_vei_sn")
' End If
' rs_tmp.Close
'
' sql = "SELECT TOP 1 ENP_Agreement "&_
' " FROM dbo.EnterTainmentPrice WHERE "&_
' " (ENP_ENI_SN = "&sn&") AND (GETDATE() "&_
' " BETWEEN ENP_Start AND ENP_Stop) and (enp_pgi_sn=8 or enp_pgi_sn=11 or enp_pgi_sn=13 or enp_pgi_sn=25) and enp_vei_sn= "&veisn
sql = " SELECT TOP 1 EnterTainmentPrice.ENP_Agreement, "&_
" EnterTainmentPrice.ENP_PGI_SN "&_
" FROM EnterTainmentPrice INNER JOIN "&_
" DCityAndVendor ON "&_
" EnterTainmentPrice.ENP_VEI_SN = DCityAndVendor.CAV_VEI_SN "&_
" WHERE (EnterTainmentPrice.ENP_ENI_SN = "&sn&") AND (GETDATE() BETWEEN EnterTainmentPrice.ENP_Start AND EnterTainmentPrice.ENP_Stop) AND "&_
" (EnterTainmentPrice.ENP_PGI_SN = 8 OR EnterTainmentPrice.ENP_PGI_SN = 11 OR EnterTainmentPrice.ENP_PGI_SN = 13) AND cav_cii_sn="&cityid&" Order by cav_level "
'Response.Write(sql)
rs_tmp.Open sql, conn, 3, 1, 1
If Not rs_tmp.EOF Then
Price = getUSDByRMB(CInt(rs_tmp(0)) * 1.2)
netprice = getUSDByRMB(CInt(rs_tmp(0)) * 1.2 * 1.2)
End If
addonshtml = LCase(Replace(title, " ", "-"))
addonshtml = addonshtml&".htm"
%>
<div class="china-tour-list daytripList tourfilterList2" style="border-bottom: none;display:none">
<div class="listImage150"><a href="/<%=cityurl%>/addons/<%=addonshtml%>"><img src="<%=ListImage%> " border="0"></a></div>
<div class="tourlistContent2">
<h2><a href="/<%=cityurl%>/addons/<%=Trim(addonshtml)%>" class="cname"><%=title%></a></h2>
<ul class="tourdetailedInfo">
<li><strong>Duration: </strong><span><%=ENI_ConsumeTime%></span></li>
<li><strong>Attractions:</strong><span class="TourAttr"><%=content%></span></li>
</ul>
<table width="100%" border="0" class="addPrice" cellpadding="0" cellspacing="0">
<tr>
<th width="198" scope="col">Booking Options</th>
<th width="135" scope="col">Price Per Person</th>
<th width="167" scope="col">Next Step</th>
</tr>
<tr>
<td>A) Enquiry this tour Now </td>
<td><span class="redPrice12Bold red_price">$<%=netprice%></span></td>
<td>
<!--<a href="#">Choose it and continue?</a>-->
</td>
</tr>
<tr>
<td>B) Combine it with a package</td>
<td><span class="redPrice12Bold red_price">$<%=price%></span><em>(save 20%)</em></td>
<td><a href="####" onclick="return ShowIFrame('','/forms/enrich-your-tour-next.asp?esn=<%=rs3("ENI_SN")%>',638,450,'bottom');">Choose it and continue&#187</a></td>
</tr>
</table>
<br />
<div class="clear"></div>
</div>
<div class="clear"></div>
</div>
<%
rs3.movenext
Wend
%>
<div id="ZShowMsg" style="display:none; padding-left:10px;"><span class="highlight">Please select a different criteria and try again!</span> Or
just ask us to <a href="/forms/tailor-made-<%=replace(city," ","-")%>-tours.htm"><strong>Customize a <%=capitalize(city)%> Tour</strong></a> to suit your needs. </div>
<p>&nbsp;</p>
</div>
<!--Filter Result Ends-->
<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>
<div class="weather">
<div> </div>
<div class="clear"></div>
</div>
<!--<p><a href="/contactus/"><img src="http://data.chinahighlights.com/image/promo/phone.jpg" alt="Call us" border="0" /></a></p>-->
<div class="clear"></div>
<%
cityCapStr = capitalize(city)
linkCity = replace(lcase(City), " ","-")
%>
<div class="rightBox">
<div class="rightContent">
<h4>About <%=capitalize(city)%></h4>
<ul class="squareGray">
<% If checkCityMM(city, "MainCity")<>"" Then %>
<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 %>
<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 i=0 to ubound(tmpArr)
tmp = split(tmpArr(i), "-")
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)="Tour" AND tmp(1)>0 Then linkTour = "<li><a href=""/"&linkCity&"/tours.htm"" title="""&cityCapStr&" Tours"">"&cityCapStr&" Tours</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>"
linkFlights= "<li><a href=""/china-flight-schedules/"&linkCity&"-flight-departures.htm"" title="""&cityCapStr&" Flight Schedule"">"&cityCapStr&" Flight Schedule</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)
End If
End If %>
</ul>
</div>
</div>
<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>
<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 class="clear"></div>
</div>
<!--#include virtual="/include/footer-link-tour.asp" -->
<!--#include virtual="/include/boldchat.asp" -->
</div>
</body>
<script>
totaladdons = <%=totaladdons%>,
totaltour = <%=totaltour%>,
totaldaytrip =<%=totaldaytrip%>;
</script>
</html>