% Hotel = Request.form("Hotel") dDate = Request.form("Dates") Adults = Request.form("Adults") Kids = Request.form("Kids") Duration = Request.form("Duration") IF adults = "1" then nAdults = 1 END IF IF adults = "2" then nAdults = 2 END IF IF adults = "3" then nAdults = 3 END IF IF adults = "4" then nAdults = 4 END IF IF adults = "5" then nAdults = 5 END IF IF adults = "6" then nAdults = 6 END IF IF kids = "1" then nkids = 1 END IF IF kids = "2" then nkids = 2 END IF IF kids = "3" then nkids = 3 END IF IF kids = "4" then nkids = 4 END IF IF kids = "5" then nkids = 5 END IF IF kids = "6" then nkids = 6 END IF IF kids = "0" then nkids = 0 END IF PartySize = nAdults + nKids IF Partysize >= 9 THEN response.redirect("disneyCustom.html") END IF sql = "Select * from " & Hotel & "'" Set disRS = objConn.Execute (sql) AdultExtra = 0 AdultSup = 0 if nAdults = 1 THEN AdultExtra = disRS("Single") END IF RoomOcc = disRS("MaxOCC") IF PartySize <= RoomOcc THEN if nAdults = 3 THEN sql = "Select * from "& Hotel & "adult'" Set disRSadult = objConn.Execute (sql) AdultSup = disRSadult(dDate) AdultDis = disRS(dDate) - AdultSup END IF if nAdults = 4 THEN sql = "Select * from "& Hotel & "adult'" Set disRSadult = objConn.Execute (sql) AdultSup = disRSadult(dDate) AdultDis = disRS(dDate) - AdultSup AdultDis = AdultDis * 2 END IF sql = "Select * from "& Hotel & "kids'" Set disRSkids = objConn.Execute (sql) AdultTotal = disRS(dDate) * Adults AdultTotal = FormatNumber(AdulTtotal,2) AdultDiscount = disRS(dDate) - AdultSup pTotal = AdultTotal + AdultExtra - AdultDis AdultTotal = "£" & AdultTotal KidsTotal = disRSkids(dDate) * Kids KidsTotal = FormatNumber(KidsTotal,2) pTotal = pTotal + KidsTotal PTotal = FormatNumber(pTotal,2) KidsText = " x " & disRSkids(dDate) & " = £" & KidsTotal IF KidsTotal = 0.00 THEN KidsText = "GO FREE!" END IF IF Kids = "0" THEN KidsText = " " END IF If nAdults = 1 AND nKids = 1 THEN pTotal = pTotal - KidsTotal KidsTotal = disRS(dDate) * Kids pTotal = pTotal + KidsTotal PTotal = FormatNumber(pTotal,2) KidsTotal = FormatNumber(KidsTotal,2) KidsText = " x £" & disRS(dDate) & " = £" & KidsTotal IF KidsTotal = 0.00 THEN KidsText = "GO FREE!" END IF IF Kids = "0" THEN KidsText = " " END IF END IF If nAdults = 1 AND nKids = 2 THEN pTotal = pTotal - KidsTotal KidsTotal = disRS(dDate) * 1 KidsTotal2 = disRSkids(dDate) * 1 pTotal = pTotal + KidsTotal + KidsTotal2 PTotal = FormatNumber(pTotal,2) KidsTotal = KidsTotal + KidsTotal2 KidsTotal = FormatNumber(KidsTotal,2) KidsText = "1 x £" & disRS(dDate) & ", 1 x £" & disRSkids(dDate) & " = £" & KidsTotal IF KidsTotal = 0.00 THEN KidsText = "GO FREE!" END IF IF Kids = "0" THEN KidsText = " " END IF END IF If nAdults = 1 AND nKids = 3 THEN pTotal = pTotal - KidsTotal KidsTotal = disRS(dDate) * 1 KidsTotal2 = disRSkids(dDate) * 2 pTotal = pTotal + KidsTotal + KidsTotal2 PTotal = FormatNumber(pTotal,2) KidsTotal = KidsTotal + KidsTotal2 KidsTotal = FormatNumber(KidsTotal,2) KidsText = "1 x £" & disRS(dDate) & ", 2 x £" & disRSkids(dDate) & " = £" & KidsTotal IF KidsTotal = 0.00 THEN KidsText = "GO FREE!" END IF IF Kids = "0" THEN KidsText = " " END IF END IF END IF IF PartySize > RoomOcc THEN IF nAdults = 1 THEN response.redirect("disneyCustom.html") END IF if nAdults = 3 THEN AdultExtra = disRS("Single") END IF if nAdults = 5 THEN sql = "Select * from "& Hotel & "adult'" Set disRSadult = objConn.Execute (sql) AdultSup = disRSadult(dDate) AdultDis = disRS(dDate) - AdultSup END IF if nAdults = 6 THEN sql = "Select * from "& Hotel & "adult'" Set disRSadult = objConn.Execute (sql) AdultSup = disRSadult(dDate) AdultDis = disRS(dDate) - AdultSup AdultDis = AdultDis * 2 END IF sql = "Select * from "& Hotel & "kids'" Set disRSkids = objConn.Execute (sql) AdultTotal = disRS(dDate) * Adults AdultTotal = FormatNumber(AdulTtotal,2) pTotal = AdultTotal + AdultExtra - AdultDis AdultTotal = "£" & AdultTotal KidsTotal = disRSkids(dDate) * Kids pTotal = pTotal + KidsTotal PTotal = FormatNumber(pTotal,2) KidsTotal = FormatNumber(KidsTotal,2) KidsText = " x £" & disRSkids(dDate) & " = £" & KidsTotal IF KidsTotal = 0.00 THEN KidsText = "GO FREE!" END IF IF Kids = "0" THEN KidsText = " " END IF END IF IF Hotel = "Disney1" Then HotelName = "Disney's Santa Fe Hotel" END IF IF Hotel = "Disney2" Then HotelName = "Disney's Hotel Cheyenne" END IF IF Hotel = "Disney3" Then HotelName = "Disney's Sequoia Lodge" END IF IF Hotel = "Disney4" Then HotelName = "Disney's Newport Bay Club" END IF IF Hotel = "Disney5" Then HotelName = "Thomas Cook's Explorers Hotel" END IF IF Hotel = "Disney6" Then HotelName = "Vienna International Magic Circus" END IF %>
|
|||||||||||||||||||||||
![]() |
|||||||||||||||||||||||
|
|||||||||||||||||||||||
|
|||||||||||||||||||||||
Prices are per person, based on two sharing. Named accommodation may be changed if necessary by the tour operator. If this is the case you will be advised of all new details at time of enquiry. All holidays and prices are subject to availability, change and possible fuel surcharges
Home | About Us | Contact Us | Terms | Privacy | Site Map | Disneyland Paris
|
|||||||||||||||||||||||