<% if http(0) = "www" then Response.write("山富國際旅行社-日本包你樂GOGO") else Set AgentName = RITDB.GetDB("SELECT * FROM B2B2C_AgentMember WHERE (ID = '"& http_name &"')", 1, 1) if LEN(AgentName("NAME") )>0 then Response.write("【"& AgentName("NAME") &"】日本包你樂GOGO") end if end if %>

<% else Server.Execute("/foot/" & http_name & ".htm") end if %>

<% if http(0) = "www" then %>

國外旅遊｜台灣旅遊｜國際機票｜富遊網

<% end if %>

出團日期：

<%=GetLeavDate("TOH05CI04",4)%>

出團日期：

<%=GetLeavDate("SPK05CI02",4)%>

出團日期：

<%=GetLeavDate("SPK05CI06",4)%>

出團日期：

<%=GetLeavDate("SPK05CI04",4)%>

出團日期：

<%=GetLeavDate("RITULA05UA07",4)%>

出團日期：

<%=GetLeavDate("RITULA05UA08",4)%>

出團日期：

<%=GetLeavDate("SPK05PAK06",4)%>

出團日期：

<%=GetLeavDate("SPK05PAK05",4)%>

<% if http(0) = "www" then %>

<% 'Set RITDB = Nothing 'Set RITDB = Server.CreateObject( "RITDB.DB" ) Function GetMinPrice(ByVal MGRUP_CD) '取得最低售價 Dim MinPrice Set MinPrice = RITDB.GetDB("SELECT MIN(TRSUBD.PRD_AM3) AS PRD_AM3 FROM TRGRUP INNER JOIN TRSUBD ON TRGRUP.GRUP_CD = TRSUBD.GRUP_CD WHERE (TRGRUP.MGRUP_CD = N'" & MGRUP_CD & "') AND (TRGRUP.WEB_PD = N'Y') AND (TRSUBD.BED_TP = N'1') AND (TRSUBD.JOIN_TP = N'1') AND (TRGRUP.GRUP_TP = N'2') AND (TRGRUP.HOT_TP <> N'3') AND (TRGRUP.LEAV_DT >= GETDATE()) AND (TRGRUP.FULL_FG = N'1') AND (TRSUBD.PRD_AM3 <> 0)", 1, 1 ) if Not MinPrice.EOF Then 'GetMinPrice = Replace(FormatCurrency(MinPrice("PRD_AM3"),0,-1,-1,-1),"NT$","") & " 元起" if MinPrice("PRD_AM3") <>""then GetMinPrice = "$" & MinPrice("PRD_AM3") & " 起" else GetMinPrice = "售完" end if else GetMinPrice = "價格未定" end if Set MinPrice = Nothing End Function Function GetLeavDate(ByVal MGRUP_CD,ByVal Item) '取得出團日期 Dim LeavDate Set LeavDate = RITDB.GetDB("SELECT TOP " & Item & " TRGRUP.LEAV_DT FROM TRGRUP INNER JOIN TRSUBD ON TRGRUP.GRUP_CD = TRSUBD.GRUP_CD WHERE (TRGRUP.MGRUP_CD = N'" & MGRUP_CD & "') AND (TRGRUP.WEB_PD = N'Y') AND (TRSUBD.BED_TP = N'1') AND (TRSUBD.JOIN_TP = N'1') AND (TRGRUP.GRUP_TP = N'2') AND (TRGRUP.HOT_TP <> N'3') AND (TRGRUP.LEAV_DT >= GETDATE()) AND (TRGRUP.FULL_FG = N'1') AND (TRSUBD.PRD_AM3 <> 0) ORDER BY TRGRUP.LEAV_DT", 1, 1 ) if Not LeavDate.EOF Then Do While Not LeavDate.EOF if GetLeavDate = "" Then GetLeavDate = Month(LeavDate("LEAV_DT")) & "/" & Day(LeavDate("LEAV_DT")) else GetLeavDate = GetLeavDate & "、" & Month(LeavDate("LEAV_DT")) & "/" & Day(LeavDate("LEAV_DT")) end if LeavDate.MOveNext Loop else GetLeavDate = "滿" end if Set LeavDate = Nothing End Function %>