|
fearnosurf -> RE: Issues pulling a correct date. (10/21/2005 16:01:05)
|
Sorry, I didn't mean to confuse you...or myself for that matter lol. He listed the info that I just posted to populate the Fields in the form. Once those are selected he then combines it into the tilde mess. here is the chunk of code that lists all of teh data that populates the fields, as well as him calling it and combining it all when the form posts to itself. <%
'lsStartDate = "3/12/2006"
'lsEndDate = "12/2/2006"
'lsStartDate = "12/24/2006"
'lsEndDate = "1/6/2007"
dim lsArrDt(140)
lsArrDt(1) = "3/12/2006 | 3/4/7/10/11/14/21 | BC/HH/HS | 3/12/2006"
lsArrDt(2) = "3/15/2006 | 4/11 | BC/HH/HS | 3/15/2006 (4, 11 night only)"
lsArrDt(3) = "3/16/2006 | 3/10 | BC/HH/HS | 3/16/2006 (3, 10 night only)"
lsArrDt(4) = "3/19/2006 | 3/4/7/10/11/14/21 | BC/HH/HS | 3/19/2006"
lsArrDt(5) = "3/22/2006 | 4/11 | BC/HH/HS | 3/22/2006 (4, 11 night only)"
lsArrDt(6) = "3/23/2006 | 3/10 | BC/HH/HS | 3/23/2006 (3, 10 night only)"
lsArrDt(7) = "3/26/2006 | 3/4/7/10/11/14/21 | BC/HH/HS | 3/26/2006"
lsArrDt(8) = "3/29/2006 | 4/11 | BC/HH/HS | 3/29/2006 (4, 11 night only)"
lsArrDt(9) = "3/30/2006 | 3/10 | BC/HH/HS | 3/30/2006 (3, 10 night only)"
lsArrDt(10) = "4/2/2006 | 3/4/7/10/11/14/21 | BC/HH/HS | 4/2/2006"
lsArrDt(11) = "4/5/2006 | 4/11 | BC/HH/HS | 4/5/2006 (4, 11 night only)"
lsArrDt(12) = "4/6/2006 | 3/10 | BC/HH/HS | 4/6/2006 (3, 10 night only)"
lsArrDt(13) = "4/9/2006 | 3/4/7/10/11/14/21 | BC/HH/HS | 4/9/2006"
lsArrDt(14) = "4/12/2006 | 4/11 | BC/HH/HS | 4/12/2006 (4, 11 night only)"
lsArrDt(15) = "4/13/2006 | 3/10 | BC/HH/HS | 4/13/2006 (3, 10 night only)"
lsArrDt(16) = "4/16/2006 | 3/4/7/10/11/14/21 | BC/HH/HS | 4/16/2006"
lsArrDt(17) = "4/19/2006 | 4/11 | BC/HH/HS | 4/19/2006 (4, 11 night only)"
lsArrDt(18) = "4/20/2006 | 3/10 | BC/HH/HS | 4/20/2006 (3, 10 night only)"
lsArrDt(19) = "4/23/2006 | 3/4/7/10/11/14/21 | BC/HH/HS | 4/23/2006"
lsArrDt(20) = "4/26/2006 | 4/11 | BC/HH/HS | 4/26/2006 (4, 11 night only)"
lsArrDt(21) = "4/27/2006 | 3/10 | BC/HH/HS | 4/27/2006 (3, 10 night only)"
lsArrDt(22) = "4/30/2006 | 3/4/7/10/11/14/21 | BC/HH/HS | 4/30/2006"
lsArrDt(23) = "5/3/2006 | 4/11 | BC/HH/HS | 5/3/2006 (4, 11 night only)"
lsArrDt(24) = "5/4/2006 | 3/10 | BC/HH/HS | 5/4/2006 (3, 10 night only)"
lsArrDt(25) = "5/7/2006 | 3/4/7/10/11/14/21 | BC/HH/HS | 5/7/2006"
lsArrDt(26) = "5/10/2006 | 4/11 | BC/HH/HS | 5/10/2006 (4, 11 night only)"
lsArrDt(27) = "5/11/2006 | 3/10 | BC/HH/HS | 5/11/2006 (3, 10 night only)"
lsArrDt(28) = "5/14/2006 | 3/4/7/10/11/14/21 | BC/HH/HS | 5/14/2006"
lsArrDt(29) = "5/17/2006 | 4/11 | BC/HH/HS | 5/17/2006 (4, 11 night only)"
lsArrDt(30) = "5/18/2006 | 3/10 | BC/HH/HS | 5/18/2006 (3, 10 night only)"
lsArrDt(31) = "5/21/2006 | 3/4/7/10/11/14/21 | BC/HH/HS | 5/21/2006"
lsArrDt(32) = "5/24/2006 | 4/11 | BC/HH/HS | 5/24/2006 (4, 11 night only)"
lsArrDt(33) = "5/25/2006 | 3/10 | BC/HH/HS | 5/25/2006 (3, 10 night only)"
lsArrDt(34) = "5/28/2006 | 3/4/7/10/11/14/21 | BC/HH/HS | 5/28/2006"
lsArrDt(35) = "5/31/2006 | 4/11 | BC/HH/HS | 5/31/2006 (4, 11 night only)"
lsArrDt(36) = "6/1/2006 | 3/10 | BC/HH/HS | 6/1/2006 (3, 10 night only)"
lsArrDt(37) = "6/4/2006 | 3/4/7/10/11/14/21 | BC/HH/HS | 6/4/2006"
lsArrDt(38) = "6/7/2006 | 4/11 | BC/HH/HS | 6/7/2006 (4, 11 night only)"
lsArrDt(39) = "6/8/2006 | 3/10 | BC/HH/HS | 6/8/2006 (3, 10 night only)"
lsArrDt(40) = "6/11/2006 | 3/4/7/10/11/14/21 | BC/HH/HS | 6/11/2006"
lsArrDt(41) = "6/14/2006 | 4/11 | BC/HH/HS | 6/14/2006 (4, 11 night only)"
lsArrDt(42) = "6/15/2006 | 3/10 | BC/HH/HS | 6/15/2006 (3, 10 night only)"
lsArrDt(43) = "6/18/2006 | 3/4/7/10/11/14/21 | BC/HH/HS | 6/18/2006"
lsArrDt(44) = "6/21/2006 | 4/11 | BC/HH/HS | 6/21/2006 (4, 11 night only)"
lsArrDt(45) = "6/22/2006 | 3/10 | BC/HH/HS | 6/22/2006 (3, 10 night only)"
lsArrDt(46) = "6/25/2006 | 3/4/7/10/11/14/21 | BC/HH/HS | 6/25/2006"
lsArrDt(47) = "6/28/2006 | 4/11 | BC/HH/HS | 6/28/2006 (4, 11 night only)"
lsArrDt(48) = "6/29/2006 | 3/10 | BC/HH/HS | 6/29/2006 (3, 10 night only)"
lsArrDt(49) = "7/2/2006 | 3/4/7/10/11/14/21 | BC/HH/HS | 7/2/2006"
lsArrDt(50) = "7/5/2006 | 4/11 | BC/HH/HS | 7/5/2006 (4, 11 night only)"
lsArrDt(51) = "7/6/2006 | 3/10 | BC/HH/HS | 7/6/2006 (3, 10 night only)"
lsArrDt(52) = "7/9/2006 | 3/4/7/10/11/14/21 | BC/HH/HS | 7/9/2006"
lsArrDt(53) = "7/12/2006 | 4/11 | BC/HH/HS | 7/12/2006 (4, 11 night only)"
lsArrDt(54) = "7/13/2006 | 3/10 | BC/HH/HS | 7/13/2006 (3, 10 night only)"
lsArrDt(55) = "7/16/2006 | 3/4/7/10/11/14/21 | BC/HH/HS | 7/16/2006"
lsArrDt(56) = "7/19/2006 | 4/11 | BC/HH/HS | 7/19/2006 (4, 11 night only)"
lsArrDt(57) = "7/20/2006 | 3/10 | BC/HH/HS | 7/20/2006 (3, 10 night only)"
lsArrDt(58) = "7/23/2006 | 3/4/7/10/11/14/21 | BC/HH/HS | 7/23/2006"
lsArrDt(59) = "7/26/2006 | 4/11 | BC/HH/HS | 7/26/2006 (4, 11 night only)"
lsArrDt(60) = "7/27/2006 | 3/10 | BC/HH/HS | 7/27/2006 (3, 10 night only)"
lsArrDt(61) = "7/30/2006 | 3/4/7/10/11/14/21 | BC/HH/HS | 7/30/2006"
lsArrDt(62) = "8/2/2006 | 4/11 | BC/HH/HS | 8/2/2006 (4, 11 night only)"
lsArrDt(63) = "8/3/2006 | 3/10 | BC/HH/HS | 8/3/2006 (3, 10 night only)"
lsArrDt(64) = "8/6/2006 | 3/4/7/10/11/14/21 | BC/HH/HS | 8/6/2006"
lsArrDt(65) = "8/9/2006 | 4/11 | BC/HH/HS | 8/9/2006 (4, 11 night only)"
lsArrDt(66) = "8/10/2006 | 3/10 | BC/HH/HS | 8/10/2006 (3, 10 night only)"
lsArrDt(67) = "8/13/2006 | 3/4/7/10/11/14/21 | BC/HH/HS | 8/13/2006"
lsArrDt(68) = "8/16/2006 | 4/11 | BC/HH/HS | 8/16/2006 (4, 11 night only)"
lsArrDt(69) = "8/17/2006 | 3/10 | BC/HH/HS | 8/17/2006 (3, 10 night only)"
lsArrDt(70) = "8/20/2006 | 3/4/7/10/11/14/21 | BC/HH/HS | 8/20/2006"
lsArrDt(71) = "8/23/2006 | 4/11 | BC/HH/HS | 8/23/2006 (4, 11 night only)"
lsArrDt(72) = "8/24/2006 | 3/10 | BC/HH/HS | 8/24/2006 (3, 10 night only)"
lsArrDt(73) = "8/27/2006 | 3/4/7/10/11/14/21 | BC/HH/HS | 8/27/2006"
lsArrDt(74) = "8/30/2006 | 4/11 | BC/HH/HS | 8/30/2006 (4, 11 night only)"
lsArrDt(75) = "8/31/2006 | 3/10 | BC/HH/HS | 8/31/2006 (3, 10 night only)"
lsArrDt(76) = "9/3/2006 | 3/4/7/10/11/14/21 | BC/HH/HS | 9/3/2006"
lsArrDt(77) = "9/6/2006 | 4/11 | BC/HH/HS | 9/6/2006 (4, 11 night only)"
lsArrDt(78) = "9/7/2006 | 3/10 | BC/HH/HS | 9/7/2006 (3, 10 night only)"
lsArrDt(79) = "9/10/2006 | 3/4/7/10/11/14/21 | BC/HH/HS | 9/10/2006"
lsArrDt(80) = "9/13/2006 | 4/11 | BC/HH/HS | 9/13/2006 (4, 11 night only)"
lsArrDt(81) = "9/14/2006 | 3/10 | BC/HH/HS | 9/14/2006 (3, 10 night only)"
lsArrDt(82) = "9/17/2006 | 3/4/7/10/11/14/21 | BC/HH/HS | 9/17/2006"
lsArrDt(83) = "9/20/2006 | 4/11 | BC/HH/HS | 9/20/2006 (4, 11 night only)"
lsArrDt(84) = "9/21/2006 | 3/10 | BC/HH/HS | 9/21/2006 (3, 10 night only)"
lsArrDt(85) = "9/24/2006 | 3/4/7/10/11/14/21 | BC/HH/HS | 9/24/2006"
lsArrDt(86) = "9/27/2006 | 4/11 | BC/HH/HS | 9/27/2006 (4, 11 night only)"
lsArrDt(87) = "9/28/2006 | 3/10 | BC/HH/HS | 9/28/2006 (3, 10 night only)"
lsArrDt(88) = "10/1/2006 | 3/4/7/10/11/14/21 | BC/HH/HS | 10/1/2006"
lsArrDt(89) = "10/4/2006 | 4/11 | BC/HH/HS | 10/4/2006 (4, 11 night only)"
lsArrDt(90) = "10/5/2006 | 3/10 | BC/HH/HS | 10/5/2006 (3, 10 night only)"
lsArrDt(91) = "10/8/2006 | 3/4/7/10/11/14/21 | BC/HH/HS | 10/8/2006"
lsArrDt(92) = "10/11/2006 | 4/11 | BC/HH/HS | 10/11/2006 (4, 11 night only)"
lsArrDt(93) = "10/12/2006 | 3/10 | BC/HH/HS | 10/12/2006 (3, 10 night only)"
lsArrDt(94) = "10/15/2006 | 3/4/7/10/11/14/21 | BC/HH/HS | 10/15/2006"
lsArrDt(95) = "10/18/2006 | 4/11 | BC/HH/HS | 10/18/2006 (4, 11 night only)"
lsArrDt(96) = "10/19/2006 | 3/10 | BC/HH/HS | 10/19/2006 (3, 10 night only)"
lsArrDt(97) = "10/22/2006 | 3/4/7/10/11/14/21 | BC/HH/HS | 10/22/2006"
lsArrDt(98) = "10/25/2006 | 4/11 | BC/HH/HS | 10/25/2006 (4, 11 night only)"
lsArrDt(99) = "10/26/2006 | 3/10 | BC/HH/HS | 10/26/2006 (3, 10 night only)"
lsArrDt(100) = "10/29/2006 | 3/4/7/10/11/14/21 | BC/HH/HS | 10/29/2006"
lsArrDt(101) = "11/1/2006 | 4/11 | BC/HH/HS | 11/1/2006 (4, 11 night only)"
lsArrDt(102) = "11/2/2006 | 3/10 | BC/HH/HS | 11/2/2006 (3, 10 night only)"
lsArrDt(103) = "11/5/2006 | 3/4/7/10/11/14/21 | BC/HH/HS | 11/5/2006"
lsArrDt(104) = "11/8/2006 | 4/11 | BC/HH/HS | 11/8/2006 (4, 11 night only)"
lsArrDt(105) = "11/9/2006 | 3/10 | BC/HH/HS | 11/9/2006 (3, 10 night only)"
lsArrDt(106) = "11/12/2006 | 3/4/7/10/11/14/21 | BC/HH/HS | 11/12/2006"
lsArrDt(107) = "11/15/2006 | 4/11 | BC/HH/HS | 11/15/2006 (4, 11 night only)"
lsArrDt(108) = "11/16/2006 | 3/10 | BC/HH/HS | 11/16/2006 (3, 10 night only)"
'
' Limits due to end of period.
'
lsArrDt(109) = "11/19/2006 | 3/4/7/10/11/14 | BC/HH/HS | 11/19/2006 (3, 4, 7, 10, 11, 14 night only)"
lsArrDt(110) = "11/22/2006 | 4/11 | BC/HH/HS | 11/22/2006 (4, 11 night only)"
lsArrDt(111) = "11/23/2006 | 3/10 | BC/HH/HS | 11/23/2006 (3, 10 night only)"
lsArrDt(112) = "11/26/2006 | 3/4/7 | BC/HH/HS | 11/26/2006 (3, 4, 7 night only)"
lsArrDt(113) = "11/29/2006 | 4 | BC/HH/HS | 11/29/2006 (4 night only)"
lsArrDt(114) = "11/30/2006 | 3 | BC/HH/HS | 11/30/2006 (3 night only)"
'
' Christmas
'
'
' Limits due to end of period.
'
lsArrDt(115) = "12/24/2006 | 3/4/7/10/11/14 | BC/HH/HS | 12/24/2006 (3, 4, 7, 10, 11, 14 night only)"
lsArrDt(116) = "12/27/2006 | 4 | BC/HH/HS | 12/27/2006 (4, 11 night only)"
lsArrDt(117) = "12/28/2006 | 3 | BC/HH/HS | 12/28/2006 (3, 10 night only)"
lsArrDt(118) = "12/31/2006 | 3/4/7 | BC/HH/HS | 12/31/2006 (3, 4, 7 night only)"
lsArrDt(119) = "1/3/2007 | 4/11 | BC/HH/HS | 1/3/2007 (4, 11 night only)"
lsArrDt(120) = "1/4/2007 | 3/10 | BC/HH/HS | 1/4/2007 (3, 10 night only)"
'lsStartDate = "3/12/2006"
'lsEndDate = "12/2/2006"
'lsStartDate = "12/24/2006"
'lsEndDate = "1/6/2007"
dim ArrDtMax
ArrDtMax = 120
dim ArrDtIx
%>
<%
dim lsNights(7)
lsNights(1) = 3
lsNights(2) = 4
lsNights(3) = 7
lsNights(4) = 10
lsNights(5) = 11
lsNights(6) = 14
lsNights(7) = 21
dim NightsMax
NightsMax = 7
dim NightsIx
%>
<%
dim lsHomes(7)
lsHomes(1) = 1
lsHomes(2) = 2
lsHomes(3) = 3
lsHomes(4) = 4
lsHomes(5) = 5
dim HomesMax
HomesMax = 5
dim HomesIx
%>
<%
dim lsAffClub(8)
lsAffClub(1) = "BC"
lsAffClub(2) = "HH"
lsAffClub(3) = "HS"
lsAffClub(4) = "PV"
dim AffClubMax
AffClubMax = 3
dim AffClubIx
%>
<%
dim lsReservationException
lsReservationException = ""
if session("resBookingHeader") = "" then
msbInitBookingVariables
else
msbParseBookingVariables
end if
if Request.Form("MM_dangit") = "homehigh_non_pv" then
x1 = CStr(Request.ServerVariables("SCRIPT_NAME"))
j1 = mfnInstrRev(x1, "/")
if j1 > 0 then
x1 = mid(x1, j1 + 1)
end if
session("resBookingHeader") = x1 & "~" & _
lsToday & "~" & _
replace(request.form("MemberName"), "~", "-") & "~" & _
replace(request.form("daytimePhones"), "~", "-") & "~" & _
replace(request.form("emailAddress"), "~", "-") & "~" & _
replace(request.form("homeClub"), "~", "-") & "~" & _
replace(request.form("nightCount"), "~", "-") & "~" & _
replace(request.form("specialReqs"), "~", "-") & "~" & _
"One_Bedroom" & "~" & _
"Two_Bedroom" & "~" & _
"Three_Bedroom" & "~" & _
"Four_Bedroom" & "~" & _
"Flex_Bedroom" & "~" & _
"Season_To_Use"
session("resBookingDetail") = Request.Form("arrDt11") & "~" & _
Request.Form("nights11") & "~" & _
Request.Form("homes11") & "~" & _
"NULL" & "~" & _
Request.Form("arrDt12") & "~" & _
Request.Form("nights12") & "~" & _
Request.Form("homes12") & "~" & _
"NULL" & "~" & _
Request.Form("arrDt13") & "~" & _
Request.Form("nights13") & "~" & _
Request.Form("homes13") & "~" & _
"NULL" & "~" & _
Request.Form("arrDt21") & "~" & _
Request.Form("nights21") & "~" & _
Request.Form("homes21") & "~" & _
"NULL" & "~" & _
Request.Form("arrDt22") & "~" & _
Request.Form("nights22") & "~" & _
Request.Form("homes22") & "~" & _
"NULL" & "~" & _
Request.Form("arrDt23") & "~" & _
Request.Form("nights23") & "~" & _
Request.Form("homes23") & "~" & _
"NULL" & "~" & _
Request.Form("arrDt31") & "~" & _
Request.Form("nights31") & "~" & _
Request.Form("homes31") & "~" & _
"NULL" & "~" & _
Request.Form("arrDt32") & "~" & _
Request.Form("nights32") & "~" & _
Request.Form("homes32") & "~" & _
"NULL" & "~" & _
Request.Form("arrDt33") & "~" & _
Request.Form("nights33") & "~" & _
Request.Form("homes33") & "~" & _
"NULL" & "~" & _
Request.Form("arrDt41") & "~" & _
Request.Form("nights41") & "~" & _
Request.Form("homes41") & "~" & _
"NULL" & "~" & _
Request.Form("arrDt42") & "~" & _
Request.Form("nights42") & "~" & _
Request.Form("homes42") & "~" & _
"NULL" & "~" & _
Request.Form("arrDt43") & "~" & _
Request.Form("nights43") & "~" & _
Request.Form("homes43") & "~" & _
"NULL" & "~" & _
Request.Form("arrDt51") & "~" & _
Request.Form("nights51") & "~" & _
Request.Form("homes51") & "~" & _
"NULL" & "~" & _
Request.Form("arrDt52") & "~" & _
Request.Form("nights52") & "~" & _
Request.Form("homes52") & "~" & _
"NULL" & "~" & _
Request.Form("arrDt53") & "~" & _
Request.Form("nights53") & "~" & _
Request.Form("homes53") & "~" & _
"NULL" & "~" & _
Request.Form("arrDt61") & "~" & _
Request.Form("nights61") & "~" & _
Request.Form("homes61") & "~" & _
"NULL" & "~" & _
Request.Form("arrDt62") & "~" & _
Request.Form("nights62") & "~" & _
Request.Form("homes62") & "~" & _
"NULL" & "~" & _
Request.Form("arrDt63") & "~" & _
Request.Form("nights63") & "~" & _
Request.Form("homes63") & "~" & _
"NULL" & "~" & _
Request.Form("arrDt71") & "~" & _
Request.Form("nights71") & "~" & _
Request.Form("homes71") & "~" & _
"NULL" & "~" & _
Request.Form("arrDt72") & "~" & _
Request.Form("nights72") & "~" & _
Request.Form("homes72") & "~" & _
"NULL" & "~" & _
Request.Form("arrDt73") & "~" & _
Request.Form("nights73") & "~" & _
Request.Form("homes73") & "~" & _
"NULL" & "~"
msbParseBookingVariables
lsReservationException = EditReservationFields()
if lsReservationException = "" then
response.redirect("homehigh_res_finish.asp")
else
session("resBookingHeader") = ""
session("resBookingDetail") = ""
lsReservationException = lsReservationException & "</ul>Please correct and resubmit."
end if
end if
%>
|
|
|
|