% dim ecStr, ec, OKDate, OKMonth, OKDay, OKYear, OKNights, OKRooms, darr(12) ' Check for error codes ec = request.querystring("ec") if ec <> "" then if ec = "1" then ecStr = "Invalid Check in Date. Please Reenter" if ec = "2" then ecStr = "Reservations must be made " & request.querystring("rm") & " day(s) in advance." else ecStr = "" end if darr(1) = "January" darr(2) = "February" darr(3) = "March" darr(4) = "April" darr(5) = "May" darr(6) = "June" darr(7) = "July" darr(8) = "August" darr(9) = "September" darr(10) = "October" darr(11) = "November" darr(12) = "December" resmin = application("resmin") cutoff = 15 if resmin < 3 then if datepart("h", now) >= cutoff then resmin = resmin + 1 end if OKDate = dateadd("d", date, resmin) OKMonth = month(OKDate) OKDay = day(OKDate) OKYear = year(OKDate) OKNights = 3 OKRooms = 1 %>
|
Florida Travel Resources Select a destination:
More Florida sites: |