<%= Format_AM(RS_GOP("ATT_AM"),0) %>/人 <% END IF%> <% RS_GOP.MOVENEXT LOOP%> <% END IF RS_GOP.CLOSE%> <% RS_GOP.OPEN SQL_CHG,egrpDSN,1,1 IF NOT RS_GOP.EOF THEN%> <% DO UNTIL RS_GOP.EOF%> <% IF RS_GOP("PACKAGE_CD") <> "" THEN%> <%= basicSQL("PACKAGE_NM","TRPACK"," PACKAGE_CD='"&TRIM(RS_GOP("PACKAGE_CD"))&"'") %> 大人 <%= Format_AM(RS_GOP("GCHG_AM"),0) %>/人 小孩 <%= Format_AM(RS_GOP("GCHG_AM2"),0) %>/人 <% END IF%> <% RS_GOP.MOVENEXT LOOP END IF RS_GOP.CLOSE%> <% END IF%> <% ' ===== brian 2005-03-18 ===== %> 請詳閱旅遊契約: <% if ITN_NATN="TW" then str_Agreemant=get_Text("/eWeb_"&iWEB_ID&"/Public/GO_TW_Agreement.txt",0) else str_Agreemant=get_Text("/eWeb_"&iWEB_ID&"/Public/GO_Agreement.txt",0) end if %>
報名須知:
1.所有行程皆需隨團進出,參團人數至少須滿16人以上方可成行。
2.一旦報名之後,本公司將有業務專員與您聯繫並洽談相關事宜及收取訂金。報名刷卡繳交訂金或團費後, 國外/國內 旅遊定型化契約書即產生效力,若變更或取消行程,依契約書內容辦理。
3.若因匯率調整或因成本調漲,本公司於收到訂金或團費前保留調整團費之權益。
我接受合約條款  
<% if Session("USR_ID") = "" then %> <% end if %> <% if Session("USR_ID") = "" then chkID="Y"%> <% else chkID="N" end if '=== 2006-05-30 新增可用推薦人模式登入 For 我的旅行社================== if Session("USR_ID") = "" and iWEB_ID = "wonder" then show_wonder = "" else show_wonder = "none" end if%>
"" then %> checked <% end if %>> 已經是會員: <% if errlog="1" then%> <%= errlogmsg %> <% end if %>
帳號: 密碼:
ID="Radio"> 非會員報名  
ID="Radio2"> 已有推薦編號者  
帳號: 密碼:
籊洏峞A但昔日石砌的泊船碼頭仍然殘留。目前該港的西北岸經私人闢為魚塭,並經營休閒育樂中心。布袋港東方的鯉魚山為一向北北東方伸展,長約400公尺的陸連島,以其遠視如鯉魚俯狀貌而得名。

 

【鴛鴦窟】
位於望安島東岸的北方,是一處東西走向的河谷地形,它的谷口隔著一條寬約
600公尺的海峽和馬鞍嶼相對。由於谷地避風,附近並有多口淺水井,水源不虞匱乏,谷口前有一片海蝕平台。鴛鴦窟地區有殘存的藏軍洞歷史遺址 。

 

-->"%> <% response.write ""%> <% response.write ""%> <% response.write ""%> <% response.write ""%> <% response.write ""%> <% response.write ""%> <% response.write ""%> <% response.write ""%> <% response.write ""%> <% response.write ""%> <% ' ======================================================================== ' 檔案名稱 : L_GO_List.asp ' 建立日期 : 2006-08-14 ' 建立人員 : Brian ' 更新記錄 : ' 2006-08-14 [brian] 本頁面為Data Center版的團體搜尋結果頁面 ' 2006-08-14 [brian] 由元件產生XML資料傳到L_GO_List.asp ' 2006-08-14 [brian] 接收XML產生搜尋結果 ' ======================================================================== ' ========== ========== 程式執行區 brian 2006-08-14 ========== ========== Sub Main() ' ============================================================================== ' ===== ===== ===== ===== 接收表單參數及搜尋條件參數 ===== ===== ===== ===== SITE_CD = basicSQL("SITE_CD","MPSITEADM"," iWEB_ID='" & iWEB_ID & "'") MP_ID =Request("MP_ID") STYLE_TP=Request("STYLE_TP") ITN_AREA=request("TRAREA") ITN_NATN=request("TRNATN") ITN_CITY=request("TRCITY") Session("TRAREA") = Request("TRAREA") Session("TRNATN") = Request("TRNATN") Session("TRCITY") = Request("TRCITY") TWFG = Request("TWFG") hITN_AREA=request("hITN_AREA") hITN_NATN=request("hITN_NATN") hITN_CITY=request("hITN_CITY") ITN_RK=request("ITN_RK") AIR_PT=request("AIR_PT") iBITN=request("iBITN") iGAREA=request("iGAREA") if request("t_days")<>""then t_days=request("t_days") aryt_days=split(t_days,"-") s_t_days =aryt_days(0) e_t_days =aryt_days(1) else s_t_days="" e_t_days="" end if if request("bodjet")<>""then bodjet=request("bodjet") arybodjet=split(bodjet,"-") s_bodjet=Trim(arybodjet(0)) e_bodjet=Trim(arybodjet(1)) else s_bodjet="" e_bodjet="" end if s_year=Request("s_year") s_month=Request("s_month") s_day=Request("s_day") if Request("s_year") = "" then s_year = year(date()) if request("s_month") = "" or Request("s_month") = "00" then s_month = chklen(Month(Date()),2,"0") if request("s_day") = "" or Request("s_day") = "00" then s_day = chklen(Day(Date()),2,"0") s_date=Year(date())&"/"&chklen(Month(Date()),2,"0")&"/"&chklen(Day(Date()),2,"0") if s_year <> "0" and s_month <> "0" and s_day <> "0" then s_date=s_year&"/"&s_month&"/"&s_day else s_date=Year(date())&"/"&chklen(Month(Date()),2,"0")&"/"&chklen(Day(Date()),2,"0") end if response.write "" e_year=Request("e_year") e_month=Request("e_month") e_day=Request("e_day") if Request("e_year") = "" then e_year = "" if request("e_month") = "" then e_month = "" 'chklen(Month(Date()),2,"0") if request("e_day") = "" then e_day = "" 'chklen(Day(Date()),2,"0") ' response.write request("") ' e_date=Year(date())&"/"&chklen(Month(Date()),2,"0")&"/"&chklen(Day(Date()),2,"0") response.write "" e_date="9999/12/31" if e_year <> "0" and e_month <> "0" and e_day <> "0" then if e_year <> "" and e_month <> "" and e_day <> "" then e_date=e_year&"/"&chklen(e_month,2,"0")&"/"&chklen(e_day,2,"0") end if else e_date="9999/12/31" end if response.write "" iCARR_CD = Request("CARR_CD") frm=request("frm") If Trim(Request("AMRNK")) <> "" Then AMRNK = Trim(Request("AMRNK")) Else if Session("AMRNK")=""then AMRNK=GET_DEF_AMRNK() '1 else AMRNK=Session("AMRNK") end if End If loc=Request("loc") SUB_CD = Request("SUB_CD") If Request("SUB_CD") = "" Then SUB_CD = "GO" End If Show = Request("Show") JOIN_TP=Request("JOIN_TP") if JOIN_TP = "" then JOIN_TP = "1" ' ===== ===== ===== ===== 接收表單參數及搜尋條件參數 ===== ===== ===== ===== ' ===== ===== ===== ===== 產生相關參數值或站台設定值 ===== ===== ===== ===== select case frm case "L_GO_LIST" iPage=request("iPage") iKeyIdx=request("iKeyIdx") iOrdBy=request("iOrdBy") case "iOrdBy" iPage=request("iPage") iKeyIdx=request("iKeyIdx") iOrdBy=request("iOrdBy") case else iPage=request("iPage") iKeyIdx=request("iKeyIdx") iOrdBy=request("iOrdBy") end select if iPage="" then iPage = 1 SELL_AMT_NM = basicSQL("SELL_AMT_NM","MPSITEADM", "SITE_CD='"&SITE_CD&"'") RQ_PRICE_FG = basicSQL("RQ_PRICE_FG","MPSITEADM"," SITE_CD='" & Trim(SITE_CD) & "'") RQ_WORD = basicSQL("RQ_WORD","MPSITEADM"," SITE_CD='" & Trim(SITE_CD) & "'") RQ_WORD2 = basicSQL("RQ_WORD2","MPSITEADM"," SITE_CD='" & Trim(SITE_CD) & "'") USE_SELLRNK_FG = basicSQL("USE_SELLRNK_FG","MPSITEADM"," SITE_CD='" & SITE_CD & "'") RK_LIST_TP = basicSQL("RK_LIST_TP","MPSITEADM"," SITE_CD='" & Trim(SITE_CD) & "'") price = AMRNKTOCOLS(AMRNK,"AM") oLISTGRUP1 = basicSQL("GSEARCH_MGRP_FG","MPSITEADM"," SITE_CD='" & SITE_CD & "'") If oLISTGRUP1 = False Then oLISTGRUP = "Y" Else oLISTGRUP = "N" End If priceshow = "--" ordershow = "請電洽" pagecnt = 0 returl1 = URLBack(ITN_AREA,ITN_NATN,ITN_CITY,ITN_RK,AIR_PT,t_days,bodjet,s_date,e_date,iBITN,iGAREA) returl2 = returl1 ' ===== ===== ===== ===== 產生相關參數值或站台設定值 ===== ===== ===== ===== ' ===== ===== ===== ===== 根據搜尋參數傳入搜尋元件 ===== ===== ===== ===== iACCT_NO = basicSQL("MYAGT_CD","TRCHNLACCT","CHNL_ID='TRAVEL.NET'") 'Set xmlDom = Server.CreateObject("MSXML2.XMLHTTP") 'Set xmlDom = Server.CreateObject("MSXML2.XMLHTTP") Set xmlDom = Server.CreateObject("WinHttp.WinHttpRequest.5.1") Set doc=Server.Createobject("msxml2.domdocument") response.write "" if request("search_FG") = "" then fg = "0" else fg = "1" response.write "" Call GetGODC_List(iACCT_NO,"",ITN_AREA,ITN_NATN,ITN_CITY,s_date,e_date,s_t_days,e_t_days,AIR_PT,s_bodjet,e_bodjet,ITN_RK,SUB_CD,"Y","N","1","20",iPage,iOrdBy,"desc","",chkFG,xmlDom,doc) response.write "" end if response.write "" ' Call GetGODC_List("12345","","JP","TYO","","","","","","","","","GO","Y","Y","1","20","1","CURR_AM","desc","",chkFG,xmlDom,doc) 'Set doc=Server.Createobject("msxml2.domdocument") 'response.Write(DecBinaryForBig5(getXML)) 'Response.Write("==>>>"&doc.LoadXml(DecBinaryForBig5(xmlDom.ResponseBody))) Response.Write("") 'Response.Write("==>>>" & doc.xml) 'Response.End() ' ===== ===== ===== ===== 根據搜尋參數傳入搜尋元件 ===== ===== ===== ===== %> 團體旅遊 ">
團體旅遊快速查詢