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.

752 lines
36 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"-->
<%
Dim Search_tour_rs, Search_daytrip_rs, Search_addons_rs, Search_SQL
Dim S_price, S_seldays, S_theme, S_City
Dim S_price_SQL, S_seldays_SQL, S_theme_SQL, S_City_SQL
S_City = SafeRequest("s_city",0)
If S_City = "" Or IsEmpty(S_City) Or IsNull(S_City) Then
S_City = "beijing"
End If
TitleCity = capitalize(S_City)
URLCity = LCase(Replace(S_City, " ", ""))
cityurl = URLCity
S_City_SQL= Replace(LCase(S_City), "hong kong", "hongkong")
CityId = getcityid(S_City)
S_price = SafeRequest("S_price",0)
If S_price = "" Or IsEmpty(S_price) Or IsNull(S_price) Or LCase(S_price) = "none" Then
Else
S_price = Replace(S_price, "-", " ")
S_price_SQL = " AND ( dbo.CustomerLinePrice.CLP_TwoToFiveAdultPrice Between "& S_price &" ) "
End If
S_seldays = SafeRequest("S_seldays",0)
If S_seldays = "" Or IsEmpty(S_seldays) Or IsNull(S_seldays) Then
S_seldays = 0
End If
S_theme = SafeRequest("S_theme",0)
If S_theme = "" Or IsEmpty(S_theme) Or IsNull(S_theme) Then
S_theme = "None"
End If
Select Case S_seldays
Case "1"
Search_tour_S_seldays_SQL = " AND (dbo.CustomerLineInfo.CLI_Days = 1) "
Search_daytrip_S_seldays_SQL = ""
Search_addons_S_seldays_SQL = ""
Case "2"
Search_tour_S_seldays_SQL = " AND (dbo.CustomerLineInfo.CLI_Days Between 2 And 3) "
Search_daytrip_S_seldays_SQL = " AND (1 = 2) "
Search_addons_S_seldays_SQL = " AND (1 = 2) "
Case "3"
Search_tour_S_seldays_SQL = " AND (dbo.CustomerLineInfo.CLI_Days Between 4 And 5) "
Search_daytrip_S_seldays_SQL = " AND (1 = 2) "
Search_addons_S_seldays_SQL = " AND (1 = 2) "
Case "4"
Search_tour_S_seldays_SQL = " AND (dbo.CustomerLineInfo.CLI_Days > 6) "
Search_daytrip_S_seldays_SQL = " AND (1 = 2) "
Search_addons_S_seldays_SQL = " AND (1 = 2) "
Case Else
Search_tour_S_seldays_SQL = ""
End Select
Dim Search_tour_totality, Search_daytrip_totality, Search_addons_totality
Dim OrderPrice, OrderDay, OrderSQL
Sub Ordercondition()
Orderp = Request.QueryString("orderp")
If LCase(Orderp) = "asc" Or LCase(Orderp) ="desc" Then
If LCase(Orderp) = "asc" Then
OrderPrice = " dbo.CustomerLinePrice.CLP_TwoToFiveAdultPrice Asc, "
Else
OrderPrice = " dbo.CustomerLinePrice.CLP_TwoToFiveAdultPrice Desc, "
End If
OrderSQL = OrderPrice
End If
Orderd = Request.QueryString("orderd")
If LCase(Orderd) = "asc" Or LCase(Orderd) ="desc" Then
If LCase(Orderd) = "asc" Then
OrderDay = " CLI_Days Asc, "
Else
OrderDay = " CLI_Days Desc, "
End If
OrderSQL = OrderDay
End If
End Sub
Selectcondition = ""
Search_totality = 0
Select Case LCase(S_theme)
Case "city tour package"
Selectcondition = "1"
OrderSQL = ""
Ordercondition
Search_tour
Search_totality = Search_tour_totality
Case "day trips & transfer"
Selectcondition = "2"
Search_daytrip
Search_totality = Search_daytrip_totality
Case "itinerary plus"
Selectcondition = "3"
Search_addons
Search_totality = Search_addons_totality
Case Else
Selectcondition = "123"
Search_tour
Search_daytrip
Search_addons
Search_totality = Search_tour_totality + Search_daytrip_totality + Search_addons_totality
End Select
Sub Search_tour()
Search_SQL = ""
Search_SQL = " " &_
"SELECT " &_
" dbo.CustomerLineInfo.CLI_SN, " &_
" dbo.CustomerLineInfo2.CLI2_Name, " &_
" IsNull(dbo.CustomerLinePrice.CLP_TwoToFiveAdultPrice, 0) As CLP_TwoToFiveAdultPrice, dbo.CustomerLineInfo.CLI_NO, " &_
" dbo.CustomerLineInfo.CLI_Days, dbo.CustomerLineInfo2.CLI2_AttractionList, " &_
" dbo.GetFullPathByPII_SN(dbo.CustomerLineInfo.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 " &_
" 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 = 2) AND " &_
" (dbo.CustomerLineInfo.CLI_PackageClass = '202003' OR " &_
" dbo.CustomerLineInfo.CLI_PackageClass = '202007' OR " &_
" dbo.CustomerLineInfo.CLI_PackageClass = '202005') AND " &_
" (dbo.CustomerLineInfo2.CLI2_LGC = " & Site_lgc & ") AND " &_
" (dbo.CustomerLineInfo.CLI_DEI_SN = 1 OR " &_
" dbo.CustomerLineInfo.CLI_DEI_SN = 2) AND " &_
" (dbo.CustomerLineInfo.CLI_State = 1005004) AND " &_
" (dbo.CustomerLineInfo2.CLI2_PassCity LIKE '%"& S_City &"%') " &_
" " & S_price_SQL & Search_tour_S_seldays_SQL & " " &_
"ORDER BY " & OrderSQL & " dbo.CustomerLineInfo.CLI_OrderNum "
'Response.Write(Search_SQL&"<br><br>")
Set Search_tour_rs = Server.Createobject("adodb.recordset")
Search_tour_rs.Open Search_SQL, Conn, 1, 1, 1
If Not Search_tour_rs.Eof Then
Search_tour_totality = Search_tour_rs.RecordCount
Else
Search_tour_totality = 0
Search_tour_rs.Close
Set Search_tour_rs = Nothing
End If
End Sub
Sub Search_daytrip()
Search_SQL = ""
' Search_SQL = " " &_
' "SELECT " &_
' " BIZ_PackageInfo.PAG_SN, BIZ_PackageInfo2.PAG2_Name, " &_
' " BIZ_PackageInfo.PAG_NeedTime, SystemCode2.SYC2_CodeDiscribe, " &_
' " BIZ_PackageInfo.PAG_Code, BIZ_PackageInfo2.PAG2_Attraction, " &_
' " BIZ_PackageInfo2.PAG2_PII_SN " &_
' "FROM dbo.BIZ_PackageInfo INNER JOIN " &_
' " dbo.BIZ_PackageInfo2 ON " &_
' " dbo.BIZ_PackageInfo.PAG_SN = dbo.BIZ_PackageInfo2.PAG2_PAG_SN INNER JOIN " &_
' " dbo.SystemCode2 ON SystemCode2.SYC2_SYC_SN = LEFT(REPLACE(BIZ_PackageInfo.PAG_ExtendType, ',', ''), 5) INNER JOIN " &_
' " dbo.BIZ_PackagePrice ON " &_
' " dbo.BIZ_PackageInfo.PAG_SN = dbo.BIZ_PackagePrice.PKP_PAG_SN " &_
' "WHERE (dbo.BIZ_PackageInfo2.PAG2_LGC = " & Site_lgc & ") AND (dbo.BIZ_PackageInfo2.PAG2_Check = 2) AND " &_
' " (dbo.BIZ_PackageInfo.PAG_CII_SN = " & CityId & ") AND (dbo.BIZ_PackageInfo.PAG_Flag = 1) AND " &_
' " (dbo.SystemCode2.SYC2_LGC = " & Site_lgc & ") AND (dbo.BIZ_PackageInfo2.PAG2_PAG_SN IN " &_
' " (SELECT sra_resid " &_
' " FROM SRMS.dbo.SRMS_ResourceAllot " &_
' " WHERE sra_ssiid = " & Site_id & " AND sra_code = 'D')) AND " &_
' " (2 BETWEEN dbo.BIZ_PackagePrice.PKP_PersonStart AND dbo.BIZ_PackagePrice.PKP_PersonStop) AND " &_
' " (GETDATE() BETWEEN dbo.BIZ_PackagePrice.PKP_ValidDate AND dbo.BIZ_PackagePrice.PKP_InvalidDate) " &_
' " " & Search_daytrip_S_seldays_SQL & " " &_
' "GROUP BY BIZ_PackageInfo.PAG_SN, BIZ_PackageInfo2.PAG2_Name, " &_
' " BIZ_PackageInfo.PAG_NeedTime, SystemCode2.SYC2_CodeDiscribe, " &_
' " BIZ_PackageInfo.PAG_Code, BIZ_PackageInfo2.PAG2_Attraction, " &_
' " BIZ_PackageInfo2.PAG2_PII_SN "
Search_SQL = " " &_
" SELECT " & _
" P1.PAG_SN, p2.PAG2_Name, p2.PAG2_Intro, p2.PAG2_PAG_SN, P1.PAG_NeedTime, " & _
" P1.PAG_CII_SN, 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) AS Price, p2.PAG2_PII_SN, P1.PAG_Code, " & _
" p2.PAG2_Attraction, dbo.CItyInfo2.CII2_Name, P1.PAG_Code, SystemCode2.SYC2_CodeDiscribe " & _
" FROM dbo.BIZ_PackageInfo P1 INNER JOIN " & _
" dbo.BIZ_PackageInfo2 p2 ON P1.PAG_SN = p2.PAG2_PAG_SN INNER JOIN " & _
" dbo.SystemCode2 ON p2.PAG2_LGC = dbo.SystemCode2.SYC2_LGC AND " & _
" CAST(dbo.SystemCode2.SYC2_SYC_SN AS varchar) IN (Left(P1.PAG_ExtendType, 5)) " & _
" INNER JOIN " & _
" dbo.CItyInfo2 ON P1.PAG_CII_SN = dbo.CItyInfo2.CII2_CII_SN AND " & _
" p2.PAG2_LGC = dbo.CItyInfo2.CII2_LGC " & _
" WHERE (p2.PAG2_LGC = 1) " & _
" AND (REPLACE(dbo.CItyInfo2.CII2_Name, ' ', '') IN ('"&S_City_SQL&"')) 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 (Pag2_check =2) AND (P1.PAG_Flag = 1) " &_
" AND (dbo.SystemCode2.SYC2_LGC = 1) AND " &_
" (dbo.CItyInfo2.CII2_LGC = 1) "
'Response.Write("<!-- "&Search_SQL&" --><br><br>")
'Response.End()
Set Search_daytrip_rs = Server.Createobject("adodb.recordset")
Search_daytrip_rs.Open Search_SQL, Conn, 1, 1, 1
If Not Search_daytrip_rs.Eof Then
Search_daytrip_totality = Search_daytrip_rs.RecordCount
Else
Search_daytrip_totality = 0
Search_daytrip_rs.Close
Set Search_daytrip_rs = Nothing
End If
End Sub
Sub Search_addons()
Search_SQL = ""
Search_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 " &_
"FROM dbo.EntertainmentInfo INNER JOIN " &_
" dbo.EntertainmentInfo2 ON " &_
" dbo.EntertainmentInfo.ENI_SN = dbo.EntertainmentInfo2.ENI2_ENI_SN " &_
"WHERE (dbo.EntertainmentInfo2.ENI2_LGC = 1) AND (dbo.EntertainmentInfo.ENI_Type = 2) AND " &_
" (ISNULL(dbo.EntertainmentInfo.DeleteFlag, 0) <> 1) AND (dbo.EntertainmentInfo.ENI_CII_SN = " & CityId & ") " &_
" " & Search_addons_S_seldays_SQL & " "
'Response.Write(Search_SQL&"<br><br>")
Set Search_addons_rs = Server.Createobject("adodb.recordset")
Search_addons_rs.Open Search_SQL, Conn, 1, 1, 1
If Not Search_addons_rs.Eof Then
Search_addons_totality = Search_addons_rs.RecordCount
Else
Search_addons_totality = 0
Search_addons_rs.Close
Set Search_addons_rs = Nothing
End If
End Sub
%>
<!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><%=TitleCity%> Tours Search Results, Search a <%=TitleCity%> Tour</title>
<meta name="robots" content="noindex, follow" />
<meta name="Copyright" content="www.chinahighlights.com, copyrights reserved." />
<meta name="keywords" content="<%=TitleCity%> Tours Search Results, Search a <%=TitleCity%> Tour"/>
<meta name="description" content="Find a <%=TitleCity%> Tour in our tour list, or you can tailor made a tour to meet your needs."/>
<link href="/css/global-all-new.css" rel="stylesheet" type="text/css" media="all" />
<link href="http://data.chinahighlights.com/css/citytour.css" rel="stylesheet" type="text/css">
<script language="javascript" src="http://data.chinahighlights.com/js/jquery.js"></script>
<script language="javascript" src="/js/newcalendar.js"></script>
<script type='text/javascript' src='/js/boxyapp.js'></script>
<script language="javascript" src="/js/tourinfo.js"></script>
<script>
$(document).ready(function(){
var S_price_value = '<% =Request("S_price") %>';
var S_seldays_value = '<% =Request("S_seldays") %>';
var S_theme_value = '<% =Request("S_theme") %>';
$("select[name='S_price'] option").each(function(){
if ($(this).val() == S_price_value) {
$("#S_price").val(S_price_value);
}
});
$("select[name='S_seldays'] option").each(function(){
if ($(this).val() == S_seldays_value) {
$("#S_seldays").val(S_seldays_value);
}
});
$("select[name='S_theme'] option").each(function(){
if ($(this).val() == S_theme_value) {
$("#S_theme").val(S_theme_value);
}
});
});
</script>
</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/" class="moreCatagory">Single City Tours</a> <%
If Search_tour_totality > 0 And Search_daytrip_totality > 0 And Search_addons_totality > 0 Then
%><a href="/<%=lcase(TitleCity)%>/tours.htm"><%=TitleCity%> Tours</a><%
End If
%> <%=TitleCity%> Tour Search Results</div>
<h1><%=TitleCity%> Tour Search Results</h1>
</div>
<div id="mainContent2">
<div id="contentRight">
<h2 class="resultSteps">You Searched for</h2>
<p>
<%
Cookiescustom = ""
If S_price = "" Or IsEmpty(S_price) Or IsNull(S_price) Or LCase(S_price) = "none" Then
Else
tempS_price = LCase(S_price)
tempS_price = Replace(tempS_price, "-", " ")
If tempS_price = "0 and 100" Then
tempS_price = "100"
ElseIf tempS_price = "600 and 10000" Then
tempS_price = "600"
End If
tempS_price = Replace(tempS_price, " and ", "-")
Cookiescustom = Cookiescustom & tempS_price
%>
<strong>US$
<% = tempS_price%>
</strong>,
<%
End If
If S_seldays = "" Or IsEmpty(S_seldays) Or IsNull(S_seldays) Or S_seldays = "None" Then
Else
tempS_seldays = S_seldays
Select Case S_seldays
Case "1" : tempS_seldays = "1 day"
Case "2" : tempS_seldays = "1-3 days"
Case "3" : tempS_seldays = "3-6 days"
Case "4" : tempS_seldays = "6 days"
End Select
Cookiescustom = Cookiescustom & tempS_seldays & ", "
%>
<strong>
<% =tempS_seldays %>
</strong>,
<%
End If
%>
<strong>
<% = TitleCity %>
City Tour Packages</strong>.
<%
Cookiescustom = Cookiescustom & TitleCity & " City Tour Package."
Response.Cookies("Cht")("Cookiescustom") = Cookiescustom
%>
<% If Search_totality < 1 Then %>
If these tours are not right for you, let our professional travel advisor to <a href="/forms/tailor-made-<%=lcase(TitleCity)%>-tours.htm"><strong>design the right tour</strong></a> to meet your needs.
<% End If %>
</p>
<%
If Search_totality > 0 Then
%>
<div id="tourSort"> <span class=" numberChoice">
<% =Search_totality %>
Choices </span>
<%
If Selectcondition = 1 Then
arrow_down_d = "<img src=""/css/images/tour/arrow-down.png"">"
arrow_down_u = "<img src=""/css/images/tour/arrow-up.png"">"
Orderp = Request.QueryString("orderp")
If Orderp = "" Or IsEmpty(Orderp) Or IsNull(Orderp) Or Orderp = "None" Then
Orderp = "asc"
ad_p = arrow_down_u
Else
If Orderp = "asc" Then
Orderp = "desc"
ad_p = arrow_down_d
Else
Orderp = "asc"
ad_p = arrow_down_u
End If
End If
OrderpUrl = "S_price=" & S_price & "&S_seldays=" & S_seldays & "&S_theme=" & S_theme & "&s_city=" & s_city & "&orderp=" & Orderp
Orderd = Request.QueryString("orderd")
If Orderd = "" Or IsEmpty(Orderd) Or IsNull(Orderd) Or Orderd = "None" Then
Orderd = "asc"
ad_d = arrow_down_u
Else
If Orderd = "asc" Then
Orderd = "desc"
ad_d = arrow_down_d
Else
Orderd = "asc"
ad_d = arrow_down_u
End If
End If
OrderdUrl = "S_price=" & S_price & "&S_seldays=" & S_seldays & "&S_theme=" & S_theme & "&s_city=" & s_city & "&orderd=" & Orderd
%>
<span class="sortBy"> <a href="/citytour/search-list.asp?<% =OrderpUrl %>">Price
<% =ad_p %>
</a> </span> <span class="sortBy"> <a href="/citytour/search-list.asp?<% =OrderdUrl %>">Days
<% =ad_d %>
</a> </span>
<%
End If
%>
</div>
<!-- city tour result -->
<%
If TypeName(Search_tour_rs) = "Recordset" Then
Do While Not Search_tour_rs.Eof
If IsNull(Search_tour_rs("pic")) Or Search_tour_rs("pic") = Empty Then
pic = "/pic/unknown.gif"
Else
pic = "http://www.chinahighlights.com"& imgurl & Search_tour_rs("pic")
End If
If Search_tour_rs("CLI_Days") > 1 Then
days = Search_tour_rs("CLI_Days") &"-"& "Days"
Else
days = Search_tour_rs("CLI_Days") &"-"& "Day"
End If
CLI_NO = Trim(Search_tour_rs("CLI_NO"))
urlCityTourInfo = "/tour/{0}tour/{1}/"
'CityTourInfoUrl = strFormat(urlCityTourInfo, Array(changeStrPara(cityname), LCase(CLI_NO)))
CityTourInfoUrl = "/tour/"& changeStrPara(Search_tour_rs("cityname")) &"tour/"& LCase(CLI_NO) &"/"
Price = setFigure(Search_tour_rs("CLP_TwoToFiveAdultPrice"))
%>
<div class="toursearchList">
<div class="searchlistPic roundCorner"><a href="<%=pic%>" onclick="return false;" title="4-Day Beijing Tour" class="preview"><img src="<%=pic%>" border="0"></a>
<% If Search_tour_rs("linetypeName") > "" Then %>
<span class="category">
<% =Search_tour_rs("linetypeName") %>
</span>
<% End If %>
</div>
<div class="searchlistContent">
<span class="mainTitle"><a href="<%=CityTourInfoUrl%>"><%=Search_tour_rs("cli2_name")%></a> <span class="tourCode">(<%=Search_tour_rs("CLI_NO")%>)</span>
<!--#include virtual="/include/value-guarantee.asp" -->
</span>
<h3>
<% =days %>
<span class="selectedCity"><%=TitleCity%></span> Tour</h3>
<ul>
<li>
<% =Search_tour_rs("cli2_attractionlist") %>
<a onclick="javascript:return ShowIFrame('','/tour/tourmap.asp?Adname=Beijing',425,380,'bottom');//show_tour_map(this);" href="#<% =TitleCity %>">View Map</a></li>
</ul>
</div>
<div class="searchlistPrice"> <span class="fullPrice">Full price from:</span><br>
<span class=" highlightBold red_price">$<%=Price%></span> p/p
<div class="viewDetail"><a href="<%=CityTourInfoUrl%>"><img src="http://data.chinahighlights.com/pic/view-details.png"></a></div>
</div>
<div class="clear"></div>
</div>
<%
Search_tour_rs.MoveNext
Loop
End If
If TypeName(Search_daytrip_rs) = "Recordset" Then
Do While Not Search_daytrip_rs.Eof
sn = Search_daytrip_rs("PAG_SN")
title = Search_daytrip_rs("PAG2_Name")
hours = Search_daytrip_rs("PAG_NeedTime")
ttype = Search_daytrip_rs("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 = Search_daytrip_rs("PAG_Code")
content = Search_daytrip_rs("PAG2_Attraction")
Price = setFigure(GetAdultPricePAG_SN(Search_daytrip_rs("PAG_SN"), 2))
If IsNull(Search_daytrip_rs("PAG2_PII_SN")) Or Search_daytrip_rs("PAG2_PII_SN") = Empty Then
ListImage = -1
Else
ListImage = Search_daytrip_rs("PAG2_PII_SN")
End If
daytripshtml = LCase(Replace(title, " ", "-"))
daytripshtml = daytripshtml&".htm"
cityurl = Replace(cityurl, " ", "-")
%>
<div class="toursearchList">
<div class="searchlistPic roundCorner"><a href="/<%=cityurl%>/day-trips/<%=lcase(PAG_Code)%>.htm"><img src="http://www.chinahighlights.com<%=GetOnePicPII_SN(ListImage,1)%> " border="0"></a> <span class="category"><a href="/<%=URLCity%>/<%=LCase(Replace(ttype, " ", "-"))%>.htm"><%=ttype%></a></span> </div>
<div class="searchlistContent">
<span class="mainTitle"><a href="/<%=cityurl%>/day-trips/<%=lcase(PAG_Code)%>.htm"><%=title%></a> <span class="tourCode">(<%=PAG_Code%>)</span></span>
<h3>Duration: <%=hours%></h3>
<ul>
<li><strong>Attractions:</strong> <%=content%></li>
</ul>
</div>
<div class="searchlistPrice"> <span class="fullPrice">Full price from:</span><br>
<span class=" highlightBold red_price">$<%=Price%></span> p/p
<div class="viewDetail"><a href="/<%=cityurl%>/day-trips/<%=lcase(PAG_Code)%>.htm"><img src="http://data.chinahighlights.com/pic/view-details.png"></a></div>
</div>
<div class="clear"></div>
</div>
<%
Search_daytrip_rs.MoveNext
Loop
End If
If TypeName(Search_addons_rs) = "Recordset" Then
Do While Not Search_addons_rs.Eof
sn = Search_addons_rs("ENI_SN")
title = Search_addons_rs("ENI2_Name")
tmpcityid = Search_addons_rs("eni_cii_sn")
content = Left(Search_addons_rs("ENI2_Introduction"), 126)&"..."
ENI_ConsumeTime = Search_addons_rs("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(Search_addons_rs("pic")) Or Search_addons_rs("pic") = Empty Then
ListImage = "/pic/unknown.gif"
Else
ListImage = "http://www.chinahighlights.com" & imgurl & Search_addons_rs("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
rs_tmp.Open sql, conn, 3, 1, 1
If Not rs_tmp.EOF Then
Price = setFigure(getUSDByRMB(CInt(rs_tmp(0)) * 1.2))
netprice = setFigure(getUSDByRMB(CInt(rs_tmp(0)) * 1.2 * 1.2))
End If
addonshtml = LCase(Replace(title, " ", "-"))
addonshtml = addonshtml&".htm"
If netprice = "" Or netprice = 0 Then
Else
%>
<div class="toursearchList">
<div class="searchlistPic roundCorner"> <a href="/<%=cityurl%>/addons/<%=addonshtml%>"><img src="<%=ListImage%> " border="0"></a> <span class="category"><a href="/<%=URLCity%>/addons.htm" class="cname">Itinerary Plus</a></span> </div>
<div class="searchlistContent" style="width:490px">
<span class="mainTitle"><a href="/<%=cityurl%>/addons/<%=Trim(addonshtml)%>" class="cname"><%=title%></a></span>
<ul>
<li><strong>Duration:</strong> <%=ENI_ConsumeTime%></li>
<li><strong>Attractions:</strong> <%=content%></li>
</ul>
<table cellspacing="0" cellpadding="0" class="addonpriceOption2">
<tbody>
<tr>
<th width="195" style="padding-left: 5px;">Booking Options</th>
<th width="125">Price Per Person</th>
<th width="158">Next Step</th>
</tr>
<tr>
<td style="padding-left: 5px;">A) Enquiry this tour Now </td>
<td><span class="redPrice12Bold">$<%=netprice%></span></td>
<td><!--<a href="/forms/addons-cart.asp?esn=1420">Choose it and continue&#187</a>--></td>
</tr>
<tr>
<td style="padding-left: 5px;">B) Combine it with a package</td>
<td><span class="redPrice12Bold">$<%=price%></span> <span style="font-style: italic; font-size: 11px;">(save 20%)</span></td>
<td><a href="####" onclick="return ShowIFrame('','/forms/enrich-your-tour-next.asp?esn=<%=Search_addons_rs("ENI_SN")%>',638,450,'bottom');">Choose it and continue&#187</a></td>
</tr>
</tbody>
</table>
<div class="clear"></div>
</div>
<div class="clear"></div>
</div>
<%
End If
Search_addons_rs.MoveNext
Loop
End If
End If
%>
<!-- addons result -->
<div class="tailormadeBox roundCorner"><a href="/forms/tailormadetours.htm"><img src="http://data.chinahighlights.com/image/promo/tailor2.gif"border="0" align="right"></a><strong>Custom Tailoring:</strong> Design your own tour with our help to meet your unique interests. You don't have to compromise. Do exactly what you want to do! Let us assist you to tailor-make your own China experience. <a href="/forms/tailormadetours.htm">Tell us what you need now!</a> </div>
</div>
<div id="sideBar">
<script>
$(function(){
$(".hotelsearchtitle .citySelect a").click(function(){ $("#hotelcityList").show(); });
$("#hotelcityList .closeIt").click(function(){ $("#hotelcityList").hide(); });
$("#hotelcityList ul li").click(function(){
$(".hotelsearchtitle .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:;"><%=TitleCity%></a></span> Tour Search </div>
<div class="tourSearchBox">
<div style="display: none ;" id="hotelcityList">
<div class="closeIt"><img src="/css/images/guide/close.gif"></div>
<h5>Most Popular Tourist Cities</h5>
<ul>
<li><a href="javascript:;">Beijing</a></li>
<li><a href="javascript:;">Shanghai</a></li>
<li><a href="javascript:;">Guangzhou</a></li>
<li><a href="javascript:;">Xian</a></li>
<li><a href="javascript:;">Guilin</a></li>
<li><a href="javascript:;">Hangzhou</a></li>
<li><a href="javascript:;">Shenzhen</a></li>
</ul>
<div class="clear"></div>
<h5>Other Cities in China</h5>
<ul>
<li><a href="javascript:;">Changchun</a></li>
<li><a href="javascript:;">Chengdu</a></li>
<li><a href="javascript:;">Chengde</a></li>
<li><a href="javascript:;">Chongqing</a></li>
<li><a href="javascript:;">Datong</a></li>
<li><a href="javascript:;">Dongguan</a></li>
<li><a href="javascript:;">Dali</a></li>
<li><a href="javascript:;">Dalian</a></li>
<li><a href="javascript:;">Dengfeng</a></li>
<li><a href="javascript:;">Dunhuang</a></li>
<li><a href="javascript:;">Emeishan</a></li>
<li><a href="javascript:;">Foshan</a></li>
<li><a href="javascript:;">Fuzhou</a></li>
<li><a href="javascript:;">Guiyang</a></li>
<li><a href="javascript:;">Haikou</a></li>
<li><a href="javascript:;">Harbin</a></li>
<li><a href="javascript:;">Hefei</a></li>
<li><a href="javascript:;">Huangshan</a></li>
<li><a href="javascript:;">Hong Kong</a></li>
<li><a href="javascript:;">Jinan</a></li>
<li><a href="javascript:;">Kunming</a></li>
<li><a href="javascript:;">Lanzhou</a></li>
<li><a href="javascript:;">Lhasa</a></li>
<li><a href="javascript:;">Lijiang</a></li>
<li><a href="javascript:;">Longsheng</a></li>
<li><a href="javascript:;">Luoyang</a></li>
<li><a href="javascript:;">Nanchang</a></li>
<li><a href="javascript:;">Nanjing</a></li>
<li><a href="javascript:;">Nanning</a></li>
<li><a href="javascript:;">Ningbo</a></li>
<li><a href="javascript:;">Macau</a></li>
<li><a href="javascript:;">Ordos</a></li>
<li><a href="javascript:;">Pingyao</a></li>
<li><a href="javascript:;">Qufu</a></li>
<li><a href="javascript:;">Qingdao</a></li>
<li><a href="javascript:;">Sanya</a></li>
<li><a href="javascript:;">Shantou</a></li>
<li><a href="javascript:;">Shenyang</a></li>
<li><a href="javascript:;">Suzhou</a></li>
<li><a href="javascript:;">Tianjin</a></li>
<li><a href="javascript:;">Urumqi</a></li>
<li><a href="javascript:;">Wenzhou</a></li>
<li><a href="javascript:;">Wuhan</a></li>
<li><a href="javascript:;">Xining</a></li>
<li><a href="javascript:;">Xiamen</a></li>
<li><a href="javascript:;">Yangshuo</a></li>
<li><a href="javascript:;">Yantai</a></li>
<li><a href="javascript:;">Yichang</a></li>
<li><a href="javascript:;">Yiwu</a></li>
<li><a href="javascript:;">Zhangzhou</a></li>
<li><a href="javascript:;">Zhenzhou</a></li>
<li><a href="javascript:;">Zhuhai</a></li>
</ul>
</div>
<form action="/citytour/search-list.asp" method="get">
<label> <span>Your Budget</span>
<select name="S_price" class="roundCorner" id="S_price">
<option selected="selected" value="None">Price Per Person</option>
<option value="0-And-100">Less than $100</option>
<option value="101-And-200">US$101-200</option>
<option value="201-And-300">US$201-300</option>
<option value="301-And-400">US$301-400</option>
<option value="401-And-500">US$401-500</option>
<option value="501-And-600">US$501-600</option>
<option value="600-And-10000">Over $600</option>
</select>
</label>
<label> <span>Duration</span>
<select name="S_seldays" class="roundCorner" id="S_seldays">
<option value="None" selected="selected">Length of Tour</option>
<option value="1">1 day</option>
<option value="2">1-3 days</option>
<option value="3">3-6 days</option>
<option value="4">over 6 days</option>
</select>
</label>
<label> <span>Tour Themes</span>
<select id="S_theme" name="S_theme" class="roundCorner">
<option selected="selected" value="None">All theme</option>
<option value="City tour package">City tour package</option>
<option value="Day trips & transfer">Day trips & transfer</option>
<option value="Itinerary Plus">Itinerary Plus</option>
</select>
</label>
<input type="image" class="submitButton" src="http://data.chinahighlights.com/pic/hotel/horel-search-button.png">
<input id="s_city" name="s_city" type="hidden" value="<%=s_city%>" />
</form>
</div>
<p align="center"><a href="/forms/call-you.asp"><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">Leave your phone number, and we will call back!</a></p>
<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>