<% 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 %>