<% Dim strPageTitle strPageTitle = "Confirmation" %> <% Sub SubMain(ByRef objQuery) Call SubContent(objQuery) End Sub Sub SubContent(ByRef objQuery) %>

<%'//LEFT AREA %>

<%'// Contents Start ------------------------------------------------------------------------------------------------------%> <% Dim UserID, UserType UserID = Trim(Request("UserID")) UserType = Trim(Request("UserType")) IF SESSION("USERID") <> "" Then UserID = SESSION("USERID") UserType = "agent" End If '//response.write UserID &"::"& UserType IF UserID = "" Then %>

For Agent : Please login to get your online reservation. For Individual User : Please enter your email address as below.

Email Address

<% End If '//Calender Start Dim iYear, iMonth, iDay, totDay ,iWeekDay, iLastDay, RecDay, NowDate, NowYear, NowMonth RecDay =Request.Querystring("RecDay_y") '달력 네이베이션 다음달 이전달 받은 변수 IF EventDate_MM1 <> "" Then Dim tempM, tempD IF Left(EventDate_MM1, 1) = "0" Then tempM = Right(EventDate_MM1, 1) Else tempM = EventDate_MM1 End If IF Left(EventDate_DD1, 1) = "0" Then tempD = Right(EventDate_DD1, 1) Else tempD = EventDate_DD1 End If RecDay = tempM &"/"& tempD &"/"& EventDate_YYYY1 End IF NowYear = Year(Date) ' 현재 년을 저장함. NowMonth = Month(Date) ' 현재 달을 저장함. iDay = Day(Date) '현재 날을 저장함. if RecDay ="" then '네이게이션에 받은 변수가 없으면 현재 값으로 초기화 초기화 iYear = NowYear iMonth = NowMonth else iYear = Year(RecDay) '요구하는 년과 달을 구함. iMonth = Month(RecDay) end If iWeekDay = Weekday(DateSerial(iYear, iMonth, 01)) ' 요구하는달의 첫날의 요일을 숫자로 알아낸다. '일~ 토 요일을 1 ~ 7로 정의 if iMonth= 4 or iMonth=6 or iMonth = 9 or iMonth =11 then ' 그달의 날수를 선택 totDay = 30 elseif iMonth =2 then if (((iYear mod 4 = 0 ) and (iYear mod 100 <> 0)) or (iYear mod 400 = 0)) then '윤년을 체크함. totDay =29 else totDay = 28 end if else totDay =31 end if Dim sMonth Select Case iMonth Case "1" sMonth = "January" Case "2" sMonth = "February" Case "3" sMonth = "March" Case "4" sMonth = "April" Case "5" sMonth = "May" Case "6" sMonth = "June" Case "7" sMonth = "July" Case "8" sMonth = "August" Case "9" sMonth = "September" Case "10" sMonth = "October" Case "11" sMonth = "November" Case "12" sMonth = "December" End Select %>

<%=sMonth%> <%=iYear%>

<% Dim targetMonth, targetDay, targetYear, TargetDate targetMonth = iMonth targetYear = iYear IF Len(Trim(targetMonth)) > 1 Then targetMonth = Trim(targetMonth) Else targetMonth = "0" & Trim(targetMonth) End IF Dim sQuery, rsCal, arrCal, nxx IF UserID <> "" Then sQuery = " SELECT MAX(user_id) as user_id, MAX(confirmation_id) as confirmation_id, depart_date, return_date, " sQuery = sQuery & " MAX(name_first) as name_first, MAX(name_last) as name_last, MAX(email) as email " sQuery = sQuery & " FROM S_Reservation " sQuery = sQuery & " WHERE email = '"&UserID&"' and " sQuery = sQuery & " (Left(depart_date,2) = '"&targetMonth&"' or Left(return_date,2) = '"&targetMonth&"') " sQuery = sQuery & " and (Right(depart_date,4) = '"&targetYear&"' or Right(return_date,4) = '"&targetYear&"') " sQuery = sQuery & " Group By depart_date, return_date Order By depart_date ASC " Set rsCal = objQuery.execute(sQuery) If rsCal.EOF Then arrCal = Empty Else arrCal = rsCal.GetRows End If rsCal.close Set rsCal = Nothing End IF Response.write sQuery '/Response.end Dim j, icX j = 1 nxx = 0 dim interval interval = iWeekDay -1 '공백을 채우기위한 변수 Do while j <= totDay response.write "" for icX=1 to 7 if interval > 0 then ' 첫라인인 공백을 체크함여 있으면 공백을 삽입 response.write " " interval = interval -1 ' 하나씩 감산하여 공백을 체움 else if j <= totDay then response.write "" Else '--------------------------------- if icX <> 1 then if (j = iDay) and (iYear = NowYear) and NowMonth = iMonth then response.write "" & j & "" else response.write j end if Response.write "" else ' 일요일에 빨간색으로 칠함 if (j = iDay) and (iYear = NowYear) and NowMonth = iMonth then response.write "" & j & "" else response.write " " & j & "" end if end If End IF j=j+1 else '날수를 채우고 난 빈칸의 여백 채우기 response.write "" end if end if next response.write "" Loop %>

SUN	MON	TUE	WED	THU	FRI	SAT
	" '--------------------------------- targetDay = j IF Len(Trim(targetDay)) > 1 Then targetDay = Trim(targetDay) Else targetDay = "0" & Trim(targetDay) End IF TargetDate = targetMonth&"/"&targetDay&"/"&targetYear '//Response.write TargetDate IF IsArray(arrCal) Then if icX <> 1 then if (j = iDay) and (iYear = NowYear) and NowMonth = iMonth then response.write "" & j & "" else response.write j end If else ' 일요일에 빨간색으로 칠함 if (j = iDay) and (iYear = NowYear) and NowMonth = iMonth then response.write "" & j & "" else response.write "" & j & "" end If end If For nxx = 0 To UBound(arrCal, 2) IF Trim(arrCal(2, nxx)) = TargetDate Then Response.write " Depart" End If IF Trim(arrCal(3, nxx)) = TargetDate Then Response.write " Return" End IF Next Response.write "

<% '// Calendar End -------------------------------------------------------------------------------------------------- %> <%'// Contents End ------------------------------------------------------------------------------------------------------%>

<% End Sub %>