Option Explicit
Dim i, j, k
Dim strRowDelimiter, strColDelimiter
Dim Grid1Prev_row, Grid1Prev_row2
Dim Grid2Prev_row, Grid2Prev_row2
Dim Grid3Prev_row, Grid3Prev_row2
Dim beforeColor1, clickColor1
Dim beforeColor2, clickColor2
Dim beforeColor3, clickColor3
'¹öÆ° ¾ø´Â ±×¸®µå
Dim SimGridPrev_row, SimGridPrev_row2
Dim Message, strInterval
Dim gPNR_NUMBER
Dim intPaxCNT				' ž½Â°´¼ö

Dim WinPop1
Dim WinPop2

Const woSelect1		= "SEL1"	'¸®½ºÆ®Á¶È¸1
Const woSelect2		= "SEL2"	'¸®½ºÆ®Á¶È¸2
Const woSelect3		= "SEL3"	'¸®½ºÆ®Á¶È¸3
Const woSelect4		= "SEL4"	'¸®½ºÆ®Á¶È¸4
Const woSelect5		= "SEL5"	'¸®½ºÆ®Á¶È¸5

Const woInsert		= "INSERT"	'ÀÔ·Â
Const woUpdate		= "UPDATE"	'¼öÁ¤
Const woDelete		= "DELETE"	'»èÁ¦

Const woDetailView	= "DVW"		'»ó¼¼º¸±â
Const woDuplicate	= "DPL"		'ÄÚµå Áߺ¹Ã¼Å©

Const woSelCode1	= "SC1"		'ÄÚµåÁ¶È¸1
Const woSelCode2	= "SC2"		'ÄÚµåÁ¶È¸2
Const woSelCode3	= "SC3"		'ÄÚµåÁ¶È¸3
Const woSelCode4	= "SC4"		'ÄÚµåÁ¶È¸4
Const woSelCode5	= "SC5"		'ÄÚµåÁ¶È¸5

Const gBackColor1	= "#FFFFFF"	'±×¸®µåÀÇ Ã¹¹ø° Row Color
Const gBackColor2	= "#F6F6F6"	'±×¸®µåÀÇ µÎ¹ø° Row Color
Const gClickColor	= "#EDF0D9"	'±×¸®µåÀÇ ¼±ÅÃµÈ Row Color
Const gMouseColor	= "#E7F4FD"	'±×¸®µåÀÇ ¸¶¿ì½º ¿À¹ö Row Color

CONST CONST_SEGLIST		= "SEGLIST"			' Ç×°ø¿©Á¤
CONST CONST_PAXLIST		= "PAXLIST"			' ž½ÂÀڹ׿îÀÓ

'¹öÆ° ±ÇÇÑ º¯¼ö
Dim strIS_RET, strIS_EXCEL, strIS_PRINT
Dim strIS_NEW, strIS_DEL, strIS_SAVE


Dim gdicDebugWindow         ' ¿­¸° Debug Window °´Ã¼¸¦ ÀúÀåÇÒ Dictionary °´Ã¼

Dim ReserveDate	'¿¹¾à°¡´ÉÀÏÀÚ
'-------------------------------------------------------------------------
' Window Initialize
'-------------------------------------------------------------------------
Sub Window_Initialize
	strRowDelimiter = Chr(1) & Chr(2)
	strColDelimiter = Chr(3) & Chr(4)

	'±×·ì±ÇÇÑ ¼¼¼Ç°ª üũÇؼ­ °ªÀÌ ¾øÀ» °æ¿ì ·Î±×¾Æ¿ôÀ¸·Î ºüÁ®¹ö¸®´Â ÇÔ¼ö È£Ãâ
	sessionCheck()
	'¹öÆ°±ÇÇÑÀ» °¡Á®¿Í¼­ º¯¼ö¿¡ ´ã´Â´Ù.
	setBtnAuth()
	'Áߺзù ÄÚµå¿Í ¼ÒºÐ·ùÄڵ带 ÀÌ¿ëÇؼ­ ¼­ºêŸÀÌƲÀ» Á¶È¸ÇØ ¿ÂÈÄ Ãâ·ÂÇϱâ
	printTitle()

End Sub
'-------------------------------------------------------------------------

'-------------------------------------------------------------------------
' Window Initialize_2(¹öÆ° ÄÁÆ®·Ñ ºÎºÐÀÌ ÇÊ¿ä¾ø´Â ÆäÀÌÁö¿¡¼­ »ç¿ëÇÏ´Â ÃʱâÈ­ ÇÔ¼ö)
'-------------------------------------------------------------------------
Sub Window_Initialize_2

	'±×·ì±ÇÇÑ ¼¼¼Ç°ª üũÇؼ­ °ªÀÌ ¾øÀ» °æ¿ì ·Î±×¾Æ¿ôÀ¸·Î ºüÁ®¹ö¸®´Â ÇÔ¼ö È£Ãâ
	'sessionCheck()

	strRowDelimiter = Chr(1) & Chr(2)
	strColDelimiter = Chr(3) & Chr(4)

End Sub

'-------------------------------------------------------------------------
' ÆäÀÌÁö ¼Ò¸ê Àü
'-------------------------------------------------------------------------
Sub Window_onBeforeUnload()
'    Call fnCloseDebug

    If IsObject(gdicDebugWindow) Then
        Set gdicDebugWindow = Nothing
    End If

'	If BtnCan.Style.cursor = "hand" Then
'		Window.Event.KeyCode = 0
'		Window.Event.CancelBubble = False
'		Window.Event.returnValue = "µî·Ï / ¼öÁ¤ ÀÛ¾÷ Áß ÀÔ´Ï´Ù."
'	End If
End Sub
'-------------------------------------------------------------------------


'-------------------------------------------------------------------------
' <½Å±Ô> Button Event
'-------------------------------------------------------------------------
Sub BtnNew_OnMouseOver()
	If BtnNew.style.cursor = "hand" Then BtnNew.src="/BTMS_ADM/ADM_Img/Button/bt_Insert_o.gif"
End Sub

Sub BtnNew_OnMouseOut()
	If BtnNew.style.cursor = "hand" Then BtnNew.src="/BTMS_ADM/ADM_Img/Button/bt_Insert.gif"
End Sub

Sub BtnNew_OnClick()
	If BtnNew.style.cursor = "hand" Then Call ProcNew
End Sub
'-------------------------------------------------------------------------


'-------------------------------------------------------------------------
' <»èÁ¦> Button Event
'-------------------------------------------------------------------------
Sub BtnDel_OnMouseOver()
	If BtnDel.style.cursor = "hand" Then BtnDel.src="/BTMS_ADM/ADM_Img/Button/bt_Delete_o.gif"
End Sub

Sub BtnDel_OnMouseOut()
	If BtnDel.style.cursor = "hand" Then BtnDel.src="/BTMS_ADM/ADM_Img/Button/bt_Delete.gif"
End Sub

Sub BtnDel_OnClick()
	If BtnDel.style.cursor = "hand" Then Call ProcDel
End Sub
'-------------------------------------------------------------------------


'-------------------------------------------------------------------------
' <ÀúÀå> Button Event
'-------------------------------------------------------------------------
Sub BtnSave_OnMouseOver()
	If BtnSave.style.cursor = "hand" Then BtnSave.src="/BTMS_ADM/ADM_Img/Button/bt_Save_o.gif"
End Sub

Sub BtnSave_OnMouseOut()
	If BtnSave.style.cursor = "hand" Then BtnSave.src="/BTMS_ADM/ADM_Img/Button/bt_Save.gif"
End Sub

Sub BtnSave_OnClick()
	If BtnSave.style.cursor = "hand" Then Call ProcSave
End Sub
'-------------------------------------------------------------------------


'-------------------------------------------------------------------------
' <Ãë¼Ò> Button Event
'-------------------------------------------------------------------------
Sub BtnCan_OnMouseOver()
	If BtnCan.style.cursor = "hand" Then BtnCan.src="/BTMS_ADM/ADM_Img/Button/bt_Cancel_o.gif"
End Sub

Sub BtnCan_OnMouseOut()
	If BtnCan.style.cursor = "hand" Then BtnCan.src="/BTMS_ADM/ADM_Img/Button/bt_Cancel.gif"
End Sub

Sub BtnCan_OnClick()
	If BtnCan.style.cursor = "hand" Then Call ProcCancel
End Sub
'-------------------------------------------------------------------------


'-------------------------------------------------------------------------
' ¹öÆ° Á¦¾î ( 1 : È°¼ºÈ­ / 2 : ºñÈ°¼ºÈ­)
' arg1 : ½Å±Ô / arg2 : »èÁ¦ / arg3 : ÀúÀå / arg4 : Ãë¼Ò
'-------------------------------------------------------------------------
Sub controlButton(arg1, arg2, arg3, arg4)

	' <½Å±Ô> ¹öÆ° ºñ/È°¼ºÈ­
	If arg1 = 1 Then

		if strIS_NEW = "0" then
			BtnNew.Style.Cursor = ""
			BtnNew.Src = "/BTMS_ADM/ADM_Img/Button/bt_Insert_d.gif"
		else
			BtnNew.Style.Cursor = "hand"
			BtnNew.Src = "/BTMS_ADM/ADM_Img/Button/bt_Insert.gif"
		end if

	Else
		BtnNew.Style.Cursor = ""
		BtnNew.Src = "/BTMS_ADM/ADM_Img/Button/bt_Insert_d.gif"
	End If

	' <»èÁ¦> ¹öÆ° ºñ/È°¼ºÈ­
	If arg2 = 1 Then

		if strIS_DEL = "0" then
			BtnDel.Style.Cursor = ""
			BtnDel.Src = "/BTMS_ADM/ADM_Img/Button/bt_Delete_d.gif"
		else
			BtnDel.Style.Cursor = "hand"
			BtnDel.Src = "/BTMS_ADM/ADM_Img/Button/bt_Delete.gif"

		end if

	Else
		BtnDel.Style.Cursor = ""
		BtnDel.Src = "/BTMS_ADM/ADM_Img/Button/bt_Delete_d.gif"
	End If

	' <ÀúÀå> ¹öÆ° ºñ/È°¼ºÈ­
	If arg3 = 1 Then
		if strIS_SAVE = "0" then
			BtnSave.Style.Cursor = ""
			BtnSave.Src = "/BTMS_ADM/ADM_Img/Button/bt_Save_d.gif"
		else
			BtnSave.Style.Cursor = "hand"
			BtnSave.Src = "/BTMS_ADM/ADM_Img/Button/bt_Save.gif"
		end if
	Else
		BtnSave.Style.Cursor = ""
		BtnSave.Src = "/BTMS_ADM/ADM_Img/Button/bt_Save_d.gif"
	End If

	' <Ãë¼Ò> ¹öÆ° ºñ/È°¼ºÈ­
	If arg4 = 1 Then
		BtnCan.Style.Cursor = "hand"
		BtnCan.Src = "/BTMS_ADM/ADM_Img/Button/bt_Cancel.gif"
	Else
		BtnCan.Style.Cursor = ""
		BtnCan.Src = "/BTMS_ADM/ADM_Img/Button/bt_Cancel_d.gif"
	End If




End Sub
'-------------------------------------------------------------------------



'-------------------------------------------------------------------------
' ù¹ø° ±×¸®µåÀÇ onMouseOver
'-------------------------------------------------------------------------
Sub DivGrid1_onMouseOver()
	Dim row_id

	If BtnCan.Style.cursor = "hand" Then Exit Sub

	row_id = Window.Event.srcElement.parentElement.ID

	If IsNumeric(row_id) Then
		beforeColor1 = tblGrid1.rows(row_id).bgcolor
		tblGrid1.rows(row_id).bgcolor = gMouseColor
		Grid1Prev_row2 = row_id
	End If
End Sub
'-------------------------------------------------------------------------


'-------------------------------------------------------------------------
' ù¹ø° ±×¸®µåÀÇ onMouseOut
'-------------------------------------------------------------------------
Sub DivGrid1_onMouseOut()
	If BtnCan.Style.cursor = "hand" Then Exit Sub
	If tblGrid1.rows.length > 0 Then
		'If Not IsObject(tblGrid1.rows(Grid1Prev_row2)) Then Exit Sub
		'If Not IsObject(tblGrid1.rows(Grid1Prev_row)) Then Exit sub
		If Grid1Prev_row2 <> "" Then tblGrid1.rows(Grid1Prev_row2).bgcolor = beforeColor1
		If Grid1Prev_row <> "" Then tblGrid1.rows(cint(Grid1Prev_row)).bgcolor = gClickColor
	End If
End Sub
'-------------------------------------------------------------------------


'-------------------------------------------------------------------------
' ù¹ø° ±×¸®µåÀÇ onClick
'-------------------------------------------------------------------------
Sub DivGrid1_onClick()
	Dim row_id
	If BtnCan.Style.cursor = "hand" Then
		Message = "µî·Ï / ¼öÁ¤ ÀÛ¾÷À» ÇÒ¶§´Â <br>Ç׸ñÀ̵¿ÀÌ Çã¿ëµÇÁö ¾Ê½À´Ï´Ù."
		Call fnOpenMsgbox("Alert", Message)
		Exit Sub
	End If

	row_id = Window.Event.srcElement.parentElement.ID

	If IsNumeric(row_id) Then
		Call setGrid1Click(row_id)
	End If
End Sub
'-------------------------------------------------------------------------


'-------------------------------------------------------------------------
' µÎ¹ø° ±×¸®µåÀÇ onMouseOver
'-------------------------------------------------------------------------
Sub DivGrid2_onMouseOver()
	Dim row_id

	If BtnCan.Style.cursor = "hand" Then Exit Sub

	row_id = Window.Event.srcElement.parentElement.ID

	If IsNumeric(row_id) Then
		beforeColor2 = tblGrid2.rows(row_id).bgcolor
		tblGrid2.rows(row_id).bgcolor = gMouseColor
		Grid2Prev_row2 = row_id
	End If
End Sub
'-------------------------------------------------------------------------


'-------------------------------------------------------------------------
' µÎ¹ø° ±×¸®µåÀÇ onMouseOut
'-------------------------------------------------------------------------
Sub DivGrid2_onMouseOut()
	If BtnCan.Style.cursor = "hand" Then Exit Sub
	If tblGrid2.rows.length > 0 then
		If Grid2Prev_row2 <> "" Then tblGrid2.rows(Grid2Prev_row2).bgcolor = beforeColor2
		If Grid2Prev_row <> "" Then tblGrid2.rows(cint(Grid2Prev_row)).bgcolor = gClickColor
	End If
End Sub
'-------------------------------------------------------------------------


'-------------------------------------------------------------------------
' µÎ¹ø° ±×¸®µåÀÇ onClick
'-------------------------------------------------------------------------
Sub DivGrid2_onClick()
	Dim row_id

	If BtnCan.Style.cursor = "hand" Then
		Message = "µî·Ï / ¼öÁ¤ ÀÛ¾÷À» ÇÒ¶§´Â <br>Ç׸ñÀ̵¿ÀÌ Çã¿ëµÇÁö ¾Ê½À´Ï´Ù."
		Call fnOpenMsgbox("Alert", Message)
		Exit Sub
	End If

	row_id = Window.Event.srcElement.parentElement.ID

	If IsNumeric(row_id) Then
		Call setGrid2Click(row_id)
	End If
End Sub
'-------------------------------------------------------------------------


'-------------------------------------------------------------------------
' ¼¼¹ø° ±×¸®µåÀÇ onMouseOver
'-------------------------------------------------------------------------
Sub DivGrid3_onMouseOver()
	Dim row_id

	If BtnCan.Style.cursor = "hand" Then Exit Sub

	row_id = Window.Event.srcElement.parentElement.ID

	If IsNumeric(row_id) Then
		beforeColor3 = tblGrid3.rows(row_id).bgcolor
		tblGrid3.rows(row_id).bgcolor = gMouseColor
		Grid3Prev_row2 = row_id
	End If
End Sub
'-------------------------------------------------------------------------


'-------------------------------------------------------------------------
' ¼¼¹ø° ±×¸®µåÀÇ onMouseOut
'-------------------------------------------------------------------------
Sub DivGrid3_onMouseOut()
	If BtnCan.Style.cursor = "hand" Then Exit Sub
	If tblGrid3.rows.length > 0 then
		If Grid3Prev_row2 <> "" Then tblGrid3.rows(Grid3Prev_row2).bgcolor = beforeColor3
		If Grid3Prev_row <> "" Then tblGrid3.rows(cint(Grid3Prev_row)).bgcolor = gClickColor
	End If
End Sub
'-------------------------------------------------------------------------


'-------------------------------------------------------------------------
' ¼¼¹ø° ±×¸®µåÀÇ onClick
'-------------------------------------------------------------------------
Sub DivGrid3_onClick()
	Dim row_id

	If BtnCan.Style.cursor = "hand" Then
		Message = "µî·Ï / ¼öÁ¤ ÀÛ¾÷À» ÇÒ¶§´Â <br>Ç׸ñÀ̵¿ÀÌ Çã¿ëµÇÁö ¾Ê½À´Ï´Ù."
		Call fnOpenMsgbox("Alert", Message)
		Exit Sub
	End If

	row_id = Window.Event.srcElement.parentElement.ID

	If IsNumeric(row_id) Then
		Call setGrid3Click(row_id)
	End If
End Sub
'-------------------------------------------------------------------------


'-------------------------------------------------------------------------
' Grid ÀÇ ÃʱâÈ­ - ±×¸®µåÀÇ ¸ðµç Row »èÁ¦
'-------------------------------------------------------------------------
Sub Cls_Grid(Grid_nm)
	Dim ii, jj, chk_str
	With Grid_nm
		If .rows.length > 0 Then
			jj = .rows.length - 1
			For ii = jj To 0 Step -1
				.deleteRow(ii)
			Next
		End If
	End With

	'	StMsg.style.display				= "none"	'Á¶È¸Áß À̹ÌÁö ·Îµù ¾ø¾Ú

End Sub
'-------------------------------------------------------------------------


'-------------------------------------------------------------------------
' Grid ÀÇ ÃʱâÈ­ - ±×¸®µåÀÇ ¸ðµç Row »èÁ¦
'-------------------------------------------------------------------------
Sub Cls_Grid2(Grid_nm, titleRow)
	Dim ii, jj, chk_str
	With Grid_nm
		If .rows.length > titleRow + 1 Then
			jj = .rows.length - 1
			For ii = jj To titleRow + 1 Step -1
				.deleteRow(ii)
			Next
		End If
	End With

	'	StMsg.style.display				= "none"	'Á¶È¸Áß À̹ÌÁö ·Îµù ¾ø¾Ú

End Sub
'-------------------------------------------------------------------------


'-------------------------------------------------------------------------
' Combo ÃʱâÈ­
'-------------------------------------------------------------------------
Sub ClearCombo(pcombo)
	Dim ii
    For ii = 0 To pcombo.length
		pcombo.remove(0)
    Next
End Sub
'-------------------------------------------------------------------------


'-------------------------------------------------------------------------
' ³»¿ë Å©±â Check
'-------------------------------------------------------------------------
Function Chklen(txtContent, MaxByte, FixByte)
    Dim iTxtLen,sTxt,i,erText

	iTxtLen = 0
	sTxt = trim(txtContent)

	For i=1 To len(sTxt)
		If asc(mid(sTxt,i,1)) < 0 then
			iTxtLen = iTxtLen + 2
		Else
			iTxtLen = iTxtLen + 1
		End If
	Next

	If  FixByte <> 0 And FixByte <> iTxtLen Then
		erText = "ÀÔ·ÂÇϽŠ³»¿ëÀÇ ±æÀÌ°¡ " & iTxtLen & " Byte ÀÔ´Ï´Ù.<BR>"  & _
		       "ÀԷ³»¿ëÀ» ¸ÂÃç Áֽʽÿä. <BR><BR>" & _
		       "°íÁ¤ÀԷ±æÀÌ : " & FixByte &" Byte <BR>(ÇÑ±Û : 2Byte /¿µ¹®,¼ýÀÚ : 1Byte)"
		Call fnOpenMsgbox("Alert", erText)
		Chklen = False
		Exit Function
	End If

	If  MaxByte <> 0 And MaxByte < iTxtLen Then
		erText = "ÀÔ·ÂÇϽŠ³»¿ëÀÇ ±æÀÌ°¡ " & iTxtLen & " Byte ÀÔ´Ï´Ù.<BR>" & _
		       "ÀԷ³»¿ëÀ» ÁÙ¿©Áֽʽÿä. <BR><BR>" & _
		       "ÃÖ´ëÀԷ±æÀÌ : " & MaxByte &" ByteÀ̳» <BR>(ÇÑ±Û : 2Byte /¿µ¹®,¼ýÀÚ : 1Byte)"
		Call fnOpenMsgbox("Alert", erText)
		Chklen = False
		Exit Function
	End If

    Chklen = True
End Function
'-------------------------------------------------------------------------


'** ---------------------------------------------------------------------------
' ÇÔ ¼ö ¸í : ibnOK_OnKeyPress()
' ÀÎ    ÀÚ :
' ¸ñ    Àû : ÀԷ°ª Ç׸ñ¿¡¼­ ¿£ÅÍÅ°¸¦ ´­·¶À»¶§(Á¶È¸µ¥ÀÌÅÍ ÀÔ·ÂÈÄ °Ë»ö¹öÆ° Ŭ¸¯ ¾×¼ÇÀ» ENTER±â´ÉÀ¸·Î ±¸Çö)
'** ---------------------------------------------------------------------------
Sub ibnOK_OnKeyPress()

	If (window.event.keycode = 13) Then
		BtnSearch_OnClick()
	End If

End Sub


'** ---------------------------------------------------------------------------
' ÇÔ ¼ö ¸í : ConvertCase(sCase)
' ÀÎ    ÀÚ :
' ¸ñ    Àû : ÀԷµ¥ÀÌÅÍ Àüȯ
'** ---------------------------------------------------------------------------
Sub ConvertCase(sCase)

	Dim ObjEl

	Set ObjEl = window.event.srcElement

	Select Case UCase(sCase)
		Case "1"			'U
			If(Window.Event.Keycode <> 36 And Window.Event.Keycode <> 37 And Window.Event.Keycode <> 39 And Window.Event.Keycode <> 46 And Window.Event.Keycode <> 191) Then
				ObjEl.value = UCase(ObjEl.value)
			End If
		Case "2"			'L
			IF(Window.Event.Keycode <> 36 And Window.Event.Keycode <> 37 And Window.Event.Keycode <> 39 And Window.Event.Keycode <> 46 And Window.Event.Keycode <> 191) Then
				ObjEl.value = LCase(ObjEl.value)
			End If
		Case "3"			'EU
			IF(Window.Event.Keycode = 13) THEN
				ibnOK_OnKeyPress()
			END IF
			If(Window.Event.Keycode <> 36 And Window.Event.Keycode <> 37 And Window.Event.Keycode <> 39 And Window.Event.Keycode <> 46) Then
				ObjEl.value = UCase(ObjEl.value)
			End If
		Case "4"			'NATIONEU
			If(Window.Event.Keycode <> 36 And Window.Event.Keycode <> 37 And Window.Event.Keycode <> 39 And Window.Event.Keycode <> 46) Then
				ObjEl.value = UCase(ObjEl.value)
			End If
			CodeChange()
		Case "5"			'NATION
			CodeChange()
		Case "6"			'F12109_010¿¡¼­ ÀÌ¿ë
			IF(Window.Event.Keycode = 13) THEN
				BtnMainCitySave_OnClick()
			END IF
		Case "7"			'B2C_FIPSG01_010¿¡¼­ ÀÌ¿ë
			If(Window.Event.Keycode <> 36 And Window.Event.Keycode <> 37 And Window.Event.Keycode <> 39 And Window.Event.Keycode <> 46) Then
				ObjEl.value = UCase(ObjEl.value)
			End If
	End Select

	Set ObjEl = Nothing

End Sub


'** ---------------------------------------------------------------------------
' ÇÔ ¼ö ¸í : ReplaceChar(sVal, nType)
' ÀÎ    ÀÚ : 1. sVal, 2. nType
' ¸ñ    Àû : ¹®ÀÚ¿­ º¯È¯
'** ---------------------------------------------------------------------------
Function ReplaceChar(sVal,nType)

	If nType = 1 Then

		'ÀúÀåÇÒ¶§
		sVal = Replace(sVal, Chr(13)&Chr(10), "<BR>")
		sVal = Replace(sVal, Chr(34), "<DQ>")
		sVal = Replace(sVal, Chr(39), "")
'		sVal = Replace(sVal, "'", "")

	ElseIf nType = 2 Then

		'ºÒ·¯¿Ã¶§
		sVal = Replace(sVal, "<BR>", Chr(13)&Chr(10))
		sVal = Replace(sVal, "<br>", Chr(13)&Chr(10))
		sVal = Replace(sVal, "<DQ>", Chr(34))
		sVal = Replace(sVal, "<Q>", Chr(39))

	' Å×ÀÌºí »ý¼º½Ã "'" À¸·Î ÀÎÇÑ ¿¡·¯ ¶§¹®¿¡ chr(39) ´ë½Å "`" À¸·Î º¯°æ
	ElseIf nType = 3 Then

		'ºÒ·¯¿Ã¶§
		sVal = Replace(sVal, "<BR>", Chr(13)&Chr(10))
		sVal = Replace(sVal, "<br>", Chr(13)&Chr(10))
		sVal = Replace(sVal, "<DQ>", Chr(34))
		sVal = Replace(sVal, "<Q>", "`")

	ElseIf nType = 4 Then

		'ºÒ·¯¿Ã¶§
		sVal = Replace(sVal, "<BR>", "")
		sVal = Replace(sVal, "<br>", "")
		sVal = Replace(sVal, "<DQ>", Chr(34))
		sVal = Replace(sVal, "<Q>", "`")

	End If

	ReplaceChar = sVal

End Function


'** ---------------------------------------------------------------------------
' ÇÔ ¼ö ¸í	: CheckNumKey
' ÀÎ    ÀÚ	: eventKeyCode - window.event.keyCode
' ¸ñ    Àû	: KeyCode °ªÀ» Á¦ÇÑÇÑ´Ù. ¼ýÀÚ¸¸ ÀÔ·Â °¡´É
'** ---------------------------------------------------------------------------
Sub CheckNumKey()

	IF not((47 < window.event.keyCode and window.event.keyCode < 58)) Then
		window.event.keyCode = ""
		window.event.cancelBubble = true
	End IF

End Sub

'** ---------------------------------------------------------------------------
' ÇÔ ¼ö ¸í	: CheckHangulKey
' ÀÎ    ÀÚ	: eventKeyCode - window.event.keyCode
' ¸ñ    Àû	: KeyCode °ªÀ» Á¦ÇÑÇÑ´Ù. Çѱ۸¸ ÀÔ·Â °¡´É
'** ---------------------------------------------------------------------------
Sub CheckHangulKey(eventKeyCode)

	IF (90 < eventKeyCode Or eventKeyCode < 97 Or eventKeyCode >122 ) Then
		window.event.keyCode = ""
		window.event.cancelBubble = False
	End IF

End Sub


'-------------------------------------------------------------------------
' ¼ýÀÚ¿Í ¿µ¹® ´ë¹®ÀÚ¸¸ ÀÔ·Â °¡´É
'-------------------------------------------------------------------------
Sub checkAlphaNumeric
	On Error Resume Next
	Dim regExp, match, spec

	Set regExp = New RegExp
	regExp.Global = True
	regExp.IgnoreCase = True
	regExp.Pattern = "[A-Z]|[0-9]"
	set match = regExp.Execute(Chr(window.event.keyCode))
	If match.count = 0 Then window.event.keyCode = 0
	Set regExp = Nothing
End Sub
'-------------------------------------------------------------------------

'-------------------------------------------------------------------------
' À̸ÞÀÏüũ
'-------------------------------------------------------------------------
Sub checkAlphaNumeric_email
	On Error Resume Next
	Dim regExp, match, spec

	Set regExp = New RegExp
	regExp.Global = True
	regExp.IgnoreCase = True
	regExp.Pattern = "[A-Z]|[a-z]|[@]|[.]"
	set match = regExp.Execute(Chr(window.event.keyCode))
	If match.count = 0 Then window.event.keyCode = 0
	Set regExp = Nothing
End Sub
'-------------------------------------------------------------------------


'-------------------------------------------------------------------------
' ¿µ¹® ´ë¹®ÀÚ¸¸ ÀÔ·Â °¡´É
'-------------------------------------------------------------------------
Sub checkAlpha
	On Error Resume Next
	Dim regExp, match, spec

	Set regExp = New RegExp
	regExp.Global = True
	regExp.IgnoreCase = True
	regExp.Pattern = "[A-Z]"
	set match = regExp.Execute(Chr(window.event.keyCode))
	If match.count = 0 Then window.event.keyCode = 0
	Set regExp = Nothing
End Sub
'-------------------------------------------------------------------------


'-------------------------------------------------------------------------
' ÅؽºÆ® ÀÔ·Ââ ÀÔ·Â ½Ã ±æÀÌ Á¶°Ç¿¡ ÃæÁ·ÇÏ¸é ´ÙÀ½ ÀÔ·ÂâÀ¸·Î À̵¿Çϱâ
'-------------------------------------------------------------------------
Sub InputData_NextMove(inputObject, nextObject, MaxLength)
	If Len(eval(inputObject).value) = Cint(MaxLength) Then
		If nextObject <> "" Then
			eval(nextObject).focus()
		End If
	End If
End Sub

'** -------------------------------------------------------------------------------------------------
' ÇÔ ¼ö ¸í : PageSet()
' ÀÎ    ÀÚ : 1. PageSize : ÆäÀÌÁö¼ö
'			 2. Page : ÇöÀçÆäÀÌÁö
'			 3. LastPage : ¸¶Áö¸·ÆäÀÌÁö
'			 4. scrollPage :ÀÌÀü´ÙÀ½ ¼ÂÆà ¼ö
' ¸ñ    Àû :
'** -------------------------------------------------------------------------------------------------
Function PageSet(PageSize,Page,LastPage,scrollPage)

	PageSize	= CInt(PageSize)
	Page		= CInt(Page)
	LastPage	= CInt(LastPage)
	scrollPage	= CInt(scrollPage)

	Dim strHTML, BlockPage, i

	IF LastPage >= 1 Then

		strHTML = "<Table align=right border=0 cellpadding=0 cellspacing=0><tr><td align=center>"
		BlockPage = Int((Page-1)/scrollPage) * scrollPage + 1

		strHTML = strHTML & "<Font Color=#0066CC>"

		IF BlockPage <> 1 Then
			strHTML = strHTML & "<SPAN OnClick=VBS:PageGo_onClick('" & BlockPage - scrollPage & "') style=CURSOR:hand>[ÀÌÀü " & scrollPage & "°³]</SPAN>&nbsp;"
		Else
			strHTML = strHTML & "[ÀÌÀü " & scrollPage & "°³]&nbsp;"
		End IF

		i = 1

		Do Until i > scrollPage or BlockPage > LastPage

			IF BlockPage = int(Page) Then
				strHTML = strHTML & "<B>[" & BlockPage & "]</B>&nbsp;"
			Else
				strHTML = strHTML & "<SPAN OnClick=VBS:PageGo_onClick('" & BlockPage & "') style=CURSOR:hand>[" & BlockPage & "]</SPAN>&nbsp;"
			End IF

			BlockPage = BlockPage + 1
			i = i + 1

		Loop

		IF BlockPage <= LastPage Then
			strHTML = strHTML & "<SPAN OnClick=VBS:PageGo_onClick('" & BlockPage & "') style=CURSOR:hand>[´ÙÀ½ "& scrollPage & "°³]</SPAN>"
		Else
			strHTML = strHTML & "[´ÙÀ½ " & scrollPage & "°³]"
		End IF

		strHTML = strHTML & "</Font>"
		strHTML = strHTML & "</td></tr></table>"
		PageSet = strHTML

	End IF

End Function


'**------------------------------------------------------------------------------------------------
'ÇÔ	 ¼ö	¸í : Function SetComboBox
'ÀÎ		ÀÚ : 1. id				: SELECT ÄÜÆ®·ÑÀÇ id, name(µÑ´Ù °°Àº °É·Î ¼¼ÆõȴÙ)
'			 2. width, height	: SELECTÄÜÆ®·ÑÀÇ width¿Í height
'			 3. nSelected		: Ãʱ⿡ º¸¿©Áö´Â ValueÀÇ ¼ø¼­ 0ºÎÅÍ ½ÃÀÛÇÑ´Ù.
'			 4. JobCD			: ÇØ´ç ¾÷¹« ÄÚµå
'			 5. bOnChange		: ÀÎÀÚ°ª¿¡µû¶ó ¼³Á¤ÇÑ´Ù.
'¸ñ		Àû : ÄÞº¸¹Ú½º(<SELECT>)¿¡ °ª Áý¾î ³Ö´Â ÇÔ¼ö
'			 onChangeÀ̺¥Æ®¿¡¼­ À̸§+OnChange¶ó´Â ÇüÅÂÀÇ À̺¥Æ® Çڵ鷯¸¦ ¿¬°á½ÃŲ´Ù.
'¸®	 ÅÏ	°ª : <SELECT> ... </SELECT>·Î ³¡³ª´Â Html ¹®ÀÚ¿­
'Á¦		ÀÛ : 2007/07/03
'ex) sTemp = SetComboBox("cbxVocTypeDetail", 150, 19, 0, "SE", 2)
'**------------------------------------------------------------------------------------------------
Function SetComboBox(id, width, height, nSelected, JobCD, bOnChange)

	Dim strHTML					'SELECT HTML
	Dim strOpt					'OPTION HTML
	Dim i
	Dim aTmpValue				'ÄÚµå|ÄÚµå¸í|ÄÚµå|ÄÚµå¸í|ÄÚµå|ÄÚµå¸í|ÄÚµå|ÄÚµå¸í|
	Dim strSendData				'ÄÚµå Á¶È¸·Î ÀÎÀÚ °ª
	Dim strRtn					'Á¶È¸ °á°ú ¿©ºÎ
	Dim strData					'ÄÚµå Á¶È¸ °á°ú°ª
	Dim pageUrl					'󸮼ҽº URL
	Dim xmlRequest
	Dim xmlDom

	Dim arrRows
	Dim arrCols

	' ÄÚµå µ¥ÀÌÅ͸¦ DB¿¡¼­ °¡Á®¿À´Â ºÎºÐ -½ÃÀÛ-----------------
	strSendData = "JobCD=" & JobCD
	pageUrl = "/BTMS_ADM/ADM_COM/SetComboBox.asp"

	' µð¹ö±ë ÆÁ
'	Window.Open pageUrl & "?" & strSendData
'	exit function

	Set xmlRequest  = CreateObject("Microsoft.XMLHTTP")
	Set xmlDom		= CreateObject("Microsoft.XMLDOM")

	xmlRequest.open "POST" , pageUrl , FALSE
	xmlRequest.setRequestHeader "Content-Type","application/x-www-form-urlencoded"
	xmlRequest.send strSendData

	xmlDom.loadXML(xmlRequest.responseXML.xml)
	strRtn		= xmlDom.documentElement.selectSingleNode("strRtn").text
	strData		= xmlDom.documentElement.selectSingleNode("strData").text
	xmlDom.abort

	Set xmlDom		= Nothing
	Set xmlRequest	= Nothing

	If strRtn = "False" Then
		Call fnOpenMsgbox("Alert", strData)
	Else

	' ÄÚµå µ¥ÀÌÅ͸¦ DB¿¡¼­ °¡Á®¿À´Â ºÎºÐ -Á¾·á------------------

		Select Case bOnChange
			Case "0"	' À̺¥Æ® Çڵ鷯 »ý¼º ¾ÈÇÔ
				strHTML = "<SELECT id=" & id & " name=" & id & " style='z-index:-1;FONT-FAMILY: ±¼¸²Ã¼; FONT-SIZE: 9pt; HEIGHT:" & height & "px; WIDTH:" & width & "px;'>"
			Case "1"	' À̺¥Æ® Çڵ鷯 »ý¼º (¼öÁ¤¸ðµå »ç¿ë¿©ºÎ üũ)
				strHTML = "<SELECT id=" & id & " name=" & id & " style='z-index:-1;FONT-FAMILY: ±¼¸²Ã¼; FONT-SIZE: 9pt; HEIGHT:" & height & "px; WIDTH:" & width & "px;' onChange='VBS:CodeChange()'>"
			Case "2"	' À̺¥Æ® Çڵ鷯 »ý¼º (Äڵ尪 »ý¼º ¹× ¼öÁ¤¸ðµå üũ)
				strHTML = "<SELECT id=" & id & " name=" & id & " style='z-index:-1;FONT-FAMILY: ±¼¸²Ã¼; FONT-SIZE: 9pt; HEIGHT:" & height & "px; WIDTH:" & width & "px;' onChange='VBS:" & id & "Chg()'>"
			Case "3"	' À̺¥Æ® Çڵ鷯 »ý¼º (´Ù¸¥ Äڵ尪À» º¯°æ)
				strHTML = "<SELECT id=" & id & " name=" & id & " style='z-index:-1;FONT-FAMILY: ±¼¸²Ã¼; FONT-SIZE: 9pt; HEIGHT:" & height & "px; WIDTH:" & width & "px;' onChange='VBS:GetCode()'>"
		End Select

		IF nSelected = -1 Then
			strHTML = strHTML & "<OPTION></OPTION>"
		ElseIF nSelected = -2 Then
			strHTML = strHTML & "<OPTION value='' >Àüü</OPTION>"
		ElseIF nSelected = -3 Then
			strHTML = strHTML & "<OPTION value='' >¼±ÅÃ</OPTION>"
		ElseIF nSelected = -4 Then
			strHTML = strHTML & "<OPTION value='' ¾øÀ½</OPTION>"
		ElseIF nSelected = -5 Then
			strHTML = strHTML & "<OPTION value='' >¼±ÅþøÀ½</OPTION>"
		End IF

		arrRows = Split(strData, strRowDelimiter)

		For i = 0 To Ubound(arrRows) - 1

			arrCols = Split(arrRows(i), strColDelimiter)
			If JobCD = "SV_NATION" Then
				If InStr(id,"Nation") Then
					If arrCols(0) = "KR" Then
						strOpt = "<OPTION Value='" & arrCols(0) & "' Selected>" & arrCols(1) & "</OPTION>"
					Else
						strOpt = "<OPTION value='" & arrCols(0) & "'>" & arrCols(1) & "</OPTION>"
					End If
				Else
					If arrCols(0) = "US" Then
						strOpt = "<OPTION Value='" & arrCols(0) & "' Selected>" & arrCols(1) & "</OPTION>"
					Else
						strOpt = "<OPTION value='" & arrCols(0) & "'>" & arrCols(1) & "</OPTION>"
					End If
				End If
			Else
				strOpt = "<OPTION value='" & arrCols(0) & "'>" & arrCols(1) & "</OPTION>"
			End If
			strHTML = strHTML & strOpt

		Next

		strHTML = strHTML & "</SELECT>"

		SetComboBox = "<font face=±¼¸²Ã¼ size=2>" & strHTML & "</font>"

	End If

End Function


'**------------------------------------------------------------------------------------------------
'ÇÔ	 ¼ö	¸í : Function SetCodeComboBox
'ÀÎ		ÀÚ : 1. id				: SELECT ÄÜÆ®·ÑÀÇ id, name(µÑ´Ù °°Àº °É·Î ¼¼ÆõȴÙ)
'			 2. width, height	: SELECTÄÜÆ®·ÑÀÇ width¿Í height
'			 3. nSelected		: Ãʱ⿡ º¸¿©Áö´Â ValueÀÇ ¼ø¼­ 0ºÎÅÍ ½ÃÀÛÇÑ´Ù.
'			 4. Code			: ÇØ´ç ¾÷¹« ÄÚµå
'			 5. VEN_CD			: ÇØ´ç°Å·¡Ã³ ÄÚµå
'			 6. bOnChange		: TrueÀ̸é onChanageÀ̺¥Æ® Çڵ鷯¸¦ ¸¸µé°í ±×·¸Áö ¾ÊÀ¸¸é À̺¥Æ® Çڵ鷯¸¦ ¸¸µéÁö ¾Ê´Â´Ù.
'¸ñ		Àû : ÄÞº¸¹Ú½º(<SELECT>)¿¡ °ª Áý¾î ³Ö´Â ÇÔ¼ö
'			 onChangeÀ̺¥Æ®¿¡¼­ À̸§+OnChange¶ó´Â ÇüÅÂÀÇ À̺¥Æ® Çڵ鷯¸¦ ¿¬°á½ÃŲ´Ù.
'¸®	 ÅÏ	°ª : <SELECT> ... </SELECT>·Î ³¡³ª´Â Html ¹®ÀÚ¿­
'Á¦		ÀÛ : 2007/07/03
'ex) sTemp = SetCodeComboBox("cbxVocTypeDetail", 150, 19, 0, "SE", "A00001", TRUE)
'**------------------------------------------------------------------------------------------------
Function SetCodeComboBox(id, width, height, nSelected, Code, VEN_CD, bOnChange)

	Dim strHTML					'SELECT HTML
	Dim strOpt					'OPTION HTML
	Dim i
	Dim aTmpValue				'ÄÚµå|ÄÚµå¸í|ÄÚµå|ÄÚµå¸í|ÄÚµå|ÄÚµå¸í|ÄÚµå|ÄÚµå¸í|
	Dim strSendData				'ÄÚµå Á¶È¸·Î ÀÎÀÚ °ª
	Dim strRtn					'Á¶È¸ °á°ú ¿©ºÎ
	Dim strData					'ÄÚµå Á¶È¸ °á°ú°ª
	Dim pageUrl					'󸮼ҽº URL
	Dim xmlRequest
	Dim xmlDom

	Dim arrRows
	Dim arrCols

	' ÄÚµå µ¥ÀÌÅ͸¦ DB¿¡¼­ °¡Á®¿À´Â ºÎºÐ -½ÃÀÛ-----------------
	strSendData = "Code=" & Code & "&VEN_CD=" & VEN_CD
	pageUrl = "/BTMS_ADM/ADM_COM/coCodeBook.asp"

	' µð¹ö±ë ÆÁ
	' Window.Open pageUrl & "?" & strSendData

	Set xmlRequest	= CreateObject("Microsoft.XMLHTTP")
	Set xmlDom		= CreateObject("Microsoft.XMLDOM")

	xmlRequest.open "POST" , pageUrl , FALSE
	xmlRequest.setRequestHeader "Content-Type","application/x-www-form-urlencoded"
	xmlRequest.send strSendData

	xmlDom.loadXML(xmlRequest.responseXML.xml)
	strRtn		= xmlDom.documentElement.selectSingleNode("strRtn").text
	strData		= xmlDom.documentElement.selectSingleNode("strData").text
	xmlDom.abort

	Set xmlDom		= Nothing
	Set xmlRequest	= Nothing

	If strRtn = "FALSE" Then
		strHTML = "<SELECT id=" & id & " name=" & id & " style='z-index:-1;FONT-FAMILY: ±¼¸²Ã¼; FONT-SIZE: 9pt; HEIGHT:" & height & "px; WIDTH:" & width & "px;'>"
		strHTML = strHTML & "<OPTION value='' selected>¾øÀ½</OPTION>"
	Else

	' ÄÚµå µ¥ÀÌÅ͸¦ DB¿¡¼­ °¡Á®¿À´Â ºÎºÐ -Á¾·á------------------

		IF bOnChange Then
			strHTML = "<SELECT id=" & id & " name=" & id & " style='z-index:-1;FONT-FAMILY: ±¼¸²Ã¼; FONT-SIZE: 9pt; HEIGHT:" & height & "px; WIDTH:" & width & "px;' onChange='VBS:CodeChange()'>"
		Else
			strHTML = "<SELECT id=" & id & " name=" & id & " style='z-index:-1;FONT-FAMILY: ±¼¸²Ã¼; FONT-SIZE: 9pt; HEIGHT:" & height & "px; WIDTH:" & width & "px;'>"
		End IF

		IF nSelected = -1 Then
			strHTML = strHTML & "<OPTION selected></OPTION>"
		ElseIF nSelected = -2 Then
			strHTML = strHTML & "<OPTION value='' selected>Àüü</OPTION>"
		ElseIF nSelected = -3 Then
			strHTML = strHTML & "<OPTION value='' selected>¼±ÅÃ</OPTION>"
		ElseIF nSelected = -4 Then
			strHTML = strHTML & "<OPTION value='' selected>¾øÀ½</OPTION>"
		ElseIF nSelected = -5 Then
			strHTML = strHTML & "<OPTION value='' selected>¼±ÅþøÀ½</OPTION>"
		End IF

		arrRows = Split(strData, strRowDelimiter)

		For i = 0 To Ubound(arrRows) - 1

			arrCols = Split(arrRows(i), strColDelimiter)
			strOpt = "<OPTION value='" & arrCols(0) & "'>" & arrCols(1) & "</OPTION>"
			strHTML = strHTML & strOpt

		Next

	End If

		strHTML = strHTML & "</SELECT>"

		SetCodeComboBox = "<font face=±¼¸²Ã¼ size=2>" & strHTML & "</font>"

End Function


'-------------------------------------------------------------------------
' ù¹ø° ±×¸®µå Ŭ¸¯ ½Ã »ö±ò ¹ÝÀü
'-------------------------------------------------------------------------
Sub selectClickGrid1(idx)
	Dim c, bgColor

	If Grid1Prev_row <> "" Then
		tblGrid1.rows(Grid1Prev_row).bgcolor = clickColor1
	End If

	'-- Set BGColor ----------
	c = idx Mod 2
	If c = 0 Then
		bgColor = gBackColor1
	Else
		bgColor = gBackColor2
	End If
	'------------------------

	clickColor1 = bgColor
	tblGrid1.rows(idx).bgcolor = gClickColor
	Grid1Prev_row = cint(idx)
End Sub
'-------------------------------------------------------------------------


'-------------------------------------------------------------------------
' µÎ¹ø° ±×¸®µå Ŭ¸¯ ½Ã »ö±ò ¹ÝÀü
'-------------------------------------------------------------------------
Sub selectClickGrid2(idx)
	Dim c, bgColor

	If Grid2Prev_row <> "" Then
		tblGrid2.rows(Grid2Prev_row).bgcolor = clickColor2
	End If

	'-- Set BGColor ----------
	c = idx Mod 2
	If c = 0 Then
		bgColor = gBackColor1
	Else
		bgColor = gBackColor2
	End If
	'------------------------

	clickColor2 = bgColor

	tblGrid2.rows(idx).bgcolor = gClickColor
	Grid2Prev_row = cint(idx)
End Sub
'-------------------------------------------------------------------------


'-------------------------------------------------------------------------
' ¼¼¹ø° ±×¸®µå Ŭ¸¯ ½Ã »ö±ò ¹ÝÀü
'-------------------------------------------------------------------------
Sub selectClickGrid3(idx)
	Dim c, bgColor

	If Grid3Prev_row <> "" Then
		tblGrid3.rows(Grid3Prev_row).bgcolor = clickColor3
	End If

	'-- Set BGColor ----------
	c = idx Mod 2
	If c = 0 Then
		bgColor = gBackColor1
	Else
		bgColor = gBackColor2
	End If
	'------------------------

	clickColor3 = bgColor

	tblGrid3.rows(idx).bgcolor = gClickColor
	Grid3Prev_row = cint(idx)
End Sub


'-------------------------------------------------------------------------
' ¹öÆ°¾ø´Â ±×¸®µå onMouseOver
'-------------------------------------------------------------------------
Sub DivSimGrid_onMouseOver()
	Dim row_id

	row_id = Window.Event.srcElement.parentElement.ID

	If IsNumeric(row_id) Then
		beforeColor1 = tblSimGrid.rows(row_id).bgcolor
		tblSimGrid.rows(row_id).bgcolor = gMouseColor
		SimGridPrev_row2    = row_id
	End If
End Sub
'-------------------------------------------------------------------------


'-------------------------------------------------------------------------
' ¹öÆ°¾ø´Â ±×¸®µåÀÇ onMouseOut
'-------------------------------------------------------------------------
Sub DivSimGrid_onMouseOut()
	If tblSimGrid.rows.length > 0 Then
		If SimGridPrev_row2 <> "" Then tblSimGrid.rows(SimGridPrev_row2).bgcolor         = beforeColor1
		If SimGridPrev_row   <> "" Then tblSimGrid.rows(cint(SimGridPrev_row)).bgcolor    = gClickColor
	End If
End Sub
'-------------------------------------------------------------------------


'-------------------------------------------------------------------------
' ¹öÆ°¾ø´Â ±×¸®µåÀÇ onClick
'-------------------------------------------------------------------------
Sub DivSimGrid_onClick()
	Dim row_id

	row_id = Window.Event.srcElement.parentElement.ID

	If IsNumeric(row_id) Then
	    Call setSimGridClick(row_id)
	End If
End Sub
'-------------------------------------------------------------------------


'-------------------------------------------------------------------------
' ¹öÆ°¾ø´Â ±×¸®µå Ŭ¸¯ ½Ã »ö±ò ¹ÝÀü
'-------------------------------------------------------------------------
Sub setSimGridClick(idx)
	Dim c, bgColor

	If SimGridPrev_row <> "" Then
	    tblSimGrid.rows(SimGridPrev_row).bgColor   = clickColor1
	End If

	'-- Set BGColor ----------
	c = idx Mod 2
	If c = 0 Then
		bgColor = gBackColor1
	Else
		bgColor = gBackColor2
	End If
	'------------------------

	clickColor1 = bgColor
	tblSimGrid.rows(idx).bgcolor = gClickColor
	SimGridPrev_row = cint(idx)
End Sub
'-------------------------------------------------------------------------

'** ---------------------------------------------------------------------------
' ÇÔ ¼ö ¸í : SetCalendar_Layer(X_Position,Y_Position,ReqYear,ReqMonth,vNum)
' ÀÎ    ÀÚ :
' ¸ñ    Àû :
'** ---------------------------------------------------------------------------
Sub SetCalendar_Layer(X_Position,Y_Position,ReqYear,ReqMonth,vNum)

	'¿À´Ã³¯Â¥ Á¶ÇÕ
	Dim CurrYear, CurrMonth, CurrDay, CurrDate

	CurrYear		= year(now())
	CurrMonth		= month(now())
	CurrDay			= day(now())
	CurrDate		= CurrYear & "-" & CurrMonth & "-" & CurrDay
	'¿À´Ã³¯Â¥ Á¶ÇÕ

	'¹ÞÀº³¯Â¥ Á¶ÇÕ
	Dim ReqDay

	if ReqYear = "" or ReqMonth = "" then
	   ReqYear	= year(now())
	   ReqMonth	= month(now())
	end if

	Select Case ReqMonth

		Case "1"	ReqDay = 31

		Case "2"

			if (((ReqYear mod 4 = 0) and (ReqYear mod 100 <> 0)) or (ReqYear mod 400 = 0)) then
				ReqDay = 29
			else
				ReqDay = 28
			end if

		Case "3"	ReqDay = 31
		Case "4"	ReqDay = 30
		Case "5"	ReqDay = 31
		Case "6"	ReqDay = 30
		Case "7"	ReqDay = 31
		Case "8"	ReqDay = 31
		Case "9"	ReqDay = 30
		Case "10"	ReqDay = 31
		Case "11"	ReqDay = 30
		Case "12"	ReqDay = 31

	End Select

	Dim First_Date, First_Week

	First_Date	= ReqYear & "-" & ReqMonth & "-1"
	First_Week	= Weekday(First_Date)
	'¹ÞÀº³¯Â¥ Á¶ÇÕ

	Dim strHTML

	strHTML = "<table border='0' cellspacing='0' cellpadding='0' width='173' height='156' background='/BTMS_ADM/ADM_Img/calendar_bg.gif'>"
	strHTML = strHTML & "<tr>"
	strHTML = strHTML & "<td align='center' valign='bottom' height='25'>"

		strHTML = strHTML & "<table border='0' cellspacing='0' cellpadding='0'>"
		strHTML = strHTML & "<tr>"
		strHTML = strHTML & "<td align='center' valign='middle'>"

		strHTML = strHTML & "<font color=white><SPAN OnClick=""VBS:SetCalendar_Layer '" & X_Position & "','" & Y_Position & "','" & ReqYear-1 & "','" & ReqMonth & "','" & vNum & "' "" style='CURSOR: hand'><img src=/BTMS_ADM/ADM_Img/calendar_prev1.gif border=0></SPAN>"

		strHTML = strHTML & "&nbsp;&nbsp;"

		if CLng(ReqMonth-1) <= 0 then

			strHTML = strHTML & "<font color=white style='color:#FFFFFF;font-weight: bold;font-size:8pt;font-family:vernada,±¼¸²Ã¼;text-align:center;'><SPAN OnClick=""VBS:SetCalendar_Layer '" & X_Position & "','" & Y_Position & "','" & ReqYear-1 & "','12','" & vNum & "' "" style='CURSOR: hand'><img src=/BTMS_ADM/ADM_Img/calendar_prev.gif border=0></SPAN>"

		else

			strHTML = strHTML & "<font color=white style='color:#FFFFFF;font-weight: bold;font-size:8pt;font-family:vernada,±¼¸²Ã¼;text-align:center;'><SPAN OnClick=""VBS:SetCalendar_Layer '" & X_Position & "','" & Y_Position & "','" & ReqYear & "','" & ReqMonth-1 & "','" & vNum & "' "" style='CURSOR: hand'><img src=/BTMS_ADM/ADM_Img/calendar_prev.gif border=0></SPAN>"

		end if

		strHTML = strHTML & "&nbsp;" & ReqYear & "³â " & ReqMonth & "¿ù&nbsp;"

		if CLng(ReqMonth+1) > 12 then

			strHTML = strHTML & "<SPAN OnClick=""VBS:SetCalendar_Layer '" & X_Position & "','" & Y_Position & "','" & ReqYear+1 & "','1','" & vNum & "' "" style='CURSOR: hand'><img src=/BTMS_ADM/ADM_Img/calendar_next.gif border=0></SPAN>"

		else

			strHTML = strHTML & "<SPAN OnClick=""VBS:SetCalendar_Layer '" & X_Position & "','" & Y_Position & "','" & ReqYear & "','" & ReqMonth+1 & "','" & vNum & "' "" style='CURSOR: hand'><img src=/BTMS_ADM/ADM_Img/calendar_next.gif border=0></SPAN>"

		end if

		strHTML = strHTML & "&nbsp;</font>"

		strHTML = strHTML & "<SPAN OnClick=""VBS:SetCalendar_Layer '" & X_Position & "','" & Y_Position & "','" & ReqYear+1 & "','" & ReqMonth & "','" & vNum & "' "" style='CURSOR: hand'><img src=/BTMS_ADM/ADM_Img/calendar_next1.gif border=0></SPAN>"

		strHTML = strHTML & "</td>"
		strHTML = strHTML & "</tr>"
		strHTML = strHTML & "</table>"

	strHTML = strHTML & "</td>"
	strHTML = strHTML & "</tr>"
	strHTML = strHTML & "<tr>"
	strHTML = strHTML & "<td height='10'></td>"
	strHTML = strHTML & "</tr>"
	strHTML = strHTML & "<tr>"
	strHTML = strHTML & "<td align='center' valign='top'>"

		strHTML = strHTML & "<table width='100%' border='0' cellspacing='0' cellpadding='0'"
		strHTML = strHTML & "<tr>"


		Dim i, j, k, z, Col, Today_Check, TD_Color, Color_Check

		Col = 0
		Col = Col + 1

		for i = 1 to First_Week - 1

			strHTML = strHTML & "<td width='30' height='12' valign='top'>&nbsp;</td>"

			Col = Col + 1

		next

		j = 0

		for i = 1 to ReqDay

			k = i

			Today_Check = ReqYear & "-" & ReqMonth & "-" & k

			if cstr(CurrDate) = cstr(Today_Check) then
				TD_Color	= "Gray"
				Color_Check	= "Ivory"
			else
				TD_Color	= "white"
				Color_Check	= "Black"
			end if

			strHTML = strHTML & "<td width='30' height='12' valign='middle'>"

			if Col = 1 then
				Color_Check	= "Red"
			elseif Col = 7 then
				Color_Check	= "Blue"
			end if

				strHTML = strHTML & "<table width='100%' border='0' cellspacing='0' cellpadding='0'>"
				strHTML = strHTML & "<tr>"
				strHTML = strHTML & "<td align='center' align='middle' height='18'>"

					strHTML = strHTML & "<table width='19' height='10' border='0' cellspacing='0' cellpadding='0'>"
					strHTML = strHTML & "<tr>"
					strHTML = strHTML & "<td width='19' height='10' align='center' bgcolor='" & TD_Color & "'><SPAN OnClick=""VBS:SelectYearMonthDay_onClick '" & ReqYear & "','" & ReqMonth & "','" & k & "','" & vNum & "' "" style='CURSOR: hand'><font color='" & Color_Check & "'style='font-weight: bold; font-size:8pt;font-family:vernada,±¼¸²Ã¼;text-align:center;'>" & i & "</font></SPAN></td>"
					strHTML = strHTML & "</tr>"
					strHTML = strHTML & "</table>"

				strHTML = strHTML & "</td>"
				strHTML = strHTML & "</tr>"
				strHTML = strHTML & "</table>"

			strHTML = strHTML & "</td>"

			if Col = 7 then

				strHTML = strHTML & "</tr>"
				strHTML = strHTML & "<tr>"
				strHTML = strHTML & "<td height='1' align='center' valign='middle' colspan='7'></td>"
				strHTML = strHTML & "</tr>"

				Col = 0
				j = j + 1
			end if

			Col = Col + 1

		next

	if j = 5 or (j = 4 and Col = 0) then

		if Col = 1 then

		else

			do until Col = 7

				strHTML = strHTML & "<td width='30' height='12' align='center' valign='middle'>&nbsp;</td>"

				Col = Col + 1

			loop

		end if

		strHTML = strHTML & "<td width='30' height='12' align='center' valign='middle'><SPAN OnClick=""VBS:SelectYearMonthDay_onClick '','','','" & vNum & "' "" style='CURSOR: hand'><font color='" & Color_Check & "' style='color:#303030; font-weight: bold; font-size:8pt;font-family:vernada,±¼¸²Ã¼;text-align:center;'><img src=/BTMS_ADM/ADM_Img/calendar_close.gif border=0></font></SPAN></td>"
		strHTML = strHTML & "</tr>"

	else

		if Col = 1 then

		else

			do until Col = 8

				strHTML = strHTML & "<td width='30' height='12' align='center' valign='middle'>&nbsp;</td>"

				Col = Col + 1

			loop

		end if
		strHTML = strHTML & "<tr>"
		strHTML = strHTML & "<td height='1' align='center' valign='middle' colspan='7'></td>"
		strHTML = strHTML & "</tr>"
		strHTML = strHTML & "<tr>"
		strHTML = strHTML & "<td width='30' height='12' align='center' valign='middle' colspan='6'>&nbsp;</td>"
		strHTML = strHTML & "<td width='30' height='12' align='center' valign='middle'><SPAN OnClick=""VBS:SelectYearMonthDay_onClick '','','','" & vNum & "' "" style='CURSOR: hand'><font color='" & Color_Check & "' style='color:#303030; font-weight: bold; font-size:8pt;font-family:vernada,±¼¸²Ã¼;text-align:center;'><img src=/BTMS_ADM/ADM_Img/calendar_close.gif border=0></font></SPAN></td>"
		strHTML = strHTML & "</tr>"
	end if
		strHTML = strHTML & "<tr>"
		strHTML = strHTML & "<td height='1' align='center' valign='middle' colspan='7'></td>"
		strHTML = strHTML & "</tr>"
		strHTML = strHTML & "</table>"

	strHTML = strHTML & "</td>"
	strHTML = strHTML & "</tr>"
	strHTML = strHTML & "</table>"

	Display_Calendar.innerHTML		= strHTML

	Calendar_Layer.style.display	= ""
	Calendar_Layer.style.top		= X_Position
	Calendar_Layer.style.left		= Y_Position

End Sub


'** ---------------------------------------------------------------------------
' ÇÔ ¼ö ¸í : B2C_fnOpenMsgbox(Gubun,sMess)
' ÀÎ    ÀÚ : 1. Gubun : ¸Þ¼¼Áö¹Ú½º ±¸ºÐ (Alert:°æ°íâ, Confirm:ÄÁÆû¹Ú½º)
'			 2. sMess : ¸Þ¼¼Áö¹Ú½º¾ÈÀÇ ¹®±¸
' ¸ñ    Àû : ¸Þ¼¼Áö ¹Ú½º Á¦¾î
'** ---------------------------------------------------------------------------
Function B2C_fnOpenMsgbox(Gubun, sMess)

	Dim sUrl
	Dim sDate

	sUrl			= "/BTMS_COM/B2C_OpenMsgbox.asp?Gubun=" & escape(Gubun) & "&sMess=" & escape(sMess)
	B2C_fnOpenMsgbox	= window.showModalDialog(sUrl, "" ,"dialogWidth:400px;dialogHeight:200px;center:Yes;help:No;resizable:Yes;status:No;Scroll:No;")

End Function



'** ---------------------------------------------------------------------------
' ÇÔ ¼ö ¸í : B2C_fnOpenMsgbox(Gubun,sMess)
' ÀÎ    ÀÚ : 1. Gubun : ¸Þ¼¼Áö¹Ú½º ±¸ºÐ (Alert:°æ°íâ, Confirm:ÄÁÆû¹Ú½º)
'			 2. sMess : ¸Þ¼¼Áö¹Ú½º¾ÈÀÇ ¹®±¸
' ¸ñ    Àû : ¸Þ¼¼Áö ¹Ú½º Á¦¾î
'** ---------------------------------------------------------------------------
Function B2C_fnOpenMsgbox2(Gubun, sMess)

	Dim sUrl
	Dim sDate

	sUrl			= "/BTMS_ADM/ADM_COM/OpenMsgbox2.asp?Gubun=" & escape(Gubun) & "&sMess=" & escape(sMess)
	B2C_fnOpenMsgbox2	= window.showModalDialog(sUrl, "" ,"dialogWidth:357px;dialogHeight:200px;center:Yes;help:No;resizable:No;status:No;Scroll:No;")

End Function



'** ---------------------------------------------------------------------------
' ÇÔ ¼ö ¸í : fnOpenMsgbox(Gubun,sMess)
' ÀÎ    ÀÚ : 1. Gubun : ¸Þ¼¼Áö¹Ú½º ±¸ºÐ (Alert:°æ°íâ, Confirm:ÄÁÆû¹Ú½º)
'			 2. sMess : ¸Þ¼¼Áö¹Ú½º¾ÈÀÇ ¹®±¸
' ¸ñ    Àû : ¸Þ¼¼Áö ¹Ú½º Á¦¾î
'** ---------------------------------------------------------------------------
Function fnOpenMsgbox(Gubun, sMess)

	Dim sUrl
	Dim sDate

	sUrl			= "/BTMS_ADM/ADM_COM/OpenMsgbox.asp?Gubun=" & escape(Gubun) & "&sMess=" & escape(sMess)
	fnOpenMsgbox	= window.showModalDialog(sUrl, "" ,"dialogWidth:357px;dialogHeight:200px;center:Yes;help:No;resizable:No;status:No;Scroll:No;")

End Function



'** ---------------------------------------------------------------------------
' ÇÔ ¼ö ¸í : fnOpenMsgbox2(Gubun,sMess)
' ÀÎ    ÀÚ : 1. Gubun : ¸Þ¼¼Áö¹Ú½º ±¸ºÐ (Alert:°æ°íâ, Confirm:ÄÁÆû¹Ú½º)
'			 2. sMess : ¸Þ¼¼Áö¹Ú½º¾ÈÀÇ ¹®±¸
' ¸ñ    Àû : ¸Þ¼¼Áö ¹Ú½º Á¦¾î
'** ---------------------------------------------------------------------------
Function fnOpenMsgbox2(Gubun, sMess)

	Dim sUrl
	Dim sDate

	sUrl			= "/BTMS_ADM/ADM_COM/OpenMsgbox2.asp?Gubun=" & escape(Gubun) & "&sMess=" & escape(sMess)
	fnOpenMsgbox2	= window.showModalDialog(sUrl, "" ,"dialogWidth:357px;dialogHeight:200px;center:Yes;help:No;resizable:No;status:No;Scroll:No;")

End Function



'** ---------------------------------------------------------------------------
' ÇÔ ¼ö ¸í : AddDayBtn(sImgID, sBtnNm, bFlag)
' ÀÎ    ÀÚ : 1. sImgID : DIV ID °ª
'	         2. sBtnNm : ¹öÆ°À̸§ Name
'		     3. bFlag : true / false °ª
'			 4. AddDay : Ãß°¡ÇÒÀϼö
' ¸ñ    Àû : ¹öÆ° ó¸®ÇÏ´Â ÇÔ¼ö
'** ---------------------------------------------------------------------------
Function AddDayBtn(sImgID, sBtnNm, bFlag, AddDay)

	Dim sVal

	If bFlag = true Then

		sVal = "<IMG src=/BTMS_ADM/ADM_IMG/button/" & sBtnNm & ".gif  align=absmiddle OnClick=VBS:" & sImgID & "_OnClick('" & AddDay & "') style=CURSOR:hand>"

	ElseIf bFlag = false Then

		sVal = "<IMG src=/BTMS_ADM/ADM_IMG/button/" & sBtnNm & "_d.gif align=absmiddle>"

	End If

	AddDayBtn = sVal

End Function



'** ---------------------------------------------------------------------------
' ÇÔ ¼ö ¸í : SelectNum
' ÀÎ    ÀÚ : 1. sVal
' ¸ñ    Àû : ¼ýÀÚ¸¸ ¹ßÃé
' ÇÃ ·Î ¿ì :
' °Ë    ¼ö :
' »ý ¼º ÀÏ :
' ¼ö    Á¤ :
'** ---------------------------------------------------------------------------
Function SelectNum(sVal)

	Dim i, sResult

	sResult = ""

	For i = 1 To Len(sVal)
		If ((Asc(Mid(sVal,i,1))) > 47) And ((Asc(Mid(sVal,i,1))) < 58) Then
			sResult = sResult & Mid(sVal,i,1)
		End If
	Next

	SelectNum = sResult

End Function


'** ---------------------------------------------------------------------------
' ÇÔ ¼ö ¸í : CheckDate
' ÀÎ    ÀÚ : 1. sVal : ³â¿ùÀÏ
' ¸ñ    Àû : üũ
' ÇÃ ·Î ¿ì :
' °Ë    ¼ö :
' »ý ¼º ÀÏ :
' ¼ö    Á¤ :
'** ---------------------------------------------------------------------------
Function CheckDate(sVal)

	Dim sYear, sMonth, sDay, sMax, sValue, aMaxDay

	sValue = SelectNum(sVal)

	If Len(sValue) < 8 Or Len(sValue) > 8 Then
		Exit Function
	End If

	aMaxDay = Array(31,28,31,30,31,30,31,31,30,31,30,31)

	sYear	= Left(sValue,4)
	sMonth	= Mid(sValue,5,2)
	sDay	= Right(sValue,2)

	If (CInt(sMonth) > 12) Or (CInt(sMonth) <= 0) Then
		Exit Function
	End If

	If sMonth = "02" Then

		Dim nCheckYear

		nCheckYear = CInt(sYear)

		If ((nCheckYear Mod 4 = 0) And (nCheckYear Mod 100 <> 0)) Or (nCheckYear Mod 400 = 0) Then
			sMax = 29
		Else
			sMax = 28
		End If
	Else
		sMax = aMaxDay(CInt(sMonth)-1)
	End If

	If (CInt(sDay) > sMax) Or (CInt(sDay) <= 0 ) Then
		Exit Function
	end if

	CheckDate = sYear & "-" & sMonth & "-" & sDay

End Function


'** ---------------------------------------------------------------------------
' ÇÔ ¼ö ¸í : CheckDate
' ÀÎ    ÀÚ : 1. sVal : ³â¿ùÀÏ
' ¸ñ    Àû : üũ
' ÇÃ ·Î ¿ì :
' °Ë    ¼ö :
' »ý ¼º ÀÏ :
' ¼ö    Á¤ :
'** ---------------------------------------------------------------------------
Function CheckDate2(sVal)

	Dim sYear, sMonth, sDay, sMax, sValue, aMaxDay

	sValue = SelectNum(sVal)

	If Len(sValue) < 8 Or Len(sValue) > 8 Then
		Exit Function
	End If

	sYear	= Left(sValue,4)
	sMonth	= Mid(sValue,5,2)
	sDay	= Right(sValue,2)

	If IsDate(sYear & "-" & sMonth & "-" & sDay) = False Then Exit Function

	CheckDate2 = Right(sYear,2) & "." & sMonth & "." & sDay

End Function

'** ---------------------------------------------------------------------------
' ÀÎ    ÀÚ : 1. sVal : ³â¿ùÀϽúÐÃÊ
' ¸ñ    Àû : üũ
'** ---------------------------------------------------------------------------
Function All_CheckDate(sVal)

	Dim sYear, sMonth, sDay, sMax, sValue, aMaxDay, sTime, sMinute

	sValue = SelectNum(sVal)

	IF Len(sValue) < 12 Or Len(sValue) > 12 Then
		Exit Function
	End IF

	aMaxDay = Array(31,28,31,30,31,30,31,31,30,31,30,31)

	sYear	= Left(sValue,4)
	sMonth	= Mid(sValue,5,2)
	sDay	= Mid(sValue,7,2)
	sTime	= Mid(sValue,9,2)
	sMinute	= Mid(sValue,11,2)


	If sMonth = "02" Then

		Dim nCheckYear

		nCheckYear = CInt(sYear)

		If ((nCheckYear Mod 4 = 0) And (nCheckYear Mod 100 <> 0)) Or (nCheckYear Mod 400 = 0) Then
			sMax = 29
		Else
			sMax = 28
		End If
	Else
		sMax = aMaxDay(CInt(sMonth)-1)
	End If

	If (CInt(sDay) > sMax) Or (CInt(sDay) <= 0 ) Then
		Exit Function
	end if

	All_CheckDate = sYear & "-" & sMonth & "-" & sDay & " " & sTime & ":" & sMinute

End Function

Sub setBtnAuth()

	Dim  strParam, strPageUrl, xmlRequest, xmlDom, strRtn, oXmlhttp



		'------------------------------------------------
		Set oXmlhttp = CreateObject("Microsoft.XMLHTTP")
		Set xmlDom = CreateObject("Microsoft.XMLDOM")
		'------------------------------------------------


		'------------------------------------------------------------------------------

		strParam = "strPID=" & hidPID.Value & _
				   "&strGROUP_CD=" & hidGROUP_CD.Value

		strPageUrl = "/BTMS_ADM/ADM_Com/AJAX_BTN_AUTH.asp"

		oXmlhttp.open "POST", strPageUrl, false
		oXmlhttp.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"

'		window.open "/BTMS_ADM/ADM_Com/AJAX_BTN_AUTH.asp?" & strParam
'		exit sub

		oXmlhttp.send strParam

		'------------------------------------------------------------------------------
		xmlDom.loadXML(oXmlhttp.responseXML.xml)

		strRtn = xmlDom.documentElement.selectSingleNode("strRtn").text
		strIS_RET = xmlDom.documentElement.selectSingleNode("strIS_RET").text
		strIS_NEW = xmlDom.documentElement.selectSingleNode("strIS_NEW").text
		strIS_DEL = xmlDom.documentElement.selectSingleNode("strIS_DEL").text
		strIS_SAVE = xmlDom.documentElement.selectSingleNode("strIS_SAVE").text
		strIS_EXCEL = xmlDom.documentElement.selectSingleNode("strIS_EXCEL").text
		strIS_PRINT = xmlDom.documentElement.selectSingleNode("strIS_PRINT").text

		xmlDom.abort
		'------------------------------------------------------------------------------

		'----------------------
		Set xmlDom = Nothing
		Set oXmlhttp = Nothing
		'----------------------



'		if strRtn <> "True" then

'			Message = "¹öÆ° ±ÇÇÑ Á¤º¸¸¦ ¾ò¾î ¿À´Âµ¥ ¿À·ù°¡ ¹ß»ýÇß½À´Ï´Ù."
'			Call fnOpenMsgbox("Alert", Message)

'		end if



End Sub

Sub printTitle()

	Dim  strParam, strPageUrl, xmlRequest, xmlDom, strRtn, oXmlhttp,strMTITLE,strSTITLE



		'------------------------------------------------
		Set oXmlhttp = CreateObject("Microsoft.XMLHTTP")
		Set xmlDom = CreateObject("Microsoft.XMLDOM")
		'------------------------------------------------


		'------------------------------------------------------------------------------

		strParam = "strPID=" & hidPID.Value

		strPageUrl = "/BTMS_ADM/ADM_Com/AJAX_TITLE.asp"

		oXmlhttp.open "POST", strPageUrl, false
		oXmlhttp.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"

		'window.open "/BTMS_ADM/ADM_Com/AJAX_TITLE.asp?" & strParam
		'exit sub

		oXmlhttp.send strParam

		'------------------------------------------------------------------------------
		xmlDom.loadXML(oXmlhttp.responseXML.xml)
		strRtn = xmlDom.documentElement.selectSingleNode("strRtn").text
		strMTITLE = xmlDom.documentElement.selectSingleNode("strMTITLE").text
		strSTITLE = xmlDom.documentElement.selectSingleNode("strSTITLE").text
		xmlDom.abort
		'------------------------------------------------------------------------------

		'----------------------
		Set xmlDom = Nothing
		Set oXmlhttp = Nothing
		'----------------------



		if strRtn = "True" then
			mTitle.innerHtml = strMTITLE
			sTitle.innerHtml = "&nbsp>&nbsp" & strSTITLE
		else
			Message = "¸Þ´º Á¤º¸ ¼³Á¤ÀÌ À߸ø µÇ¾ú½À´Ï´Ù."
			Call fnOpenMsgbox("Alert", Message)
		end if




End Sub

Sub sessionCheck()
	If Trim(hidGROUP_CD.Value) = "" Then
		Message = "¼¼¼Ç Á¤º¸°¡ ²÷°å½À´Ï´Ù.<br>·Î±×ÀÎ ÆäÀÌÁö·Î À̵¿ÇÕ´Ï´Ù."
		Call fnOpenMsgbox("Alert", Message)
		window.location = "/BTMS_ADM/logout.asp"
	End If
End Sub


'** ---------------------------------------------------------------------------
' ÀÎ    ÀÚ : 1. sVal : ±Ý¾× ¹®ÀÚ¿­
' ¸ñ    Àû : ¹®ÀÚ¿­¿¡ ´ÜÀ§¿¡ ¸Â°Ô Äĸ¶¸¦ »ý¼ºÇÑ´Ù.
'** ---------------------------------------------------------------------------
Function NumCommma(sVal)

	Dim i, sValTemp

	sVal		= SelectNum(sVal)
	sValTemp	= ""

	Select Case Len(sVal)

		Case 4,5,6
			If Len(sVal) = 4 Then
				sValTemp = Left(Trim(sVal),1) & "," & Right(Trim(sVal),3)
			ElseIf Len(sVal) = 5 Then
				sValTemp = Left(Trim(sVal),2) & "," & Right(Trim(sVal),3)
			ElseIf Len(sVal) = 6 Then
				sValTemp = Left(Trim(sVal),3) & "," & Right(Trim(sVal),3)
			End If

		Case 7,8,9
			If Len(sVal) = 7 Then
				sValTemp = Left(Trim(sVal),1) & "," & Mid(Trim(sVal),2,3) & "," & Right(Trim(sVal),3)
			ElseIf Len(sVal) = 8 Then
				sValTemp = Left(Trim(sVal),2) & "," & Mid(Trim(sVal),3,3) & "," & Right(Trim(sVal),3)
			ElseIf Len(sVal) = 9 Then
				sValTemp = Left(Trim(sVal),3) & "," & Mid(Trim(sVal),4,3) & "," & Right(Trim(sVal),3)
			End If

		Case 10,11,12
			If Len(sVal) = 10 Then
				sValTemp = Left(Trim(sVal),1) & "," & Mid(Trim(sVal),2,3) & "," & Mid(Trim(sVal),5,3) & "," & Right(Trim(sVal),3)
			ElseIf Len(sVal) = 11 Then
				sValTemp = Left(Trim(sVal),2) & "," & Mid(Trim(sVal),3,3) & "," & Mid(Trim(sVal),6,3) & "," & Right(Trim(sVal),3)
			ElseIf Len(sVal) = 12 Then
				sValTemp = Left(Trim(sVal),3) & "," & Mid(Trim(sVal),4,3) & "," & Mid(Trim(sVal),7,3) & "," & Right(Trim(sVal),3)
			End If
		Case Else
			sValTemp = Trim(sVal)
	End Select

	NumCommma = sValTemp

End Function



'** ---------------------------------------------------------------------------
' ÇÔ ¼ö ¸í : ComOpenMsgbox("Alert",title, Message)
' ÀÎ    ÀÚ : 1. Gubun : ¸Þ¼¼Áö¹Ú½º ±¸ºÐ (Alert:°æ°íâ, Confirm:ÄÁÆû¹Ú½º)
'			 2. sTitle : ¸Þ¼¼Áö¹Ú½º¾ÈÀÇ Å¸ÀÌƲ
'			 3. sMess : ¸Þ¼¼Áö¹Ú½º¾ÈÀÇ ¹®±¸(XML¶Ç´Â ÅؽºÆ®)
' ¸ñ    Àû : ¸Þ¼¼Áö ¹Ú½º Á¦¾î
'** ---------------------------------------------------------------------------
Function ComOpenMsgbox(Gubun, sTitle, sMess)

	Dim sUrl

	sUrl			= "/BTMS_COM/FMSG01_P10.asp?Gubun=" & Gubun & "&sTitle=" & sTitle & "&sMess=" & sMess
	ComOpenMsgbox	= window.showModalDialog(sUrl, "" ,"dialogWidth:400px;dialogHeight:200px;center:Yes;help:No;resizable:No;status:No;Scroll:No;")

End Function


'** -----------------------------------------------------------------------------------------------------------------------
' ÀÎ    ÀÚ : ÅؽºÆ® ¹Ú½º id or name
' ¸ñ    Àû : ´Þ·Â¾ÆÀÌÄÜ Å¬¸¯½Ã
'** -----------------------------------------------------------------------------------------------------------------------
Sub BtnCalendar_OnClick(txtVal)

	Dim open_page, Retrun_errval, arrRtnVal

	open_page = "/BTMS_COM/FCAL01_P10.asp?CanReserveDate=" & ReserveDate
	Retrun_errval = showModalDialog(open_page, "Get", _
				"dialogWidth:570px;dialogHeight:249px;center:yes;status:no;scrollbars:no;help:0;dialogHide:no")

	If Retrun_errval <> "noData" Then

		arrRtnVal = Split(Retrun_errval, strRowDelimiter)


		'arrRtnVal(0) ³âµµ  arrRtnVal(1)  ¿ù   arrRtnVal(2)  ÀÏ
		eval("" & txtVal).Value = arrRtnVal(0) & "-" & arrRtnVal(1)& "-"  & arrRtnVal(2)  '»ç¿ëÀÚ viewºÎºÐ ³¯Â¥ º¯°æ

	End If

End Sub

'-------------------------------------------------------------------------
' ¼³¸í	: À¯È¿±â°£ º¯È¯
'-------------------------------------------------------------------------
' Input : Parameter - validPeriod : À¯È¿±â°£ ÄÚµå
' Output: Function Value - À¯È¿±â°£
'-------------------------------------------------------------------------
Function getValidPeriodDesc(validPeriod)
	Dim validPeriodDesc

	if isnull(validPeriod) or validPeriod = "" then
		getValidPeriodDesc = validPeriod
		exit function
	end if

	if Instr(validPeriod, "M") > 0 then
		validPeriodDesc = "°³¿ù"
	elseif Instr(validPeriod, "D") > 0 then
		validPeriodDesc = "ÀÏ"
	elseif Instr(validPeriod, "Y") > 0 then
		validPeriodDesc = "³â"
	end if
	getValidPeriodDesc = CInt(Mid(validPeriod,2,3)) & validPeriodDesc
End Function
'-------------------------------------------------------------------------


'-------------------------------------------------------------------------
' ¼³¸í	: ¼ýÀÚ ¿ùÀ» ¹®ÀÚ ¿ù·Î º¯È¯
'-------------------------------------------------------------------------
' Input : Parameter - numMonth : ¼ýÀÚ ¿ù
' Output: Function Value - ¹®ÀÚ ¿ù
'-------------------------------------------------------------------------
Function getStrMonth(numMonth)
	Dim arrStrMonth
	Dim mIdx

	arrStrMonth = Array("JAN", "FEB", "MAR", "APR", "MAY", "JUN", "JUL", "AUG", "SEP", "OCT", "NOV", "DEC")

	mIdx = CInt(numMonth)

    If mIdx = 0 Then
        getStrMonth = "000"
        Exit Function
    End If
            
	If mIdx >= 1 And mIdx <= 12 Then
	    getStrMonth = arrStrMonth(mIdx-1)
    Else
        getStrMonth = numMonth
    End If
End Function
'-------------------------------------------------------------------------

'-------------------------------------------------------------------------
' ¼³¸í	: ¹®ÀÚ ¿ùÀ» ¼ýÀÚ ¿ù·Î º¯È¯
'-------------------------------------------------------------------------
' Input : Parameter - aStrMonth : ¹®ÀÚ ¿ù
' Output: Function Value - ¼ýÀÚ ¿ù
'-------------------------------------------------------------------------
Function getNumMonth(aStrMonth)
	Dim arrStrMonth
	Dim numMonth
	Dim i


	arrStrMonth = Array("JAN", "FEB", "MAR", "APR", "MAY", "JUN", "JUL", "AUG", "SEP", "OCT", "NOV", "DEC")

    For i=0 To UBound(arrStrMonth)
		If aStrMonth = arrStrMonth(i) Then
            numMonth = CStr(i+1)
	        Exit For
        End If
    Next

    If Len(numMonth) = 1 Then
        numMonth = "0" & numMonth
    End If

    getNumMonth = numMonth


End Function
'-------------------------------------------------------------------------


'-------------------------------------------------------------------------
' ¼³¸í	: ¼ýÀÚ ¿ùÀ» ¹®ÀÚ ¿ù·Î º¯È¯
'-------------------------------------------------------------------------
' Input : Parameter - aStrMonth : ¹®ÀÚ ¿ù
'         Parameter - aNumDay   : ¼ýÀÚ ÀÏ
'         Parameter - aStrTime  : ½Ã°£
' Output: Function Value - 01¿ù10ÀÏ(¸ñ) 10:50 Çü½Ä
'-------------------------------------------------------------------------
Function getSegDateFormat(aStrMonth, aNumDay, aStrTime)
	Dim strDate
	Dim strWeekday

'    MsgBox aStrMonth & "/" & aNumDay & "/" & aStrTime

    '-------------------------------------
    ' Open ¿¹¾àÀÎ °æ¿ì
    '-------------------------------------
    If Len(aStrMonth) = 0 Or Len(aNumDay) = 0 Or Len(aStrTime) = 0 Then
        getSegDateFormat = ""
        Exit Function        
    End If
            
	strDate             = getSegYear(getNumMonth(aStrMonth)) & "-" & getNumMonth(aStrMonth) & "-" & aNumDay
	strWeekday          = getStrWeekday(weekday(strDate))
    getSegDateFormat    = getNumMonth(aStrMonth) & "¿ù" & aNumDay & "ÀÏ(" & strWeekday & ") " &_
                          Left(aStrTime,2) & ":" & Right(aStrTime,2)
                                  
End Function
'-------------------------------------------------------------------------


'-------------------------------------------------------------------------
' ¼³¸í	: ¹®ÀÚ¿ù°ú ¼ýÀÚÀÏÀÌ µé¾î¿ÔÀ»¶§ ¾Æ·¡ÀÇ ÇüÅ·Πº¯È¯
'-------------------------------------------------------------------------
' Input : Parameter - aStrMonth : ¹®ÀÚ ¿ù
'         Parameter - aNumDay   : ¼ýÀÚ ÀÏ
' Output: Function Value - ÇüÅ 20071207 
'-------------------------------------------------------------------------
Function getCheckSegDateFormat(aStrMonth, aNumDay)
	'-------------------------------------
    ' Open ¿¹¾àÀÎ °æ¿ì
    '-------------------------------------
    If Len(aStrMonth) = 0 Or Len(aNumDay) = 0 Then
        getCheckSegDateFormat = ""
        Exit Function        
    End If
            
	getCheckSegDateFormat = getSegYear(getNumMonth(aStrMonth)) & "-" & getNumMonth(aStrMonth) & "-" & aNumDay
                                  
End Function
'-------------------------------------------------------------------------


'-------------------------------------------------------------------------
' ¼³¸í	: ¿äÀÏ °ªÀ» ¹Þ¾Æ¼­ ¹®ÀÚ ¿äÀÏ·Î º¯È¯
'-------------------------------------------------------------------------
' Input : Parameter - aNumWeekday : ¼ýÀÚ ¿äÀÏ
' Output: Function Value -
'-------------------------------------------------------------------------
Function getStrWeekday(aNumWeekday)
	Dim strWeekday
	Select Case weekday(aNumWeekday)
		case 1 : strWeekday = "ÀÏ"
		case 2 : strWeekday = "¿ù"
		case 3 : strWeekday = "È­"
		case 4 : strWeekday = "¼ö"
		case 5 : strWeekday = "¸ñ"
		case 6 : strWeekday = "±Ý"
		case 7 : strWeekday = "Åä"
	End Select

	getStrWeekday = strWeekday
End Function
'-------------------------------------------------------------------------


'-------------------------------------------------------------------------
' ¼³¸í	: ¼ýÀÚ ¿ùÀ» ¹Þ¾Æ¼­ ÇØ´ç ¿ùÀÇ ³âµµ¸¦ get
'-------------------------------------------------------------------------
' Input : Parameter - aNumMonth : ¼ýÀÚ ¿ù
' Output: Function Value -
'-------------------------------------------------------------------------
Function getSegYear(aNumMonth)
	Dim currenMonth             ' ÇöÀç ¿ù
	Dim selectMonth             ' ÆĶó¹ÌÅÍ ¿ù

	currenMonth = CInt(Month(Now))
	selectMonth = CInt(aNumMonth)

	If (selectMonth >= currenMonth) Then
		getSegYear = Year(Now)
	Else
		getSegYear = Year(Now) + 1
	End If

End Function
'-------------------------------------------------------------------------


'-------------------------------------------------------------------------
' ¼³¸í	: 8ÀÚ¸®³¯ÀÚ¸¦ ³ªÅ¸³»¸¦ ¹®ÀÚ¿­À» ¹Þ¾Æ¼­ ¸îÀÏÈÄ ¸îÀÏÀüÀÇ ³¯Â¥¸¦ ¸®ÅÏÇÑ´Ù.
'-------------------------------------------------------------------------
' Input : Parameter - aStrDate: ¹®ÀÚ ³¯Â¥
' Output: Function Value - 2007³â 09¿ù 13ÀÏ
'-------------------------------------------------------------------------
Function getCalcularDateFormat(aStrDate,aNum)

	Dim strDate
	Dim strWeekday
	
	If Trim(aStrDate) = "" or Trim(aStrDate) = "00000000" Then
		Exit Function	
	End If

	strDate             = Cint(Left(aStrDate,4)) & "-" & Cint(Mid(aStrDate,5,2)) & "-" &  Cint(Right(aStrDate,2))

	strDate = DateAdd("d",aNum,Cdate(strDate))   '2007-08-09

	getCalcularDateFormat    = left(strDate,4)& "³â " & Mid(strDate,6,2) & "¿ù " & Right(strDate,2) & "ÀÏ"
	
End Function
'-------------------------------------------------------------------------


'-------------------------------------------------------------------------
' ¼³¸í	: 8ÀÚ¸®³¯ÀÚ¸¦ ³ªÅ¸³»¸¦ ¹®ÀÚ¿­À» ¹Þ¾Æ¼­ ¸îÀÏÈÄ ¸îÀÏÀüÀÇ ³¯Â¥¸¦ ¸®ÅÏÇÑ´Ù.
'-------------------------------------------------------------------------
' Input : Parameter - aStrDate: ¹®ÀÚ ³¯Â¥
' Output: Function Value - 2007³â 09¿ù 13ÀÏ (¸ñ)
'-------------------------------------------------------------------------
Function getCalcularDateFormat2(aStrDate,aNum)

	Dim strDate
	Dim strWeekday
	
   
   If aStrDate <> "00000000" and Trim(aStrDate) <> "" Then
		strDate             = Cint(Left(aStrDate,4)) & "-" & Cint(Mid(aStrDate,5,2)) & "-" &  Cint(Right(aStrDate,2))

		strDate = DateAdd("d",aNum,Cdate(strDate))   '2007-08-09

		strWeekday          = getStrWeekday(weekday(strDate))

		getCalcularDateFormat2    = left(strDate,4)& "³â " & Mid(strDate,6,2) & "¿ù " & Right(strDate,2) & "ÀÏ" & " (" & strWeekday & ")"
	Else
		getCalcularDateFormat2 = "¹ÌÁöÁ¤"
	End If
End Function
'-------------------------------------------------------------------------



'---------------------------------------------------------------------------------------------------
' ¼³¸í	: 8ÀÚ¸®³¯ÀÚ¸¦ ³ªÅ¸³»¸¦ ¹®ÀÚ¿­À» ¹Þ¾Æ¼­ ¸îÀÏÈÄ ¸îÀÏÀüÀÇ ³¯Â¥¸¦ ´Ù½Ã 8ÀÚ¸®·Î ¸®ÅÏÇÑ´Ù.
'----------------------------------------------------------------------------------------------------
' Input : Parameter - aStrDate: ¹®ÀÚ ³¯Â¥
' Output: Function Value - 20070913
' 2008/08/12 °­»ó±¸ ¼öÁ¤ - Ŭ¶óÀ̾ðÆ®ÂÊÀÇ ³¯Â¥Çü½ÄÀÌ / ·Î ±¸¼ºµÇ¾îÀÖÀ¸¸é ³¯Â¥º¯È¯½Ã ¿À·ù³ª´ÂÇö»ó ÇØ°á
'-----------------------------------------------------------------------------------------------------
Function getCalcularDateToDate(aStrDate,aNum)

	Dim strDate
	Dim strWeekday

	strDate             = Cint(Left(aStrDate,4)) & "-" & Cint(Mid(aStrDate,5,2)) & "-" &  Cint(Right(aStrDate,2))
	strDate = DateAdd("d",aNum,Cdate(strDate))   '2007-08-09
	getCalcularDateToDate    = Replace(Replace(strDate,"-",""),"/","")

End Function
'-------------------------------------------------------------------------



'** -----------------------------------------------------------------------------------------------------------------------
' ÀÎ    ÀÚ :
' ¸ñ    Àû : Ç×°ø¿©Á¤ °¡Á®¿À±â
'** -----------------------------------------------------------------------------------------------------------------------
Sub getSegList(PNR_SEQUENCE)

	Dim strParam, pageUrl, xmlRequest, xmlDom, strRtn, strData
	Dim arrRows, arrCols, i, bgColor
	Dim strHTML
	Dim prevItinNo : prevItinNo = ""            ' ÀÌÀü ¿©Á¤ NO
	Dim cellIdx
	Dim rnum                        ' Row NO

	Dim rowSpanRNum                 ' RowSpan Àû¿ëµÈ Row NO
	Dim rowSpan                     ' Àû¿ëµÈ RowSpan °ª


    strParam = "sJob=" & CONST_SEGLIST										' Job ±¸ºÐ
	strParam = strParam & "&PNR_SEQUENCE=" & PNR_SEQUENCE					' DB ·¹ÄÚµå ±¸ºÐ°ª

    pageUrl     = "/BTMS_MYPAGE/FMYP01_A20.asp"

	' µð¹ö±ë ÆÁ
     'Window.Open pageUrl & "?" & strParam

    Set xmlRequest  = CreateObject("Microsoft.XMLHTTP")
    Set xmlDom      = CreateObject("Microsoft.XMLDOM")

    xmlRequest.Open "POST", pageUrl, FALSE
    xmlRequest.setRequestHeader "Content-Type","application/x-www-form-urlencoded;charset=euc-kr"
    xmlRequest.Send strParam

    xmlDom.loadXML(xmlRequest.responseXML.xml)
		strRtn      = xmlDom.documentElement.selectSingleNode("strRtn").text
		strData     = xmlDom.documentElement.selectSingleNode("strData").text
    xmlDom.abort

    Set xmlDom      = Nothing
    Set xmlRequest  = Nothing

    If strRtn = "FALSE" Then
'		Call Cls_Grid(tblSimGrid)
'		Call SetList()
    Else
		arrRows = Split(strData, strRowDelimiter)		
        rnum = 1
        
		For i = 1 To Ubound(arrRows)
			arrCols = Split(arrRows(i-1), strColDelimiter)
			bgColor = "#FFFFFF"

			With tblSimGrid

				.insertRow
				.rows(rnum).className	= "selectair_white"

                cellIdx = 0

                If prevItinNo <> arrCols(26) Then           ' ¿©Á¤¹øÈ£°¡ ´Þ¶óÁö¸é ó¸®

                    rowSpan = arrCols(29)
            		'----------------------------------------------------
            		' NO
            		'----------------------------------------------------
    				.rows(rnum).insertcell
    				.rows(rnum).cells(cellIdx).rowSpan = rowSpan     ' ¿©Á¤ Count ¼ö ¸¸Å­ RowSpan
    				.rows(rnum).cells(cellIdx).align = "center"
    				.rows(rnum).cells(cellIdx).innertext = Trim(arrCols(26) & "")

                    cellIdx = cellIdx + 1
                    rowSpanRNum = rnum

                End If

				' Æí¸í
				.rows(rnum).insertcell
				.rows(rnum).cells(cellIdx).className	= "lineheight16"
				.rows(rnum).cells(cellIdx).align = "center"
					strHTML = "<table width='90%' border='0' cellspacing='0' cellpadding='0'>"
					strHTML = strHTML & "<tr>"
					'strHTML = strHTML & "<td width='56' height='26' align='center'><img src='/BTMS_IMG/img_airbooking/Air_Logo/" & Trim(arrCols(1) & "") & ".jpg' width='59' height='26'></td>"
					strHTML = strHTML & "<td width='56' height='26' align='center'><img src='/BTMS_IMG/img_airbooking/Air_Logo/" & Trim(arrCols(1) & "") & ".gif'></td>"
					strHTML = strHTML & "<td width='90' align='left' style='padding-left:6px''>" & Trim(arrCols(28) & "") & "<br>" & Trim(arrCols(2) & "") & "</td>"
'					strHTML = strHTML & "<td width='90' align='left' style='padding-left:6px''><Span OnClick='VBS:fnFlightInfo " & PNR_SEQUENCE & "," & Trim(arrCols(0) & "") & "' Style=Cursor:Hand>" & Trim(arrCols(28) & "") & "</Span><br>" & Trim(arrCols(2) & "") & "</td>"
					strHTML = strHTML & "</tr>"
					strHTML = strHTML & "</table>"
				.rows(rnum).cells(cellIdx).innerHtml = strHTML

				cellIdx = cellIdx + 1

				' Ãâ¹ß
				.rows(rnum).insertcell
				.rows(rnum).cells(cellIdx).align = "center"
					strHTML = "<table width='100%' border='0' cellspacing='0' cellpadding='0'>"
					strHTML = strHTML & "<tr>"
					strHTML = strHTML & "<td height='22' align='center' class='mypage_td05'>" & Trim(arrCols(3) & "") & " (" & Trim(arrCols(4) & "") & ")</td>"
					strHTML = strHTML & "</tr>"
					strHTML = strHTML & "<tr>"

					If Len(Trim(arrCols(5)) & "") = 0 Then
					    strHTML = strHTML & "<td height='22' align='center' class='mypage_td06'>&nbsp;</td>"
                    Else					    
    					strHTML = strHTML & "<td height='22' align='center' class='mypage_td06'><b>" & CheckDate(Trim(arrCols(5) & "")) & " " & Trim(arrCols(7) & "") & "  " & Left(Trim(arrCols(6) & ""),2) & ":" & Right(Trim(arrCols(6) & ""),2) & "</b></td>"
                    End If
					
					strHTML = strHTML & "</tr>"
					strHTML = strHTML & "</table>"
				.rows(rnum).cells(cellIdx).innerHtml = strHTML

				cellIdx = cellIdx + 1

				' µµÂø
				.rows(rnum).insertcell
				.rows(rnum).cells(cellIdx).align = "center"
					strHTML = "<table width='100%' border='0' cellspacing='0' cellpadding='0'>"
					strHTML = strHTML & "<tr>"
					strHTML = strHTML & "<td height='22' align='center' class='mypage_td05'>" & Trim(arrCols(8) & "") & " (" & Trim(arrCols(9) & "") & ")</td>"
					strHTML = strHTML & "</tr>"
					strHTML = strHTML & "<tr>"
					
					If Len(Trim(arrCols(10)) & "") = 0 Then
					    strHTML = strHTML & "<td height='22' align='center' class='mypage_td06'>&nbsp;</td>"
                    Else					    
					    strHTML = strHTML & "<td height='22' align='center' class='mypage_td06'><b>" & CheckDate(Trim(arrCols(10) & "")) & " " & Trim(arrCols(12) & "") & "  " & Left(Trim(arrCols(11) & ""),2) & ":" & Right(Trim(arrCols(11) & ""),2) & "</b></td>"
                    End If
                    					    
					strHTML = strHTML & "</tr>"
					strHTML = strHTML & "</table>"
				.rows(rnum).cells(cellIdx).innerHtml = strHTML

				cellIdx = cellIdx + 1

				' Á¼®
				.rows(rnum).insertcell
				.rows(rnum).cells(cellIdx).align = "center"
					strHTML = Trim(arrCols(17) & "") & " (" & Trim(arrCols(13) & "") & ")<br>"
					strHTML = strHTML & "<span class='selectair_type1'>" & Trim(arrCols(14) & "") & "¼® " & Trim(arrCols(16) & "") & "</span>"
				.rows(rnum).cells(cellIdx).innerHtml = strHTML

				cellIdx = cellIdx + 1

				' Ç×°ø»ç¿¹¾à¹øÈ£
				.rows(rnum).insertcell
				.rows(rnum).cells(cellIdx).align = "center"
				.rows(rnum).cells(cellIdx).innertext = Trim(arrCols(15) & "")

                cellIdx = cellIdx + 1

                ' ºñÇàÁ¤º¸
                If prevItinNo <> arrCols(26) Then
                    If arrCols(32) = "QQ" Then
                        strHTML =           "&nbsp;"                    
                    Else                        
            		    strHTML =           "<img src='/B2C_IMG/Agency/btn_detailview.gif' onClick='fnOpenFlightInfo(" & rnum & ")' style='cursor:hand'>"
                    End If

                
    				.rows(rnum).insertcell
    				.rows(rnum).cells(cellIdx).rowSpan = rowSpan        ' ¿©Á¤ Count ¼ö ¸¸Å­ RowSpan
    				.rows(rnum).cells(cellIdx).align = "center"
    				.rows(rnum).cells(cellIdx).innerHtml = strHTML

                    '--------------------------------------
                    ' ºñÇàÁ¤º¸ Req XML
                    '--------------------------------------
                    .rows(rnum).cells(0).SetAttribute "FLIINFO_XML", getSegFlightInfoXml(arrRows, i-1, arrCols(29))

                End If

				' Hidden
				If rnum = 1 Then
					.rows(rnum).cells(0).SetAttribute "RSV_ID", Trim(arrCols(19) &  "")             ' ¿¹¾àÀÚ¾ÆÀ̵ð/»ç¹ø
					.rows(rnum).cells(0).SetAttribute "RSV_NAME", Trim(arrCols(20) & "")            ' ¿¹¾àÀÚ¸í
					.rows(rnum).cells(0).SetAttribute "CNSLT_POSITION_NAME", Trim(arrCols(21) & "") ' ¿¹¾àÀÚÁ÷±Þ
					.rows(rnum).cells(0).SetAttribute "PNR_NO", Trim(arrCols(22) & "")				 ' ¿¹¾à¹øÈ£
					.rows(rnum).cells(0).SetAttribute "PNR_ALPHAR", Trim(arrCols(23) & "")			 ' PNR ALPHAR
					.rows(rnum).cells(0).SetAttribute "CONTACT_HANDPHONE", Trim(arrCols(24) & "")	 ' ÇÚµåÆù¹øÈ£
					.rows(rnum).cells(0).SetAttribute "QNUM", Trim(arrCols(25) & "")				 ' ¿¹¾à¹øÈ£				
					
					'------------------------------------------------------------------
					' ¿¹¾à±¸°£À» DISPLAY ¸¦ À§ÇØ Ãß°¡. 2008/02/26 È«½ÂÇ¥ Ãß°¡
					'------------------------------------------------------------------
					.rows(rnum).cells(0).SetAttribute "ORG_CITY_HNAME", Trim(arrCols(3) & "")				' Ãâ¹ßµµ½Ã Çѱ۸í
					.rows(rnum).cells(0).SetAttribute "ORG_AIRPORT_ENAME", Trim(arrCols(4) & "")		' Ãâ¹ßµµ½Ã ¿µ¹®¸í
					.rows(rnum).cells(0).SetAttribute "DEST_AIRPORT_HNAME", Trim(arrCols(8) & "")		' µµÂøµµ½Ã Çѱ۸í
					.rows(rnum).cells(0).SetAttribute "DEST_AIRPORT_ENAME", Trim(arrCols(9) & "")		' µµÂøµµ½Ã ¿µ¹®¸í
				End If
				If Trim(arrCols(4) & "") = "RMTK" Then
                    btnFlag = "FALSE"   ' ¹ß±Ç¿Ï·á
                Else
                    btnFlag = "TRUE"    ' ¹ß±Ç¿Ï·á¾Æ´Ô
                End If

                rnum = rnum + 1

                '----------------------------------------------------------------
                ' CodeShare °¡ ÀÖÀ¸¸é, ¹øÈ£¿Í ºñÇàÁ¤º¸ÀÇ RowSpan °ªÀ» ÀçÁ¶Á¤
                '----------------------------------------------------------------
                If arrCols(27) <> "" Then
                    .insertRow
    				.rows(rnum).height             = "25px"
    				.rows(rnum).bgcolor            = bgColor


                    .rows(rnum).insertCell
                    .rows(rnum).cells(0).colSpan = 6
                    .rows(rnum).cells(0).align = "center"
                    .rows(rnum).cells(0).innerHtml = Trim(arrCols(27) & "")

                    rowSpan = rowSpan + 1

                    .rows(rowSpanRNum).cells(0).rowSpan = rowSpan           ' ¹øÈ£
                    '.rows(rowSpanRNum).cells(6).rowSpan = rowSpan           ' ºñÇàÁ¤º¸

                    rnum = rnum + 1

                End If

                prevItinNo = arrCols(26)

			End With

		Next

    End If
    
	gPNR_NUMBER = Trim(arrCols(22) & "")
'	StMsg.style.display						= "none" 			' Á¶È¸Áß ¸Þ¼¼Áö ¼û±è ÇÔ¼ö

End Sub





'** -----------------------------------------------------------------------------------------------------------------------
' ÀÎ    ÀÚ :
' ¸ñ    Àû : Ç×°ø¿©Á¤ °¡Á®¿À±â
'** -----------------------------------------------------------------------------------------------------------------------
Sub B2C_getSegList(PNR_SEQUENCE)

	Dim strParam, pageUrl, xmlRequest, xmlDom, strRtn, strData


	strParam = "sJob=" & CONST_SEGLIST										' Job ±¸ºÐ
	strParam = strParam & "&PNR_SEQUENCE=" & PNR_SEQUENCE					' DB ·¹ÄÚµå ±¸ºÐ°ª

    pageUrl     = "/BTMS_MYPAGE/FMYP01_A20.asp"

	' µð¹ö±ë ÆÁ
     'Window.Open pageUrl & "?" & strParam

    Set xmlRequest  = CreateObject("Microsoft.XMLHTTP")
    Set xmlDom      = CreateObject("Microsoft.XMLDOM")

    xmlRequest.Open "POST", pageUrl, FALSE
    xmlRequest.setRequestHeader "Content-Type","application/x-www-form-urlencoded;charset=euc-kr"
    xmlRequest.Send strParam

    xmlDom.loadXML(xmlRequest.responseXML.xml)
	strRtn      = xmlDom.documentElement.selectSingleNode("strRtn").text
	strData     = xmlDom.documentElement.selectSingleNode("strData").text
    xmlDom.abort

    Set xmlDom      = Nothing
    Set xmlRequest  = Nothing

	If strRtn = "FALSE" Then
    Else
		Call setB2C_SegList(strData)
	End If
End Sub
'-------------------------------------------------------------------------


'-------------------------------------------------------------------------
'-------------------------------------------------------------------------
Sub setB2C_SegList(strData)
	Dim arrRows, arrCols, i, bgColor
	Dim strHTML
	Dim prevItinNo : prevItinNo = ""            ' ÀÌÀü ¿©Á¤ NO
	Dim cellIdx
	Dim rnum                        ' Row NO

	Dim rowSpanRNum                 ' RowSpan Àû¿ëµÈ Row NO
	Dim rowSpan                     ' Àû¿ëµÈ RowSpan °ª

	arrRows = Split(strData, strRowDelimiter)		
	rnum = 1
	
	For i = 1 To Ubound(arrRows)
		arrCols = Split(arrRows(i-1), strColDelimiter)
		bgColor = "#FFFFFF"

		With tblSimGrid

			.insertRow
			.rows(rnum).className = "tablebar2"

			 cellIdx = 0

			If prevItinNo <> arrCols(26) Then           ' ¿©Á¤¹øÈ£°¡ ´Þ¶óÁö¸é ó¸®

				rowSpan = arrCols(29)
				'----------------------------------------------------
				' NO
				'----------------------------------------------------
				.rows(rnum).insertcell
				.rows(rnum).cells(cellIdx).rowSpan = rowSpan     ' ¿©Á¤ Count ¼ö ¸¸Å­ RowSpan
				.rows(rnum).cells(cellIdx).align = "center"
				.rows(rnum).cells(cellIdx).innertext = Trim(arrCols(26) & "")

				cellIdx = cellIdx + 1
				rowSpanRNum = rnum

			End If

			' Æí¸í
			.rows(rnum).insertcell
			.rows(rnum).cells(cellIdx).align = "center"
			strHTML = "<table width='90%' border='0' cellspacing='0' cellpadding='0'>"
			strHTML = strHTML & "<tr>"
			'strHTML = strHTML & "<td width='56' height='26' align='center'><img src='/BTMS_IMG/img_airbooking/Air_Logo/" & Trim(arrCols(1) & "") & ".jpg' width='59' height='26'></td>"
			strHTML = strHTML & "<td width='56' height='26' align='center'><img src='/BTMS_IMG/img_airbooking/Air_Logo/" & Trim(arrCols(1) & "") & ".gif'></td>"
			strHTML = strHTML & "<td width='90' align='left' style='padding-left:6px''>" & Trim(arrCols(28) & "") & "<br>" & Trim(arrCols(2) & "") & "</td>"
			'strHTML = strHTML & "<td width='90' align='left' style='padding-left:6px''><Span OnClick='VBS:fnFlightInfo " & PNR_SEQUENCE & "," & Trim(arrCols(0) & "") & "' Style=Cursor:Hand>" & Trim(arrCols(28) & "") & "</Span><br>" & Trim(arrCols(2) & "") & "</td>"
			strHTML = strHTML & "</tr>"
			strHTML = strHTML & "</Table>"
			.rows(rnum).cells(cellIdx).innerHtml = strHTML

			cellIdx = cellIdx + 1

			' Ãâ¹ß
			.rows(rnum).insertcell
			.rows(rnum).cells(cellIdx).align = "center"
			strHTML = "<table width='100%' border='0' cellspacing='0' cellpadding='0'>"
			strHTML = strHTML & "<tr>"
			strHTML = strHTML & "<td height='22' align='center' class='mypage_td05'>" & Trim(arrCols(3) & "") & " (" & Trim(arrCols(4) & "") & ")</td>"
			strHTML = strHTML & "</tr>"
			strHTML = strHTML & "<tr>"

			If Len(Trim(arrCols(5)) & "") = 0 Then
				strHTML = strHTML & "<td height='22' align='center' class='mypage_td06'>&nbsp;</td>"
			Else					    
				strHTML = strHTML & "<td height='22' align='center'><b>" & CheckDate(Trim(arrCols(5) & "")) & " " & Trim(arrCols(7) & "") & "  " & Left(Trim(arrCols(6) & ""),2) & ":" & Right(Trim(arrCols(6) & ""),2) & "</b></td>"
			End If
			
			strHTML = strHTML & "</tr>"
			strHTML = strHTML & "</table>"
			.rows(rnum).cells(cellIdx).innerHtml = strHTML

			cellIdx = cellIdx + 1

			' µµÂø
			.rows(rnum).insertcell
			.rows(rnum).cells(cellIdx).align = "center"
			strHTML = "<table width='100%' border='0' cellspacing='0' cellpadding='0'>"
			strHTML = strHTML & "<tr>"
			strHTML = strHTML & "<td height='22' align='center' class='mypage_td05'>" & Trim(arrCols(8) & "") & " (" & Trim(arrCols(9) & "") & ")</td>"
			strHTML = strHTML & "</tr>"
			strHTML = strHTML & "<tr>"
			
			If Len(Trim(arrCols(10)) & "") = 0 Then
				strHTML = strHTML & "<td height='22' align='center'>&nbsp;</td>"
			Else					    
				strHTML = strHTML & "<td height='22' align='center'><b>" & CheckDate(Trim(arrCols(10) & "")) & " " & Trim(arrCols(12) & "") & "  " & Left(Trim(arrCols(11) & ""),2) & ":" & Right(Trim(arrCols(11) & ""),2) & "</b></td>"
			End If
									
			strHTML = strHTML & "</tr>"
			strHTML = strHTML & "</table>"
			.rows(rnum).cells(cellIdx).innerHtml = strHTML

			cellIdx = cellIdx + 1

			' Á¼®
			.rows(rnum).insertcell
			.rows(rnum).cells(cellIdx).align = "center"
			'strHTML = Trim(arrCols(17) & "") & " (" & Trim(arrCols(13) & "") & ")<br>"
			strHTML = Trim(arrCols(17) & "") & "<br>"
			strHTML = strHTML & "<span class='selectair_type1'>" & Trim(arrCols(14) & "") & "¼® " & Trim(arrCols(16) & "") & "</span>"
			.rows(rnum).cells(cellIdx).innerHtml = strHTML

			cellIdx = cellIdx + 1

			' Ç×°ø»ç¿¹¾à¹øÈ£
			'.rows(rnum).insertcell
			'.rows(rnum).cells(cellIdx).align = "center"
			'.rows(rnum).cells(cellIdx).innertext = Trim(arrCols(15) & "")

			'cellIdx = cellIdx + 1

			' ºñÇàÁ¤º¸
			If prevItinNo <> arrCols(26) Then
				If arrCols(32) = "QQ" Then
					strHTML =           "&nbsp;"                    
				Else                        
					strHTML =           "<img src='/B2C_IMG/Agency/btn_detailview.gif' onClick='B2C_fnOpenFlightInfo(" & rnum & ")' style='cursor:hand'>"
				End If

					
				.rows(rnum).insertcell
				.rows(rnum).cells(cellIdx).rowSpan = rowSpan        ' ¿©Á¤ Count ¼ö ¸¸Å­ RowSpan
				.rows(rnum).cells(cellIdx).align = "center"
				.rows(rnum).cells(cellIdx).innerHtml = strHTML

				'--------------------------------------
				' ºñÇàÁ¤º¸ Req XML
				'--------------------------------------
				.rows(rnum).cells(0).SetAttribute "FLIINFO_XML", getSegFlightInfoXml(arrRows, i-1, arrCols(29))

			End If

			' Hidden
			If rnum = 1 Then
				.rows(rnum).cells(0).SetAttribute "RSV_ID", Trim(arrCols(19) &  "")             ' ¿¹¾àÀÚ¾ÆÀ̵ð/»ç¹ø
				.rows(rnum).cells(0).SetAttribute "RSV_NAME", Trim(arrCols(20) & "")            ' ¿¹¾àÀÚ¸í
				.rows(rnum).cells(0).SetAttribute "CNSLT_POSITION_NAME", Trim(arrCols(21) & "") ' ¿¹¾àÀÚÁ÷±Þ
				.rows(rnum).cells(0).SetAttribute "PNR_NO", Trim(arrCols(22) & "")				 ' ¿¹¾à¹øÈ£
				.rows(rnum).cells(0).SetAttribute "PNR_ALPHAR", Trim(arrCols(23) & "")			 ' PNR ALPHAR
				.rows(rnum).cells(0).SetAttribute "CONTACT_HANDPHONE", Trim(arrCols(24) & "")	 ' ÇÚµåÆù¹øÈ£
				.rows(rnum).cells(0).SetAttribute "QNUM", Trim(arrCols(25) & "")				 ' ¿¹¾à¹øÈ£				
				.rows(rnum).cells(0).SetAttribute "EMAIL", Trim(arrCols(33) & "")				 ' À̸ÞÀÏ
				.rows(rnum).cells(0).SetAttribute "PNR_CRDATE", Trim(arrCols(34) & "")			 ' ¿¹¾àÀÏ
			End If
			
			'------------------------------------------------------------------
			' ¿¹¾à±¸°£À» DISPLAY ¸¦ À§ÇØ Ãß°¡. 2008/02/26 È«½ÂÇ¥ Ãß°¡
			'------------------------------------------------------------------
			.rows(rnum).cells(0).SetAttribute "ORG_CITY_HNAME", Trim(arrCols(3) & "")				' Ãâ¹ßµµ½Ã Çѱ۸í
			.rows(rnum).cells(0).SetAttribute "ORG_AIRPORT_ENAME", Trim(arrCols(4) & "")		' Ãâ¹ßµµ½Ã ¿µ¹®¸í
			.rows(rnum).cells(0).SetAttribute "DEST_AIRPORT_HNAME", Trim(arrCols(8) & "")		' µµÂøµµ½Ã Çѱ۸í
			.rows(rnum).cells(0).SetAttribute "DEST_AIRPORT_ENAME", Trim(arrCols(9) & "")		' µµÂøµµ½Ã ¿µ¹®¸í

			If Trim(arrCols(4) & "") = "RMTK" Then
				btnFlag = "FALSE"   ' ¹ß±Ç¿Ï·á
			Else
				btnFlag = "TRUE"    ' ¹ß±Ç¿Ï·á¾Æ´Ô
			End If

			rnum = rnum + 1

			'----------------------------------------------------------------
			' CodeShare °¡ ÀÖÀ¸¸é, ¹øÈ£¿Í ºñÇàÁ¤º¸ÀÇ RowSpan °ªÀ» ÀçÁ¶Á¤
			'----------------------------------------------------------------
			If arrCols(27) <> "" Then
				.insertRow
				.rows(rnum).height             = "25px"
				.rows(rnum).bgcolor            = bgColor


				.rows(rnum).insertCell
				.rows(rnum).cells(0).colSpan = 4
				.rows(rnum).cells(0).align = "center"
				.rows(rnum).cells(0).innerHtml = Trim(arrCols(27) & "")

				rowSpan = rowSpan + 1

				.rows(rowSpanRNum).cells(0).rowSpan = rowSpan           ' ¹øÈ£
				.rows(rowSpanRNum).cells(5).rowSpan = rowSpan           ' ºñÇàÁ¤º¸

				rnum = rnum + 1

			End If

			prevItinNo = arrCols(26)

		End With

	Next
    
	gPNR_NUMBER = Trim(arrCols(22) & "")
'	StMsg.style.display						= "none" 			' Á¶È¸Áß ¸Þ¼¼Áö ¼û±è ÇÔ¼ö

End Sub
'-------------------------------------------------------------------------


'** -----------------------------------------------------------------------------------------------------------------------
' ÀÎ    ÀÚ :
' ¸ñ    Àû : Ç×°ø¿©Á¤ °¡Á®¿À±â
'** -----------------------------------------------------------------------------------------------------------------------
Sub B2C_getSegList_Mypage(PNR_SEQUENCE)

	Dim strParam, pageUrl, xmlRequest, xmlDom, strRtn, strData
	Dim arrRows, arrCols, i, bgColor
	Dim strHTML
	Dim prevItinNo : prevItinNo = ""            ' ÀÌÀü ¿©Á¤ NO
	Dim cellIdx
	Dim rnum                        ' Row NO

	Dim rowSpanRNum                 ' RowSpan Àû¿ëµÈ Row NO
	Dim rowSpan                     ' Àû¿ëµÈ RowSpan °ª


    strParam = "sJob=" & CONST_SEGLIST										' Job ±¸ºÐ
	strParam = strParam & "&PNR_SEQUENCE=" & PNR_SEQUENCE					' DB ·¹ÄÚµå ±¸ºÐ°ª

    pageUrl = "/BTMS_MYPAGE/FMYP01_A20.asp"

	' µð¹ö±ë ÆÁ
     'Window.Open pageUrl & "?" & strParam

    Set xmlRequest  = CreateObject("Microsoft.XMLHTTP")
    Set xmlDom      = CreateObject("Microsoft.XMLDOM")


    xmlRequest.Open "POST", pageUrl, FALSE
    xmlRequest.setRequestHeader "Content-Type","application/x-www-form-urlencoded;charset=euc-kr"
    xmlRequest.Send strParam

    xmlDom.loadXML(xmlRequest.responseXML.xml)
	strRtn      = xmlDom.documentElement.selectSingleNode("strRtn").text
	strData     = xmlDom.documentElement.selectSingleNode("strData").text
    xmlDom.abort

    Set xmlDom      = Nothing
    Set xmlRequest  = Nothing

    If strRtn = "FALSE" Then
'		Call Cls_Grid(tblSimGrid)
'		Call SetList()
    Else
		arrRows = Split(strData, strRowDelimiter)		
        rnum = 1
        
		For i = 1 To Ubound(arrRows)
			arrCols = Split(arrRows(i-1), strColDelimiter)

			With tblSimGrid

				.insertRow
				.rows(rnum).className = "selectair_white"

                cellIdx = 0
				
				' NO
                If prevItinNo <> arrCols(26) Then           ' ¿©Á¤¹øÈ£°¡ ´Þ¶óÁö¸é ó¸®
                    rowSpan = arrCols(29)           		
					     		
    				.rows(rnum).insertcell
					.rows(rnum).cells(cellIdx).width = "30px"
    				.rows(rnum).cells(cellIdx).rowSpan = rowSpan     ' ¿©Á¤ Count ¼ö ¸¸Å­ RowSpan
    				.rows(rnum).cells(cellIdx).innertext = Trim(arrCols(26) & "")

                    cellIdx = cellIdx + 1
                    rowSpanRNum = rnum
                End If

				' Æí¸í
				.rows(rnum).insertcell
				strHTML = ""
				'strHTML = strHTML & "<table width='90%' border='0' cellspacing='0' cellpadding='0'>"
				'strHTML = strHTML & "	<tr>"					
				'strHTML = strHTML & "		<td width='56' height='26' align='center'><img src='/BTMS_IMG/img_airbooking/Air_Logo/" & Trim(arrCols(1) & "") & ".gif'></th>"
				'strHTML = strHTML & "		<td width='90' align='left' class='lineheight16'>" & Trim(arrCols(28) & "") & "<br>" & Trim(arrCols(2) & "") & "</th>"
				'strHTML = strHTML & "	</tr>"
				'strHTML = strHTML & "</table>"
				strHTML = strHTML & "<img src='/BTMS_IMG/img_airbooking/Air_Logo/" & Trim(arrCols(1) & "") & ".gif'><br>"
				strHTML = strHTML & "<b>" & Trim(arrCols(28) & "") & "</b><br>" & Trim(arrCols(2) & "")
				.rows(rnum).cells(cellIdx).innerHtml = strHTML

				cellIdx = cellIdx + 1

				' Ãâ¹ß
				.rows(rnum).insertcell
				.rows(rnum).cells(cellIdx).width = "180px"
				strHTML = ""
				'strHTML = strHTML & "<table width='100%' border='0' cellspacing='0' cellpadding='0'>"
				'strHTML = strHTML & "<tr>"
				'strHTML = strHTML & "<td height='22' align='center'>" & Trim(arrCols(3) & "") & " (" & Trim(arrCols(4) & "") & ")</td>"
				'strHTML = strHTML & "</tr>"
				'strHTML = strHTML & "<tr>"
				'If Len(Trim(arrCols(5)) & "") = 0 Then
				'	strHTML = strHTML & "<td height='22' align='center'>&nbsp;</td>"
				'Else					    
				'	strHTML = strHTML & "<td height='22' align='center'><b>" & CheckDate(Trim(arrCols(5) & "")) & " " & Trim(arrCols(7) & "") & "  " & Left(Trim(arrCols(6) & ""),2) & ":" & Right(Trim(arrCols(6) & ""),2) & "</b></td>"
				'End If
				'strHTML = strHTML & "</tr>"
				'strHTML = strHTML & "</table>"
				strHTML = strHTML & Trim(arrCols(3) & "") & " (" & Trim(arrCols(4) & "") & ")"
				If Len(Trim(arrCols(5)) & "") = 0 Then
					strHTML = strHTML & "<br>&nbsp;"
				Else					    
					strHTML = strHTML & "<br><b>" & CheckDate(Trim(arrCols(5) & "")) & " " & Trim(arrCols(7) & "") & "  " & Left(Trim(arrCols(6) & ""),2) & ":" & Right(Trim(arrCols(6) & ""),2) & "</b>"
				End If
				.rows(rnum).cells(cellIdx).innerHtml = strHTML

				cellIdx = cellIdx + 1

				' µµÂø
				.rows(rnum).insertcell
				.rows(rnum).cells(cellIdx).width = "180px"
				strHTML = ""
				'strHTML = strHTML & "<table width='100%' border='0' cellspacing='0' cellpadding='0'>"
				'strHTML = strHTML & "<tr>"
				'strHTML = strHTML & "<td height='22' align='center'>" & Trim(arrCols(8) & "") & " (" & Trim(arrCols(9) & "") & ")</td>"
				'strHTML = strHTML & "</tr>"
				'strHTML = strHTML & "<tr>"
				
				'If Len(Trim(arrCols(10)) & "") = 0 Then
				'	strHTML = strHTML & "<td height='22' align='center'>&nbsp;</td>"
				'Else					    
				'	strHTML = strHTML & "<td height='22' align='center'><b>" & CheckDate(Trim(arrCols(10) & "")) & " " & Trim(arrCols(12) & "") & "  " & Left(Trim(arrCols(11) & ""),2) & ":" & Right(Trim(arrCols(11) & ""),2) & "</b></td>"
				'End If
										
				'strHTML = strHTML & "</tr>"
				'strHTML = strHTML & "</table>"
				strHTML = strHTML & Trim(arrCols(8) & "") & " (" & Trim(arrCols(9) & "") & ")"
				If Len(Trim(arrCols(10)) & "") = 0 Then
					strHTML = strHTML & "<br>&nbsp;"
				Else					    
					strHTML = strHTML & "<br><b>" & CheckDate(Trim(arrCols(10) & "")) & " " & Trim(arrCols(12) & "") & "  " & Left(Trim(arrCols(11) & ""), 2) & ":" & Right(Trim(arrCols(11) & ""), 2) & "</b>"
				End If
				.rows(rnum).cells(cellIdx).innerHtml = strHTML

				cellIdx = cellIdx + 1

				' Á¼®
				.rows(rnum).insertcell
				.rows(rnum).cells(cellIdx).width = "70px"
				If arrCols(17) <> "" Then
					'strHTML = Trim(arrCols(17) & "") & " (" & Trim(arrCols(13) & "") & ")<br>"
					strHTML = Trim(arrCols(17) & "") & "<br>"
					strHTML = strHTML & "<span class='selectair_type1'>" & Trim(arrCols(14) & "") & "¼® " & Trim(arrCols(16) & "") & "</span>"
				Else
					strHTML = "&nbsp;"
				End If
				.rows(rnum).cells(cellIdx).innerHtml = strHTML

				cellIdx = cellIdx + 1

                ' ºñÇàÁ¤º¸
                If prevItinNo <> arrCols(26) Then
                    If arrCols(32) = "QQ" Then
                        strHTML = "&nbsp;"                    
                    Else                        
            		    strHTML = "<img src='/B2C_IMG/Agency/btn_detailview.gif' onClick='B2C_fnOpenFlightInfo(" & rnum & ")' style='cursor:hand'>"
                    End If
                
    				.rows(rnum).insertcell
					.rows(rnum).cells(cellIdx).width = "75px"
    				.rows(rnum).cells(cellIdx).rowSpan = rowSpan        ' ¿©Á¤ Count ¼ö ¸¸Å­ RowSpan
    				.rows(rnum).cells(cellIdx).innerHtml = strHTML

                    '--------------------------------------
                    ' ºñÇàÁ¤º¸ Req XML
                    '--------------------------------------
                    .rows(rnum).cells(0).SetAttribute "FLIINFO_XML", getSegFlightInfoXml(arrRows, i-1, arrCols(29))
                'Else 
				'	.rows(rnum).insertcell    				
    			'	.rows(rnum).cells(cellIdx).align = "center"     				
				'	If arrCols(32) = "QQ" Then
                 '       strHTML =           "&nbsp;"                    
                  '  Else                        
            	'	    strHTML =           "<img src='/BTMS_IMG/img_airbooking/bt11.gif' onClick='B2C_fnOpenFlightInfo(" & rnum & ")' style='cursor:hand'>"
                 '   End If
                  ' .rows(rnum).cells(cellIdx).innerHtml = strHTML
                    
                   '--------------------------------------
                    ' ºñÇàÁ¤º¸ Req XML
                    '--------------------------------------
                   ' .rows(rnum).cells(0).SetAttribute "FLIINFO_XML", getSegFlightInfoXml(arrRows, i-1, arrCols(29)) 
                End If

				' Hidden
                .rows(rnum).cells(0).SetAttribute "RSV_ID",					Trim(arrCols(19) & "")	' ¿¹¾àÀÚ¾ÆÀ̵ð/»ç¹ø
                .rows(rnum).cells(0).SetAttribute "RSV_NAME",				Trim(arrCols(20) & "")	' ¿¹¾àÀÚ¸í
                .rows(rnum).cells(0).SetAttribute "CNSLT_POSITION_NAME",	Trim(arrCols(21) & "")	' ¿¹¾àÀÚÁ÷±Þ
				.rows(rnum).cells(0).SetAttribute "PNR_NO",					Trim(arrCols(22) & "")	' ¿¹¾à¹øÈ£
				.rows(rnum).cells(0).SetAttribute "PNR_ALPHAR",				Trim(arrCols(23) & "")	' PNR ALPHAR
				.rows(rnum).cells(0).SetAttribute "CONTACT_HANDPHONE",		Trim(arrCols(24) & "")	' ÇÚµåÆù¹øÈ£
				.rows(rnum).cells(0).SetAttribute "QNUM",					Trim(arrCols(25) & "")	' ¿¹¾à¹øÈ£				
				
				'------------------------------------------------------------------
				' ¿¹¾à±¸°£À» DISPLAY ¸¦ À§ÇØ Ãß°¡. 2008/02/26 È«½ÂÇ¥ Ãß°¡
				'------------------------------------------------------------------
				.rows(rnum).cells(0).SetAttribute "ORG_CITY_HNAME",			Trim(arrCols(3) & "")	' Ãâ¹ßµµ½Ã Çѱ۸í
				.rows(rnum).cells(0).SetAttribute "ORG_AIRPORT_ENAME",		Trim(arrCols(4) & "")	' Ãâ¹ßµµ½Ã ¿µ¹®¸í
				.rows(rnum).cells(0).SetAttribute "DEST_AIRPORT_HNAME",		Trim(arrCols(8) & "")	' µµÂøµµ½Ã Çѱ۸í
				.rows(rnum).cells(0).SetAttribute "DEST_AIRPORT_ENAME",		Trim(arrCols(9) & "")	' µµÂøµµ½Ã ¿µ¹®¸í

				If Trim(arrCols(4) & "") = "RMTK" Then
                    btnFlag = "FALSE"   ' ¹ß±Ç¿Ï·á
                Else
                    btnFlag = "TRUE"    ' ¹ß±Ç¿Ï·á¾Æ´Ô
                End If

                rnum = rnum + 1

                '----------------------------------------------------------------
                ' CodeShare °¡ ÀÖÀ¸¸é, ¹øÈ£¿Í ºñÇàÁ¤º¸ÀÇ RowSpan °ªÀ» ÀçÁ¶Á¤
                '----------------------------------------------------------------
                If arrCols(27) <> "" Then
                    .insertRow
					.rows(rnum).className = "selectair_white"

                    .rows(rnum).insertCell
                    .rows(rnum).cells(0).colSpan = 4
                    .rows(rnum).cells(0).innerHtml = Trim(arrCols(27) & "")
			
                    rowSpan = rowSpan + 1

                    .rows(rowSpanRNum).cells(0).rowSpan = rowSpan           ' ¹øÈ£
                    .rows(rowSpanRNum).cells(5).rowSpan = rowSpan           ' ºñÇàÁ¤º¸
					
					'.rows(rnum).insertCell
					'.rows(rnum).cells(1).innerHtml = "&nbsp;"

                    rnum = rnum + 1

                End If

                prevItinNo = arrCols(26)

			End With

		Next

    End If
    
	gPNR_NUMBER = Trim(arrCols(22) & "")
'	StMsg.style.display						= "none" 			' Á¶È¸Áß ¸Þ¼¼Áö ¼û±è ÇÔ¼ö

End Sub




'** -----------------------------------------------------------------------------------------------------------------------
' ÀÎ    ÀÚ :
' ¸ñ    Àû : Ç×°ø¿©Á¤ °¡Á®¿À±â
'** -----------------------------------------------------------------------------------------------------------------------
Sub getSegList_CRS(PNR_SEQUENCE)

	Dim strParam, pageUrl, xmlRequest, xmlDom, strRtn, strData
	Dim arrRows, arrCols, i, bgColor
	Dim strHTML
	Dim prevItinNo : prevItinNo = ""            ' ÀÌÀü ¿©Á¤ NO
	Dim cellIdx
	Dim rnum                        ' Row NO

	Dim rowSpanRNum                 ' RowSpan Àû¿ëµÈ Row NO
	Dim rowSpan                     ' Àû¿ëµÈ RowSpan °ª


    strParam = "sJob=" & CONST_SEGLIST										' Job ±¸ºÐ
	strParam = strParam & "&PNR_SEQUENCE=" & PNR_SEQUENCE					' DB ·¹ÄÚµå ±¸ºÐ°ª

    pageUrl     = "/BTMS_MYPAGE/FMYP01_A20.asp"

	' µð¹ö±ë ÆÁ
   ' Window.Open pageUrl & "?" & strParam 

    Set xmlRequest  = CreateObject("Microsoft.XMLHTTP")
    Set xmlDom      = CreateObject("Microsoft.XMLDOM")

    xmlRequest.Open "POST", pageUrl, FALSE
    xmlRequest.setRequestHeader "Content-Type","application/x-www-form-urlencoded;charset=euc-kr"
    xmlRequest.Send strParam

    xmlDom.loadXML(xmlRequest.responseXML.xml)
		strRtn      = xmlDom.documentElement.selectSingleNode("strRtn").text
		strData     = xmlDom.documentElement.selectSingleNode("strData").text
    xmlDom.abort

    Set xmlDom      = Nothing
    Set xmlRequest  = Nothing

    If strRtn = "FALSE" Then
'		Call Cls_Grid(tblSimGrid)
'		Call SetList()
    Else
		arrRows = Split(strData, strRowDelimiter)		
        rnum = 1
        
		For i = 1 To Ubound(arrRows)
			arrCols = Split(arrRows(i-1), strColDelimiter)
			bgColor = "#FFFFFF"

			With tblSimGrid

				.insertRow
				.rows(rnum).height             = "25px"
				.rows(rnum).bgcolor            = bgColor

                cellIdx = 0

                If prevItinNo <> arrCols(26) Then           ' ¿©Á¤¹øÈ£°¡ ´Þ¶óÁö¸é ó¸®

                    rowSpan = arrCols(29)
            		'----------------------------------------------------
            		' NO
            		'----------------------------------------------------            		
    				.rows(rnum).insertcell
    				.rows(rnum).cells(cellIdx).rowSpan = rowSpan     ' ¿©Á¤ Count ¼ö ¸¸Å­ RowSpan
    				.rows(rnum).cells(cellIdx).align = "center"
    				.rows(rnum).cells(cellIdx).innertext = Trim(arrCols(26) & "")

                    cellIdx = cellIdx + 1
                    rowSpanRNum = rnum
				'Else
					'----------------------------------------------------
            		' NO
            		'----------------------------------------------------
            		
    			'	.rows(rnum).insertcell
    			'	.rows(rnum).cells(cellIdx).rowSpan = rowSpan     ' ¿©Á¤ Count ¼ö ¸¸Å­ RowSpan
    			'	.rows(rnum).cells(cellIdx).align = "center"
    			'	.rows(rnum).cells(cellIdx).innertext = i

                 '   cellIdx = cellIdx + 1
                  '  rowSpanRNum = rnum
                End If

				' Æí¸í
				.rows(rnum).insertcell
				.rows(rnum).cells(cellIdx).align = "center"
					strHTML = "<table width='90%' border='0' cellspacing='0' cellpadding='0'>"
					strHTML = strHTML & "<tr>"					
					strHTML = strHTML & "<th width='56' height='26' align='center' style='font-weight:normal'><img src='/BTMS_IMG/img_airbooking/Air_Logo/" & Trim(arrCols(1) & "") & ".gif'></th>"
					strHTML = strHTML & "<th width='90' align='left' style='padding-left:6px;font-weight:normal'>" & Trim(arrCols(28) & "") & "<br>" & Trim(arrCols(2) & "") & "</th>"
					strHTML = strHTML & "</tr>"
					strHTML = strHTML & "</Table>"
				.rows(rnum).cells(cellIdx).innerHtml = strHTML

				cellIdx = cellIdx + 1

				' Ãâ¹ß
				.rows(rnum).insertcell
				.rows(rnum).cells(cellIdx).align = "center"
					strHTML = "<table width='100%' border='0' cellspacing='0' cellpadding='0'>"
					strHTML = strHTML & "<tr>"
					strHTML = strHTML & "<th height='22' align='center'>" & Trim(arrCols(3) & "") & " (" & Trim(arrCols(4) & "") & ")</th>"
					strHTML = strHTML & "</tr>"
					strHTML = strHTML & "<tr>"

					If Len(Trim(arrCols(5)) & "") = 0 Then
					    strHTML = strHTML & "<th height='22' align='center'>&nbsp;</th>"
                    Else					    
    					strHTML = strHTML & "<th height='22' align='center'><b>" & CheckDate(Trim(arrCols(5) & "")) & " " & Trim(arrCols(7) & "") & "  " & Left(Trim(arrCols(6) & ""),2) & ":" & Right(Trim(arrCols(6) & ""),2) & "</b></th>"
                    End If
					
					strHTML = strHTML & "</tr>"
					strHTML = strHTML & "</table>"
				.rows(rnum).cells(cellIdx).innerHtml = strHTML

				cellIdx = cellIdx + 1

				' µµÂø
				.rows(rnum).insertcell
				.rows(rnum).cells(cellIdx).align = "center"
					strHTML = "<table width='100%' border='0' cellspacing='0' cellpadding='0'>"
					strHTML = strHTML & "<tr>"
					strHTML = strHTML & "<th height='22' align='center'>" & Trim(arrCols(8) & "") & " (" & Trim(arrCols(9) & "") & ")</th>"
					strHTML = strHTML & "</tr>"
					strHTML = strHTML & "<tr>"
					
					If Len(Trim(arrCols(10)) & "") = 0 Then
					    strHTML = strHTML & "<th height='22' align='center'>&nbsp;</th>"
                    Else					    
					    strHTML = strHTML & "<th height='22' align='center'><b>" & CheckDate(Trim(arrCols(10) & "")) & " " & Trim(arrCols(12) & "") & "  " & Left(Trim(arrCols(11) & ""),2) & ":" & Right(Trim(arrCols(11) & ""),2) & "</b></th>"
                    End If
                    					    
					strHTML = strHTML & "</tr>"
					strHTML = strHTML & "</table>"
				.rows(rnum).cells(cellIdx).innerHtml = strHTML

				cellIdx = cellIdx + 1

				' Á¼®
				.rows(rnum).insertcell
				.rows(rnum).cells(cellIdx).align = "center"
				
				If arrCols(17) <> "" Then
					strHTML = Trim(arrCols(17) & "") & " (" & Trim(arrCols(13) & "") & ")<br>"
					strHTML = strHTML & "<span class='selectair_type1'>" & Trim(arrCols(14) & "") & "¼® " & Trim(arrCols(16) & "") & "</span>"
				Else
					strHTML = "&nbsp;"
				End If
				
				.rows(rnum).cells(cellIdx).innerHtml = strHTML

				'cellIdx = cellIdx + 1
                ' ºñÇàÁ¤º¸
                'If prevItinNo <> arrCols(26) Then
                '    If arrCols(32) = "QQ" Then
                '        strHTML =           "&nbsp;"                    
                '    Else                        
            	'	    strHTML =           "<img src='/BTMS_IMG/img_airbooking/bt11.gif' onClick='B2C_fnOpenFlightInfo(" & rnum & ")' style='cursor:hand'>"
                '   End If
                
    			'	.rows(rnum).insertcell
    				
    				
    			'	.rows(rnum).cells(cellIdx).rowSpan = rowSpan        ' ¿©Á¤ Count ¼ö ¸¸Å­ RowSpan
    			'	.rows(rnum).cells(cellIdx).align = "center"
    			'	.rows(rnum).cells(cellIdx).innerHtml = strHTML

                    '--------------------------------------
                    ' ºñÇàÁ¤º¸ Req XML
                    '--------------------------------------
                '    .rows(rnum).cells(0).SetAttribute "FLIINFO_XML", getSegFlightInfoXml(arrRows, i-1, arrCols(29))
                'Else 
				'	.rows(rnum).insertcell    				
    			'	.rows(rnum).cells(cellIdx).align = "center"     				
				'	If arrCols(32) = "QQ" Then
                 '       strHTML =           "&nbsp;"                    
                  '  Else                        
            	'	    strHTML =           "<img src='/BTMS_IMG/img_airbooking/bt11.gif' onClick='B2C_fnOpenFlightInfo(" & rnum & ")' style='cursor:hand'>"
                 '   End If
                  ' .rows(rnum).cells(cellIdx).innerHtml = strHTML
                    
                   '--------------------------------------
                    ' ºñÇàÁ¤º¸ Req XML
                    '--------------------------------------
                   ' .rows(rnum).cells(0).SetAttribute "FLIINFO_XML", getSegFlightInfoXml(arrRows, i-1, arrCols(29)) 
                'End If

				' Hidden
                .rows(rnum).cells(0).SetAttribute "RSV_ID", Trim(arrCols(19) &  "")             ' ¿¹¾àÀÚ¾ÆÀ̵ð/»ç¹ø
                .rows(rnum).cells(0).SetAttribute "RSV_NAME", Trim(arrCols(20) & "")            ' ¿¹¾àÀÚ¸í
                .rows(rnum).cells(0).SetAttribute "CNSLT_POSITION_NAME", Trim(arrCols(21) & "") ' ¿¹¾àÀÚÁ÷±Þ
				.rows(rnum).cells(0).SetAttribute "PNR_NO", Trim(arrCols(22) & "")				 ' ¿¹¾à¹øÈ£
				.rows(rnum).cells(0).SetAttribute "PNR_ALPHAR", Trim(arrCols(23) & "")			 ' PNR ALPHAR
				.rows(rnum).cells(0).SetAttribute "CONTACT_HANDPHONE", Trim(arrCols(24) & "")	 ' ÇÚµåÆù¹øÈ£
				.rows(rnum).cells(0).SetAttribute "QNUM", Trim(arrCols(25) & "")				 ' ¿¹¾à¹øÈ£				
				
				'------------------------------------------------------------------
				' ¿¹¾à±¸°£À» DISPLAY ¸¦ À§ÇØ Ãß°¡. 2008/02/26 È«½ÂÇ¥ Ãß°¡
				'------------------------------------------------------------------
				.rows(rnum).cells(0).SetAttribute "ORG_CITY_HNAME", Trim(arrCols(3) & "")				' Ãâ¹ßµµ½Ã Çѱ۸í
				.rows(rnum).cells(0).SetAttribute "ORG_AIRPORT_ENAME", Trim(arrCols(4) & "")		' Ãâ¹ßµµ½Ã ¿µ¹®¸í
				.rows(rnum).cells(0).SetAttribute "DEST_AIRPORT_HNAME", Trim(arrCols(8) & "")		' µµÂøµµ½Ã Çѱ۸í
				.rows(rnum).cells(0).SetAttribute "DEST_AIRPORT_ENAME", Trim(arrCols(9) & "")		' µµÂøµµ½Ã ¿µ¹®¸í

				If Trim(arrCols(4) & "") = "RMTK" Then
                    btnFlag = "FALSE"   ' ¹ß±Ç¿Ï·á
                Else
                    btnFlag = "TRUE"    ' ¹ß±Ç¿Ï·á¾Æ´Ô
                End If

                rnum = rnum + 1

                '----------------------------------------------------------------
                ' CodeShare °¡ ÀÖÀ¸¸é, ¹øÈ£¿Í ºñÇàÁ¤º¸ÀÇ RowSpan °ªÀ» ÀçÁ¶Á¤
                '----------------------------------------------------------------
                If arrCols(27) <> "" Then
                    .insertRow
    				.rows(rnum).height             = "25px"
    				.rows(rnum).bgcolor            = bgColor


                    .rows(rnum).insertCell
                    .rows(rnum).cells(0).colSpan = 4
                    .rows(rnum).cells(0).align = "center"
                    .rows(rnum).cells(0).innerHtml = Trim(arrCols(27) & "")

                    rowSpan = rowSpan + 1

                    .rows(rowSpanRNum).cells(0).rowSpan = rowSpan           ' ¹øÈ£
                    '.rows(rowSpanRNum).cells(6).rowSpan = rowSpan           ' ºñÇàÁ¤º¸

                    rnum = rnum + 1

                End If

                prevItinNo = arrCols(26)

			End With

		Next

    End If
    
	gPNR_NUMBER = Trim(arrCols(22) & "")
'	StMsg.style.display						= "none" 			' Á¶È¸Áß ¸Þ¼¼Áö ¼û±è ÇÔ¼ö

End Sub


'-------------------------------------------------------------------------
' ¼³¸í	: ºñÇàÁ¤º¸ Request XML make
'-------------------------------------------------------------------------
' Input : Parameter - arrCols : SEG Á¤º¸ Record
'-------------------------------------------------------------------------
Function getSegFlightInfoXml(arrRows, aBeginIdx, aSegCnt)
    Dim arrCols
    Dim strXml : strXml = ""
	Dim strAgentCode
    Dim i 
	
    For i=0 To aSegCnt-1
        arrCols = Split(arrRows(aBeginIdx + i), strColDelimiter)

        strXml = strXml & "<Segment>"
        strXml = strXml & "<FlightNo>"      & Trim(arrCols(28) & "") & "</FlightNo>"
        strXml = strXml & "<FlightName>"    & Trim(arrCols(2) & "") & "</FlightName>"
        strXml = strXml & "<OrgApoCode>"    & Trim(arrCols(30) & "") & "</OrgApoCode>"
        strXml = strXml & "<DestApoCode>"   & Trim(arrCols(31) & "") & "</DestApoCode>"

        If Len(Trim(arrCols(5) & "")) = 8 Then
            strXml = strXml & "<OrgMonth>"      & getStrMonth(Mid(Trim(arrCols(5) & ""), 5, 2)) & "</OrgMonth>"
            strXml = strXml & "<OrgDay>"        & Right(Trim(arrCols(5) & ""), 2) & "</OrgDay>"
        Else
            strXml = strXml & "<OrgMonth></OrgMonth>"
            strXml = strXml & "<OrgDay></OrgDay>"

        End If

        strXml = strXml & "</Segment>"
        strAgentCode = Trim(arrCols(25) & "")
    Next

	strXml = "<Request>" &_
			 "<AgentCode>" & strAgentCode & "</AgentCode>" &_
			 "<Segments>" &_
			 strXml &_
			 "</Segments>" &_
			 "</Request>"

'    MsgBox strXml
    getSegFlightInfoXml = strXml
End Function


'** -----------------------------------------------------------------------------------------------------------------------
' ÀÎ    ÀÚ :
' ¸ñ    Àû : ž½ÂÀÚ¹× ¿îÀÓÁ¤º¸ ¸®½ºÆ®
'** -----------------------------------------------------------------------------------------------------------------------
Sub getPaxList(PNR_SEQUENCE)

	Dim strParam, pageUrl, xmlRequest, xmlDom, strRtn, strData
	Dim arrRows, arrCols, i, bgColor
	Dim strHTML
	Dim intTotalFare
	Dim rownum

    strParam = "sJob=" & CONST_PAXLIST										' Job ±¸ºÐ
	strParam = strParam & "&PNR_SEQUENCE=" & PNR_SEQUENCE					' DB ·¹ÄÚµå ±¸ºÐ°ª

    pageUrl     = "/BTMS_MYPAGE/FMYP01_A20.asp"

    ' µð¹ö±ë ÆÁ
    ' Window.Open pageUrl & "?" & strParam

    Set xmlRequest  = CreateObject("Microsoft.XMLHTTP")
    Set xmlDom      = CreateObject("Microsoft.XMLDOM")

    xmlRequest.Open "POST", pageUrl, FALSE
    xmlRequest.setRequestHeader "Content-Type","application/x-www-form-urlencoded;charset=euc-kr"
    xmlRequest.Send strParam

    xmlDom.loadXML(xmlRequest.responseXML.xml)
		strRtn      = xmlDom.documentElement.selectSingleNode("strRtn").text
		strData     = xmlDom.documentElement.selectSingleNode("strData").text
    xmlDom.abort

    Set xmlDom      = Nothing
    Set xmlRequest  = Nothing

    If strRtn = "FALSE" Then
    Else
		Call B2C_setPaxList_New(strData, PNR_SEQUENCE)
    End If

End Sub
'** -----------------------------------------------------------------------------------------------------------------------


'** -----------------------------------------------------------------------------------------------------------------------
Sub B2C_setPaxList(strData, PNR_SEQUENCE)
	Dim arrRows, arrCols, i, bgColor
	Dim strHTML
	Dim intTotalFare
	Dim rownum
	
	arrRows = Split(strData, strRowDelimiter)
		
	For i = 1 To Ubound(arrRows)
		arrCols = Split(arrRows(i-1), strColDelimiter)
		intPaxCNT = Ubound(arrRows)
		bgColor = "#FFFFFF"

		With tblSimGrid1

			.insertRow
			.rows(i).className			= "tablebar2"

			' ¿µ¹®¼º¸í
			.rows(i).insertcell
			strHTML = Trim(arrCols(0) & "") '& "&nbsp;&nbsp;<img src='/BTMS_IMG/IMG_MYPAGE/my_bt35.gif' width='51' height='19' align='absmiddle'>"
			.rows(i).cells(0).innerhtml = UCase(strHTML)

			' ¼ºº°
			.rows(i).insertcell
			.rows(i).cells(1).innertext = Trim(arrCols(1) & "")

			' ¿îÀÓÁ¾·ù
			.rows(i).insertcell
			If Trim(arrCols(2) & "") = "" Then
				.rows(i).cells(2).innerhtml = "¿îÀÓ ¹ÌÈ®Á¤"
			Else
				.rows(i).cells(2).innertext = Trim(arrCols(2) & "")
			End If

			' ÆǸſîÀÓ
			.rows(i).insertcell
			If Trim(arrCols(3) & "") = 0 Then
				'.rows(i).cells(3).innerhtml = "&nbsp;"
				.rows(i).cells(3).innerhtml = "0"
			Else
				.rows(i).cells(3).innertext = NumCommma(Trim(arrCols(3) & ""))
			End If

			' TAX (±¹Á¦¼±ÀÌ°í, Tax °¡ 0 ¿øÀ̸é "¹ÌÈ®Á¤" À¸·Î ³ªÅ¸³¿)
			.rows(i).insertcell
			If Trim(arrCols(7) & "") = "I" and Trim(arrCols(4) & "") = 0 Then
				.rows(i).cells(4).innerhtml = "<span class='price_red2'>¹ÌÈ®Á¤</span>"
			Else
				.rows(i).cells(4).innertext = NumCommma(Trim(arrCols(4) & ""))
			End If
			
			' À¯·ùÇÒÁõ·á
			.rows(i).insertcell
			If Trim(arrCols(8) & "") = 0 Then
				.rows(i).cells(5).innerhtml = "0"
			Else
				.rows(i).cells(5).innertext = NumCommma(Trim(arrCols(8) & ""))
			End If

			' ÁöºÒ¾× (±¹Á¦¼±ÀÌ°í, Tax °¡ 0 ¿øÀ̸é "¹ÌÈ®Á¤" À¸·Î ³ªÅ¸³¿)
			.rows(i).insertcell
			'If Trim(arrCols(5) & "") = 0 Then
			If Trim(arrCols(7) & "") = "I" and Trim(arrCols(4) & "") = 0 Then
				.rows(i).cells(6).innerhtml = "<span class='price_red2'>¹ÌÈ®Á¤</span>"
			Else
				.rows(i).cells(6).innertext = NumCommma(Trim(arrCols(5) & ""))
			End If
			
			' ±¹Á¦¼±ÀÏ °æ¿ì¿¡´Â À¯·ùÇÒÁõ·á Ä÷³ ¾Èº¸ÀÌ°Ô ÇÔ (2008-08-21 ÀÌÇõÁø)
			If Trim(arrCols(7) & "") = "I" Then
				.rows(i).cells(5).style.display = "none"

				If Trim(.rows(0).cells(5)) = "À¯·ùÇÒÁõ·á" Then
					.rows(0).cells(5).style.display = "none"
				End If
			End If

			intTotalFare = intTotalFare + CLng(Trim(arrCols(5) & ""))
			
			
		End With

	Next

	
	If Trim(arrCols(7) & "") = "I" and Trim(arrCols(4) & "") = 0 Then	' Tax = 0
		DIV_TotalFare.innerHtml = "ÃÑ ¿îÀÓ :<span class='price_red2'> ¹ÌÈ®Á¤</span> <img src='/B2C_IMG/Agency/btn_paypolicy.gif' align='absmiddle' OnClick=B2C_fnFareRule(" & PNR_SEQUENCE & ") style='cursor:hand' id='btn_FareRule'>"
	Else
		DIV_TotalFare.innerHtml = "ÃÑ ¿îÀÓ :<span class='price_red2'> "  & NumCommma(intTotalFare) &  "¿ø</span> <img src='/B2C_IMG/Agency/btn_paypolicy.gif' align='absmiddle' OnClick=B2C_fnFareRule(" & PNR_SEQUENCE & ") style='cursor:hand' id='btn_FareRule'>"
	End If
End Sub


'** -----------------------------------------------------------------------------------------------------------------------
' ÀÎ    ÀÚ :
' ¸ñ    Àû : ž½ÂÀÚ¹× ¿îÀÓÁ¤º¸ ¸®½ºÆ®(B2C¿¡¼­ »ç¿ëÇÏ´Â ÇÔ¼ö)
'** -----------------------------------------------------------------------------------------------------------------------
Sub B2C_getPaxList(PNR_SEQUENCE)

	Dim strParam, pageUrl, xmlRequest, xmlDom, strRtn, strData
	Dim arrRows, arrCols, i, bgColor
	Dim strHTML
	Dim intTotalFare
	Dim rownum

    strParam = "sJob=" & CONST_PAXLIST										' Job ±¸ºÐ
	strParam = strParam & "&PNR_SEQUENCE=" & PNR_SEQUENCE					' DB ·¹ÄÚµå ±¸ºÐ°ª

    pageUrl  = "/B2C_MYPAGE/B2C_FMYP01_A20.asp"

    ' µð¹ö±ë ÆÁ
     'Window.Open pageUrl & "?" & strParam

    Set xmlRequest  = CreateObject("Microsoft.XMLHTTP")
    Set xmlDom      = CreateObject("Microsoft.XMLDOM")

    xmlRequest.Open "POST", pageUrl, FALSE
    xmlRequest.setRequestHeader "Content-Type","application/x-www-form-urlencoded;charset=euc-kr"
    xmlRequest.Send strParam

    xmlDom.loadXML(xmlRequest.responseXML.xml)
	strRtn      = xmlDom.documentElement.selectSingleNode("strRtn").text
	strData     = xmlDom.documentElement.selectSingleNode("strData").text
    xmlDom.abort

    Set xmlDom      = Nothing
    Set xmlRequest  = Nothing

    If strRtn = "FALSE" Then
'		Call Cls_Grid(tblSimGrid1)
'		Call SetList1()
    Else

'		Call Cls_Grid(tblSimGrid1)
		arrRows = Split(strData, strRowDelimiter)

		For i = 1 To Ubound(arrRows)
			arrCols = Split(arrRows(i-1), strColDelimiter)
			intPaxCNT = Ubound(arrRows)
			bgColor = "#FFFFFF"

			With tblSimGrid1

				.insertRow
				.rows(i).className			= "tablebar2"
				.rows(i).bgcolor            = bgColor

				' ¿µ¹®¼º¸í
				.rows(i).insertcell
			    strHTML = Trim(arrCols(0) & "") '& "&nbsp;&nbsp;<img src='/BTMS_IMG/IMG_MYPAGE/my_bt35.gif' width='51' height='19' align='absmiddle'>"
				.rows(i).cells(0).innerhtml = UCase(strHTML)

				' ¼ºº°
				.rows(i).insertcell
				.rows(i).cells(1).innertext = Trim(arrCols(1) & "")

				' ¿îÀÓÁ¾·ù
				.rows(i).insertcell
				If Trim(arrCols(2) & "") = "" Then
					.rows(i).cells(2).innerhtml = "¿îÀÓ ¹ÌÈ®Á¤"
				Else
					.rows(i).cells(2).innertext = Trim(arrCols(2) & "")
				End If

				' ÆǸſîÀÓ
				.rows(i).insertcell
				If Trim(arrCols(3) & "") = 0 Then
					.rows(i).cells(3).innerhtml = "0"
				Else
					.rows(i).cells(3).innertext = NumCommma(Trim(arrCols(3) & ""))
				End If

				' °øÇ×¼¼ (±¹Á¦¼±ÀÌ°í, TAX °¡ 0 ¿øÀÌ¸é ¹ÌÈ®Á¤À¸·Î º¸¿©ÁÜ)
				.rows(i).insertcell
				If Trim(arrCols(7) & "") = "I" and Trim(arrCols(4) & "") = 0 Then
					.rows(i).cells(4).innerhtml = "<span class='price_red2'>¹ÌÈ®Á¤</span>"
				Else
					.rows(i).cells(4).innertext = NumCommma(Trim(arrCols(4) & ""))
				End If
				
				'2008-08-19 À¯·ùÇÒÁõ·á °ü·Ã Ãß°¡ °­»ó±¸ 
				' À¯·ùÇÒÁõ·á
				.rows(i).insertcell
				If Trim(arrCols(8) & "") = 0 Then
					.rows(i).cells(5).innerhtml = "0"
				Else
					.rows(i).cells(5).innertext = NumCommma(Trim(arrCols(8) & ""))
				End If

				' ÁöºÒ¾× (±¹Á¦¼±ÀÌ°í, TAX °¡ 0 ¿øÀÌ¸é ¹ÌÈ®Á¤À¸·Î º¸¿©ÁÜ)
				.rows(i).insertcell
				If Trim(arrCols(7) & "") = "I" and Trim(arrCols(4) & "") = 0 Then
					.rows(i).cells(6).innerhtml = "<span class='price_red2'>¹ÌÈ®Á¤</span>"
				Else
					.rows(i).cells(6).innertext = NumCommma(Trim(arrCols(5) & ""))
				End If
				
				' ±¹Á¦¼±ÀÏ °æ¿ì¿¡´Â À¯·ùÇÒÁõ·á Ä÷³ ¾Èº¸ÀÌ°Ô ÇÔ (2008-08-21 ÀÌÇõÁø)
				If Trim(arrCols(7) & "") = "I" Then
					.rows(i).cells(5).style.display = "none"
					.rows(0).cells(5).style.display = "none"					
				End If

				intTotalFare = intTotalFare + CLng(Trim(arrCols(5) & ""))

			End With

		Next

		
		If Trim(arrCols(7) & "") = "I" and Trim(arrCols(4) & "") = 0 Then	' Tax = 0
			DIV_TotalFare.innerHtml = "ÃÑ ¿îÀÓ :<span class='price_red2'> ¹ÌÈ®Á¤</span> <img src='/B2C_IMG/Agency/btn_paypolicy.gif' align='absmiddle' OnClick=B2C_fnFareRule(" & PNR_SEQUENCE & ") style='cursor:hand' id='btn_FareRule'>"
		Else
			DIV_TotalFare.innerHtml = "ÃÑ ¿îÀÓ :<span class='price_red2'> "  & NumCommma(intTotalFare) &  "¿ø</span> <img src='/B2C_IMG/Agency/btn_paypolicy.gif' align='absmiddle' OnClick=B2C_fnFareRule(" & PNR_SEQUENCE & ") style='cursor:hand' id='btn_FareRule'>"
		End If
    End If
End Sub


'** -----------------------------------------------------------------------------------------------------------------------
' ÀÎ    ÀÚ :
' ¸ñ    Àû : E-TICKET ž½ÂÀÚ¹× ¿îÀÓÁ¤º¸ ¸®½ºÆ®(B2C¿¡¼­ »ç¿ëÇÏ´Â ÇÔ¼ö)
'** -----------------------------------------------------------------------------------------------------------------------
Sub B2C_getPaxList_TICKET(PNR_SEQUENCE)

	Dim strParam, pageUrl, xmlRequest, xmlDom, strRtn, strData
	Dim arrRows, arrCols, i, bgColor
	Dim strHTML
	Dim intTotalFare
	Dim rownum

    strParam = "sJob=" & CONST_PAXLIST										' Job ±¸ºÐ
	strParam = strParam & "&PNR_SEQUENCE=" & PNR_SEQUENCE					' DB ·¹ÄÚµå ±¸ºÐ°ª

    pageUrl	= "/B2C_MYPAGE/B2C_FMYP01_A20.asp"

    ' µð¹ö±ë ÆÁ
     'Window.Open pageUrl & "?" & strParam

    Set xmlRequest  = CreateObject("Microsoft.XMLHTTP")
    Set xmlDom      = CreateObject("Microsoft.XMLDOM")

    xmlRequest.Open "POST", pageUrl, FALSE
    xmlRequest.setRequestHeader "Content-Type","application/x-www-form-urlencoded;charset=euc-kr"
    xmlRequest.Send strParam

    xmlDom.loadXML(xmlRequest.responseXML.xml)
	strRtn      = xmlDom.documentElement.selectSingleNode("strRtn").text
	strData     = xmlDom.documentElement.selectSingleNode("strData").text
    xmlDom.abort

    Set xmlDom      = Nothing
    Set xmlRequest  = Nothing

    If strRtn = "FALSE" Then
'		Call Cls_Grid(tblSimGrid1)
'		Call SetList1()
    Else

'		Call Cls_Grid(tblSimGrid1)
		arrRows = Split(strData, strRowDelimiter)		
		
		gRecordCNT = Ubound(arrRows) - 1

		For i = 1 To Ubound(arrRows)
			arrCols = Split(arrRows(i-1), strColDelimiter)
			intPaxCNT = Ubound(arrRows)

			With tblSimGrid1

				.insertRow
				.rows(i).className		= "tablebar2"
				
				' ¼±ÅÃ
				.rows(i).insertcell
				If i = 1 Then
					.rows(i).cells(0).innerhtml = "<input type='radio' value='"&arrCols(0)&"' name='chkSelect' checked>"
				Else
					.rows(i).cells(0).innerhtml = "<input type='radio' value='"&arrCols(0)&"' name='chkSelect'>"
				End If

				' ¿µ¹®¼º¸í
				.rows(i).insertcell
			    strHTML = Trim(arrCols(0) & "") '& "&nbsp;&nbsp;<img src='/BTMS_IMG/IMG_MYPAGE/my_bt35.gif' width='51' height='19' align='absmiddle'>"
				.rows(i).cells(1).innerhtml = UCase(strHTML)

				' ¼ºº°
				.rows(i).insertcell
				.rows(i).cells(2).innertext = Trim(arrCols(1) & "")

				' ¿îÀÓÁ¾·ù
				.rows(i).insertcell
				If Trim(arrCols(2) & "") = "" Then
					.rows(i).cells(3).innerhtml = "¿îÀÓ ¹ÌÈ®Á¤"
				Else
					.rows(i).cells(3).innertext = Trim(arrCols(2) & "")
				End If

				' ÆǸſîÀÓ
				.rows(i).insertcell
				If Trim(arrCols(3) & "") = 0 Then
					.rows(i).cells(4).innerhtml = "0"
				Else
					.rows(i).cells(4).innertext = NumCommma(Trim(arrCols(3) & ""))
				End If

				' TAX (Tax °¡ 0 ¿øÀ̸é "¹ÌÈ®Á¤" À¸·Î º¸¿©ÁÜ)
				.rows(i).insertcell
				If Trim(arrCols(7) & "") = "I" and Trim(arrCols(4) & "") = 0 Then
					.rows(i).cells(5).innerhtml = "<span class='price_red'>¹ÌÈ®Á¤</span>"
				Else
					.rows(i).cells(5).innertext = NumCommma(Trim(arrCols(4) & ""))
				End If
				
				' À¯·ùÇÒÁõ·á
				.rows(i).insertcell
				If Trim(arrCols(8) & "") = 0 Then
					.rows(i).cells(6).innerhtml = "0"
				Else
					.rows(i).cells(6).innertext = NumCommma(Trim(arrCols(8) & ""))
				End If

				' ÁöºÒ¾× (Tax °¡ 0 ¿øÀ̸é "¹ÌÈ®Á¤" À¸·Î º¸¿©ÁÜ)
				.rows(i).insertcell
				If Trim(arrCols(7) & "") = "I" and Trim(arrCols(4) & "") = 0 Then
					.rows(i).cells(7).innerhtml = "<span class='price_red'>¹ÌÈ®Á¤</span>"
				Else
					.rows(i).cells(7).innertext = NumCommma(Trim(arrCols(5) & ""))
				End If
				
				' ±¹Á¦¼±ÀÏ °æ¿ì¿¡´Â À¯·ùÇÒÁõ·á Ä÷³ ¾Èº¸ÀÌ°Ô ÇÔ (2008-08-21 ÀÌÇõÁø)
				If Trim(arrCols(7) & "") = "I" Then
					.rows(0).cells(6).style.display = "none"
					.rows(i).cells(6).style.display = "none"
				End If

				intTotalFare = intTotalFare + CLng(Trim(arrCols(5) & ""))

			End With

		Next

'		DIV_TotalFare.innerHtml = "ÃÑ ¿îÀÓ :<span class='red_b'> "  & NumCommma(intTotalFare) &  "¿ø</span> (°øÇ×¼¼ ¹× TAX´Â º°µµ) <img src='/B2C_IMG/common/btn_01.gif' align='absmiddle' OnClick=B2C_fnFareRule(" & PNR_SEQUENCE & ") style='cursor:hand' id='btn_FareRule'>"
		If Trim(arrCols(7) & "") = "I" and Trim(arrCols(4) & "") = 0 Then
			DIV_TotalFare.innerHtml = "ÃÑ ¿îÀÓ :<span class='price_red'> ¹ÌÈ®Á¤</span>&nbsp;<img src='/B2C_IMG/Agency/btn_paypolicy.gif' align='absmiddle' OnClick=B2C_fnFareRule(" & PNR_SEQUENCE & ") style='cursor:hand' id='btn_FareRule'>"
		Else
			DIV_TotalFare.innerHtml = "ÃÑ ¿îÀÓ :<span class='price_red'> "  & NumCommma(intTotalFare) &  "¿ø</span>&nbsp;<img src='/B2C_IMG/Agency/btn_paypolicy.gif' align='absmiddle' OnClick=B2C_fnFareRule(" & PNR_SEQUENCE & ") style='cursor:hand' id='btn_FareRule'>"
		End If
    End If
End Sub

'** -----------------------------------------------------------------------------------------------------------------------
' ÀÎ    ÀÚ : PNR_SEQUENCE : Pnr±¸ºÐ°ª
' ¸ñ    Àû : ¿îÀÓ±ÔÁ¤º¸±â
'** -----------------------------------------------------------------------------------------------------------------------
Sub fnFareRule(PNR_SEQUENCE)

	Dim winProp
	
	winProp = "toolbar=no,location=no,directories=no,status=no,menubar=no,"
	winProp = winProp & "scrollbars=yes,resizable=yes,copyhistory=no,"
	winProp = winProp & "width=430,height=578;Left=0;Top=0"

	Set WinPop1 = Window.Open("/BTMS_COM/FRUL01_P20.asp?Sequence=" & PNR_SEQUENCE , "", winProp)

End Sub
'-----------------------------------------------------------------------------------------------------------------------
' ÀÎ    ÀÚ : PNR_SEQUENCE : Pnr±¸ºÐ°ª   
' ¸ñ    Àû : ¿îÀÓ±ÔÁ¤º¸±â(B2C¿¡¼­ »ç¿ë)   
'-----------------------------------------------------------------------------------------------------------------------
Sub B2C_fnFareRule(PNR_SEQUENCE)

	Dim open_page

	'Modal â »ý¼º ½Ã ·¹ÀÌ¾î °¨½Î±â
	Call Window_SetLayer1("on")
				
	open_page = "/BTMS_COM/B2C_FRUL01_P20.asp?Sequence=" & PNR_SEQUENCE
	
	document.iframe_post.target = "ifrPop"
	document.iframe_post.action = open_page
	document.iframe_post.submit()

End Sub


'** -----------------------------------------------------------------------------------------------------------------------
' ÀÎ    ÀÚ : PNR_SEQUENCE : Pnr±¸ºÐ°ª, SEG_NO : ž½Â¹øÈ£
' ¸ñ    Àû : ºñÇà±â»ó¼¼Á¤º¸
'** -----------------------------------------------------------------------------------------------------------------------
Sub fnFlightInfo(PNR_SEQUENCE, SEG_NO)

	Dim winProp

	winProp = "toolbar=no,location=no,directories=no,status=no,menubar=no,"
	winProp = winProp & "scrollbars=yes,resizable=yes,copyhistory=no,"
	winProp = winProp & "width=570,height=250;Left=0;Top=0"

	Set WinPop2 = Window.Open("/BTMS_COM/FIAVL01_P20.asp?Sequence=" & PNR_SEQUENCE & "&SEG_NO=" & SEG_NO , "", winProp)

End Sub


'-------------------------------------------------------------------------
' Input : bVal - ""		:
'				 "none"	:
'-------------------------------------------------------------------------
Sub displayLoadingImage2(bVal)
	Dim strHTML
	If bVal = "" Then
		divBack.style.pixelTop = (document.body.offsetHeight - divLoading.Height) / 2
		divBack.style.pixelLeft = (document.body.offsetWidth - divLoading.Width) / 2
		divLoading.style.pixelTop = (document.body.offsetHeight - divLoading.Height) / 2
		divLoading.style.pixelLeft = (document.body.offsetWidth - divLoading.Width) / 2

		strHTML = "<Table width='173' border='0' cellPadding='0' cellSpacing='0'>"
		strHTML = strHTML & "<tr><td><img src='/BTMS_IMG/loading_bar.jpg' width='500' height='347' /></td></tr></Table>"

		Display_LoadingBar.innerHTML = strHTML
	End If
	'divBack.style.display = bVal
	'divLoading.style.display = bVal
End Sub
'-------------------------------------------------------------------------


'-------------------------------------------------------------------------
' Input : bVal - ""		:
'				 "none"	:
'-------------------------------------------------------------------------
Sub displayLoadingImage(bVal)
	Dim strHTML
	If bVal = "" Then
		'window.open "/BTMS_COM/loading.asp"
		divLoading.frameElement.style.pixelTop = (document.body.offsetHeight - divLoading.frameElement.Height) / 2
		divLoading.frameElement.style.pixelLeft = (document.body.offsetWidth - divLoading.frameElement.Width) / 2
	Else
		If strInterval <> "" Then window.clearInterval(strInterval)
	End If
	divLoading.frameElement.style.display = bVal
End Sub
'-------------------------------------------------------------------------


'-------------------------------------------------------------------------
' ¼³¸í	: â »çÀÌÁî Á¶Àý
'-------------------------------------------------------------------------
' Input	: None
'-------------------------------------------------------------------------
Sub Window_Resize
    Dim winObj
    Dim realWidth
    Dim realHeight

	Set winObj = document.getElementsByTagName("body").item(0)
    With winObj

	    If .scrollHeight > 600 Then
	   		realHeight	= 600
    		realWidth	= .scrollWidth + 30
		    document.body.scroll = "yes"

        Else
    		realWidth	= .scrollWidth + 10
    		realHeight	= .scrollHeight + 30
    		document.body.scroll = "no"

    	End If
    End With

	If realWidth > 900 Then   realWidth = 900

	' â ReSize
 	window.resizeTo realWidth, realHeight

End Sub
'-------------------------------------------------------------------------


'-------------------------------------------------------------------------
' ¼³¸í	: ºñÇàÁ¤º¸ Á¶È¸ (POP-UP) 
'-------------------------------------------------------------------------
' Input : Parameter - aRnum : "FLIINFO_XML" Attribute °ªÀÌ ÀúÀåµÈ Row No
'-------------------------------------------------------------------------
Function fnOpenFlightInfo( aRnum )

	Dim paramXml

    Dim wleft
    Dim wtop
    Dim winUrl
    Dim winProp
    Dim fltWin

'    document.all.hidFLIGHTREQXML.Value = getFlightInfoReqXml(valSeq)
    document.all.hidFLIGHTREQXML.Value = tblSimGrid.rows(aRnum).cells(0).getAttribute("FLIINFO_XML")
	
	winProp = "toolbar=no,location=no,directories=no,status=no,menubar=no,"
	winProp = winProp & "scrollbars=yes,resizable=no,copyhistory=no,"
	winProp = winProp & "width=570,height=250"

	window.open "", "wFlight", winProp

    document.popFlightInfo.target = "wFlight"
	document.popFlightInfo.action = "/BTMS_COM/FIAVL01_P10.asp"
	document.popFlightInfo.submit()

End Function
'-------------------------------------------------------------------------


'-------------------------------------------------------------------------
' ¼³¸í	: ºñÇàÁ¤º¸ Á¶È¸ (POP-UP) - 2008/02/20 °­»ó±¸ ¼öÁ¤
'-------------------------------------------------------------------------
' Input : Parameter - aRnum : "FLIINFO_XML" Attribute °ªÀÌ ÀúÀåµÈ Row No
'-------------------------------------------------------------------------
Function B2C_fnOpenFlightInfo( aRnum )

	Dim open_page

	'ºñÇàÁ¤º¸ REQ XML ¼ÂÆÃ
	document.all.hidFLIGHTREQXML.Value = tblSimGrid.rows(aRnum).cells(0).getAttribute("FLIINFO_XML")

	If Trim(document.all.hidFLIGHTREQXML.Value) = "" Then
		Call fnOPenMsgbox("Alert", "ºñÇàÁ¤º¸°¡ ¾ø½À´Ï´Ù.")
		Exit Function
	End If

	'Modal â »ý¼º ½Ã ·¹ÀÌ¾î °¨½Î±â
	Call Window_SetLayer1("on")
				
	open_page = "/BTMS_COM/B2C_FIAVL01_P10.asp"

	document.popFlightInfo.target = "ifrPop"
	document.popFlightInfo.action = open_page
	document.popFlightInfo.submit() 

End Function
'-------------------------------------------------------------------------


'-------------------------------------------------------------------------
' ¼³¸í	: Debug ¹öÆ° ¸¸µé±â
'-------------------------------------------------------------------------
' Input : Parameter - rnum : Row NO
'                   - wIdx : »õâ À̸§À¸·Î settingµÉ index °ª
'                   - cellIdx : Cell Index
'                   - tblDebugXML : Debug XML º¸±â DIV Area
'                   - aDebugXML : Debug XML
'                   - aButtonValue : ¹öÆ° À̸§
'-------------------------------------------------------------------------
Sub fnGetDebugButton( ByRef rnum, _
                      ByRef wIdx, _
                      ByRef cellIdx, _
                      ByRef tblDebugXML, _
                      ByVal aDebugXML, _
                      ByVal aButtonValue )

    Const CONST_DEBUG_CELL = 2
    Dim strHTML

    With tblDebugXML

	    If cellIdx mod CONST_DEBUG_CELL = 0 then
	        .insertRow
	        rnum = rnum + 1
            cellIdx = 0
	    End If

        If Len(aDebugXML) = 0 Then
            strHTML     = "<input type='button' value='DEBUGâ ¸ðµÎ ´Ý±â' class='ButtonI' style='width:180px;cursor:hand;' " &_
                          "onClick='VBS:Call fnCloseDebug()'>"
        Else
            strHTML     = "<input type='button' value='" & aButtonValue & "' class='ButtonC'  style='width:180px;cursor:hand;' " &_
                          "onClick='VBS:Call fnOpenDebug(" & wIdx & " , """ & escape(aDebugXML) & """)'>"
        End If

	    .rows(rnum).insertCell
	    .rows(rnum).align = "left"
	    .rows(rnum).cells(cellIdx).innerHtml = strHTML

        cellIdx = cellIdx + 1
        wIdx = wIdx + 1

    End With

End Sub
'-------------------------------------------------------------------------


'-------------------------------------------------------------------------
' ¼³¸í	: Debug â ¿­±â (POP-UP)
'-------------------------------------------------------------------------
' Input : Parameter - wIdx : Window nameÀ¸·Î ÁöÁ¤µÉ index
'                   - aDebugXML : Debug XML
'-------------------------------------------------------------------------
Sub fnOpenDebug( wIdx, aDebugXML )
    Dim winUrl                  ' Debug â URL
    Dim winProp                 ' Window Property
    Dim winTarget               ' Window Name
    Dim winLeft                 ' â À§Ä¡(Left)
    Dim winTop                  ' â À§Ä¡(Top)
    Dim winObj                  ' Debug Window °´Ã¼

    Dim arrWindow               ' ¿­¸° Debug Window °´Ã¼ Array

    '-------------------------------------------------------
    ' FormÀÇ hidDEBUGXML °ªÀ¸·Î DebugXML ÁöÁ¤
    '-------------------------------------------------------
    document.all.hidDEBUGXML.Value = unescape(aDebugXML)

    '-------------------------------------------------------
    ' »õâ ¿­±â (winTop À§Ä¡¿¡ 2°³¾¿ ¶ç¿ò)
    '-------------------------------------------------------
    winUrl  = "/BTMS_COM/FDEBUG_P10.asp"
    If wIdx mod 2 = 1 Then
        winLeft = 0
    Else
        winLeft = 508
    End If
    winTop = Int((wIdx-1)/2) * 100

	winProp = "toolbar=no,location=no,directories=no,status=no,menubar=no,"
	winProp = winProp & "scrollbars=no,resizable=no,copyhistory=no,"
	winProp = winProp & "width=500,height=450,top=" & winTop & ",left=" & winLeft

    If Len(wIdx) = 1 Then
        wIdx = "0" & wIdx
    End If

    winTarget = "wDebug" & wIdx
	Set winObj = window.open(winUrl, winTarget, winProp)
    '-------------------------------------------------------

    '-------------------------------------------------------
    ' »õ âÀ» ¿­¸é¼­ Window °´Ã¼¸¦ Dictionary °´Ã¼¿¡ ÀúÀå
    '-------------------------------------------------------
    If Not IsObject(gdicDebugWindow) Then
        If IsEmpty(gdicDebugWindow) Then
            Set gdicDebugWindow = CreateObject("Scripting.Dictionary")
        End If
    End If

    If Not gdicDebugWindow.Exists(wIdx) Then
        gdicDebugWindow.Add wIdx, winObj
    End If

    '-------------------------------------------------------
    ' Debug âÀ» ¿­ ¶§¸¶´Ù ¿­¸° ¸ðµç Debugâ¿¡ Focus
    '-------------------------------------------------------
    arrWindow = gdicDebugWindow.Items
    For i=0 To gdicDebugWindow.Count-1
        If IsObject(arrWindow(i)) Then
            arrWindow(i).Focus
        End If
    Next
    '-------------------------------------------------------
End Sub
'-------------------------------------------------------------------------


'-------------------------------------------------------------------------
' ¼³¸í  : ¿­¸° Debug â ¸ðµÎ ´Ý±â
'-------------------------------------------------------------------------
' Input : NONE
'-------------------------------------------------------------------------
Sub fnCloseDebug
    Dim arrWindow           ' ¿­¸° Debug Window °´Ã¼ Array
    Dim i

'    MsgBox IsObject(gdicDebugWindow)
'    MsgBox IsEmpty(gdicDebugWindow)

    If IsObject(gdicDebugWindow) And Not IsEmpty(gdicDebugWindow) Then

        '-------------------------------------------------------
        ' gdicDebugWindow °´Ã¼¿¡ ÀúÀåµÈ ¿­¸° Debug ⠴ݱâ
        '-------------------------------------------------------
        arrWindow = gdicDebugWindow.Items
        For i=0 To gdicDebugWindow.Count-1
            If IsObject(arrWindow(i)) Then
                arrWindow(i).Close
            End If
        Next
        '-------------------------------------------------------

        '-------------------------------------------------------
        ' Dictionary °´Ã¼ Clear
        '-------------------------------------------------------
        gdicDebugWindow.RemoveAll
        '-------------------------------------------------------

    End If
End Sub
'-------------------------------------------------------------------------


'-------------------------------------------------------------------------
' ¼³¸í  : ¿­¸° Debug â ¸ðµÎ ´Ý±â
'-------------------------------------------------------------------------
' Input : NONE
'-------------------------------------------------------------------------
Sub fnRemoveDebug( wName )
    Dim arrWindow           ' ¿­¸° Debug Window °´Ã¼ Array
    Dim i

    If IsObject(gdicDebugWindow) And Not IsEmpty(gdicDebugWindow) Then

        '-------------------------------------------------------
        ' gdicDebugWindow °´Ã¼¿¡ ÀúÀåµÈ ¿­¸° Debug ⠴ݱâ
        '-------------------------------------------------------
        arrWindow = gdicDebugWindow.Items
        For i=0 To gdicDebugWindow.Count-1
            If IsObject(arrWindow(i)) Then
                If arrWindow(i).name = wName Then
                    gdicDebugWindow.Remove(Right(wName, 2))
                    Exit For
                End If
            End If
        Next
        '-------------------------------------------------------

    End If
End Sub
'-------------------------------------------------------------------------

Sub fnPerSonCheck()
	If gPerson = "" Then
		Call fnOPenMsgbox("Alert", "¿¬°á ½Ã°£ÀÌ ÃÊ°ú µÇ¾ú½À´Ï´Ù. ´Ù½Ã Á¢¼ÓÇØÁÖ¼¼¿ä.")
		Location.href= "/default.asp"
	End If
End Sub


'-------------------------------------------------------------------------
'¼³¸í : ·Îµù¹Ù ÁÂÇ¥ ¸ÂÃç¼­ ¶ç¿ì±â
'-------------------------------------------------------------------------
Sub displayLodingImg()

	Dim  LayerHeight,LayerWidth,vH,vW

	LayerHeight   =  Replace( divLoading2.style.Height, "px", "")
	LayerWidth    =  Replace( divLoading2.style.Width, "px", "")

	If LayerHeight = "" Then
		LayerHeight = 0
	End If

	If LayerWidth = "" Then
		LayerWidth = 0
	End If


'    vH = ((document.body.offsetHeight - LayerHeight) / 2) + document.body.scrollTop
'    vH = ((document.body.offsetHeight - LayerHeight) / 2) + document.documentElement.scrollTop
	vH = ((document.body.scrollHeight - LayerHeight) / 2) + document.documentElement.scrollTop	

	'vH = document.documentElement.scrollTop + 100
'	vW = ((document.body.offsetWidth - LayerWidth) / 2) + document.body.scrollLeft


	divLoading2.style.Top = vH
'	divLoading2.style.pixelLeft = vW
	divLoading2.style.display = ""
	bodyFrame.classname		    = "modalBackground"

End Sub


'-------------------------------------------------------------------------
'¼³¸í : ·Îµù¹Ù ¼û±â±â
'-------------------------------------------------------------------------
Sub displayNoneLodingImg()

	divLoading2.style.display = "none"
	bodyFrame.classname		    = ""
	divBody.style.display = "block"

End Sub


'-------------------------------------------------------------------------
'¼³¸í : ·Îµù¹Ù ÁÂÇ¥ ¸ÂÃç¼­ ¶ç¿ì±â
'-------------------------------------------------------------------------
Sub displayLodingBar()

	Dim  LayerHeight,LayerWidth,vH,vW
	Dim TstrData


	LayerHeight   =  Replace( StMsg.style.Height, "px", "")
	LayerWidth    =  Replace( StMsg.style.Width, "px", "")

	If LayerHeight = "" Then
		LayerHeight = 0
	End If

	If LayerWidth = "" Then
		LayerWidth = 0
	End If
'    vH = ((document.body.offsetHeight - LayerHeight) / 2) + document.body.scrollTop
    vH = ((document.body.offsetHeight - LayerHeight) / 2) 
	vW = ((document.body.offsetWidth - LayerWidth) / 2)

	StMsg.style.pixelTop = 450
	StMsg.style.pixelLeft = vW -100
'	divLoading2.style.pixelLeft = vW
	TstrData = "Á¶È¸ÁßÀÔ´Ï´Ù. Àá½Ã¸¸ ±â´Ù·ÁÁÖ¼¼¿ä."
	Msgstr.innerHTML= "<Font Color=lime><b>" & TstrData & "</b></Font>"
	StMsg.style.display = ""
	'divBody.style.display = "none"

End Sub



'-------------------------------------------------------------------------
'¼³¸í : ·Îµù¹Ù ¼û±â±â
'-------------------------------------------------------------------------
Sub displayNoneLodingBar()

	StMsg.style.display = "none"
	divBody.style.display = ""

End Sub



'-------------------------------------------------------------------------
' ÇÔ ¼ö ¸í : GetReserveDate()
' ÀÎ    ÀÚ :
' ¸ñ    Àû : ¿¹¾à°¡´ÉÀÏÀÚ ±¸Çϱâ
'-------------------------------------------------------------------------
Function GetReserveDate()

	Dim sData, strParam, pageUrl,  xmlDom, strRtn, strData,oXmlhttp
	Dim intYear, intMonth, intDay
	
	'------------------------------------------------
	Set oXmlhttp = CreateObject("Microsoft.XMLHTTP")
	Set xmlDom = CreateObject("Microsoft.XMLDOM")
	'------------------------------------------------
	
	
	strParam = "strWorkGbn=" & escape(Trim(woSelCode3))
	oXmlhttp.Open "POST", "/BTMS_AirBooking/FITRP01_A10.asp", FALSE
	oXmlhttp.setRequestHeader "Content-Type","application/x-www-form-urlencoded;charset=euc-kr"
	oXmlhttp.Send strParam
	
'	 Window.Open  "/BTMS_AirBooking/FITRP01_A10.asp?" & strParam
 	' exit sub

	xmlDom.loadXML(oXmlhttp.responseXML.xml)

	strRtn		= xmlDom.documentElement.selectSingleNode("strRtn").text
	strData	= xmlDom.documentElement.selectSingleNode("strData").text

	xmlDom.abort

	Set xmlDom	= Nothing
	Set oXmlhttp	= Nothing


	If strRtn = "False" Then
		strData	= 0
	End If
	
	intYear		= Year( DateAdd("D", strData, Now) )
	intMonth	= Month( DateAdd("D", strData, Now) )
	intDay		= Day( DateAdd("D", strData, Now) )
		
	If CInt(intMonth) < 10 Then intMonth	= "0"	& CInt(intMonth)
	If CInt(intDay)		< 10 Then intDay	= "0"		& CInt(intDay)
	
	GetReserveDate	= intYear & intMonth & intDay
	
End Function
'-------------------------------------------------------------------------


'-------------------------------------------------------------------------
' ÇÔ ¼ö ¸í : GetReserveDate_Domestic()
' ÀÎ    ÀÚ :
' ¸ñ    Àû : ¿¹¾à°¡´ÉÀÏÀÚ ±¸Çϱâ(±¹³»¼±)
' ¼³    ¸í : ±¹³»¼±Àº ´çÀÏ ¿©Á¤ÀÌ ¿¹¾à °¡´ÉÇϱ⿡ ¿À´Ã ³¯Â¥·Î ¸®ÅÏ
'-------------------------------------------------------------------------
Function GetReserveDate_Domestic()
	Dim intYear, intMonth, intDay
	
	intYear		= Year(now())
	intMonth		= Right("0"&Month(now()),2)
	intDay		= Right("0"&Day(now()),2)
	
	GetReserveDate_Domestic	= intYear & intMonth & intDay
	
End Function
'-------------------------------------------------------------------------

'-------------------------------------------------------------------------
' ¼³¸í	: Rule Á¤º¸ º¸±â - Æ˾÷
'-------------------------------------------------------------------------
' Input : Parameter - iFARE_MCODE : 1,0
' Output: Function Value - Boolean (True/False)
'-------------------------------------------------------------------------
Sub viewRule(iFARE_MCODE)
	Dim open_page
	If iFARE_MCODE = "" Then Exit Sub    
   
    'Æ˾÷â »ý¼º ½Ã ·¹ÀÌ¾î °¨½Î±â
	Call Window_SetLayer1("on")
	
	open_page = "/B2C_AirBooking/AirBooking_International/B2C_FITRP01_P10.asp?iFARE_MCODE=" & iFARE_MCODE
		
	'document.getElementById("newz_iframe").width=1
	'document.getElementById("newz_iframe").height=1
	
	document.iframe_post.target = "ifrPop"
	document.iframe_post.action = open_page
	document.iframe_post.submit
End Sub
'-------------------------------------------------------------------------

'-------------------------------------------------------------------------
' ¼³¸í	: Rule Á¤º¸ º¸±â - À©µµ¿ì ·¹ÀÌ¾î ¾øÀÌ Æ˾÷ »ý¼º
'-------------------------------------------------------------------------
' Input : Parameter - iFARE_MCODE : 1,0
' Output: Function Value - Boolean (True/False)
'-------------------------------------------------------------------------
Sub viewRule_No_WindowLayer(iFARE_MCODE)
	Dim open_page

	If iFARE_MCODE = "" Then Exit Sub    
	
	Dim obj         
	obj = parent.document.getElementsByTagName("body")        
	
	parent.document.getElementById("newz_iframe_1").style.left = ((obj.scrollWidth/2)-250)
	'parent.document.getElementById("newz_iframe_1").style.top = parent.document.body.scrollTop + 60
	parent.document.getElementById("newz_iframe_1").style.top = parent.document.documentElement.scrollTop + 100
	
	open_page = "/B2C_AirBooking/AirBooking_International/B2C_FITRP01_P10.asp?iFARE_MCODE=" & iFARE_MCODE & "&popupStatus=re"
		
	parent.document.getElementById("newz_iframe_1").width=1
	parent.document.getElementById("newz_iframe_1").height=1	
	parent.document.getElementById("newz_iframe_1").style.display="block"	
	parent.document.getElementById("newz_iframe_1").src=open_page
End Sub
'-------------------------------------------------------------------------

'-------------------------------------------------------------------------
' ¼³¸í	: Á¼®Á¶È¸ Á¤º¸ º¸±â - Æ˾÷
'-------------------------------------------------------------------------
' Input : Parameter - iFARE_MCODE : 1,0
' Output: Function Value - Boolean (True/False)
'-------------------------------------------------------------------------
Sub viewRule_Cavin(iFARE_MCODE, CITY_CODE)
	Dim open_page	

	If iFARE_MCODE = "" Then Exit Sub
	
	'Modal â »ý¼º ½Ã ·¹ÀÌ¾î °¨½Î±â
	Call Window_SetLayer1("on")
				
	open_page = "/B2C_AirBooking/AirBooking_International/B2C_FITRP01_P20.asp?iFARE_MCODE=" & iFARE_MCODE & "&CITY_CODE=" & CITY_CODE
	
	document.iframe_post.target = "ifrPop"
	document.iframe_post.action = open_page
	document.iframe_post.submit
End Sub

'-------------------------------------------------------------------------

'-------------------------------------------------------------------------
' ¼³¸í	: ºñÇàÁ¤º¸ º¸±â - Æ˾÷
'-------------------------------------------------------------------------
' Input : 
'-------------------------------------------------------------------------
Sub viewFlightInfo()
	Dim open_page	

	'Modal â »ý¼º ½Ã ·¹ÀÌ¾î °¨½Î±â
	Call Window_SetLayer1("on")
				
	open_page = "/B2C_AirBooking/AirBooking_International/B2C_FITRP01_P30.asp"
	
	document.iframe_post.target = "ifrPop"
	document.iframe_post.action = open_page
	document.iframe_post.submit
End Sub
'-------------------------------------------------------------------------


'-------------------------------------------------------------------------
' ¼³¸í	: Æ˾÷â »ý¼º ½Ã ºÎ¸ðâ Layer·Î °¨½Î±â
'-------------------------------------------------------------------------
' Input : Parameter - MCODE : on,off
'-------------------------------------------------------------------------
Sub Window_SetLayer(MODE)

  If MODE = "on" Then		
    Dim Layer_Height
    Dim obj 
      
    obj = document.getElementsByTagName("body")
      
    If window.screen.height > obj.scrollHeight Then
      Layer_Height = window.screen.height
    Else 			
      Layer_Height = obj.scrollHeight
    End If
      
    document.getElementById("newz_overlay").style.height = Layer_Height+100'·¹ÀÌ¾î ¼¼·Î»çÀÌÁî ¼³Á¤
    document.getElementById("newz_overlay").style.width = window.screen.width-20'·¹ÀÌ¾î °¡·Î»çÀÌÁî ¼³Á¤
    
    document.getElementById("who_view_close").style.height = Layer_Height'IFRAME ¼¼·Î»çÀÌÁî ¼³Á¤
    document.getElementById("who_view_close").style.width = window.screen.width-20'IFRAME °¡·Î»çÀÌÁî ¼³Á¤	    
    
    'Æ˾÷ »ý¼º ½Ã ºÎ¸ðâ¿¡  ¹è°æ »ö ³Ö±â	    	    
    document.getElementById("newz_overlay").style.display="block"    '·¹À̾î·Î ºÎ¸ðâ °¨½Î±â
    document.getElementById("who_view_close").style.display="block" 'IFRAMEÀ¸·Î ºÎ¸ðâ °¨½Î±â		
    
    'Æ˾÷â º¸¿©ÁÖ±â	    
    document.getElementById("newz_iframe").width=0
    document.getElementById("newz_iframe").height=0
    document.getElementById("newz_iframe").style.left = ((obj.scrollWidth/2)-250)
  
    'document.getElementById("newz_iframe").style.top = document.body.scrollTop + 60		
  
  
    document.getElementById("newz_iframe").style.top = document.documentElement.scrollTop + 100
    
    document.getElementById("newz_iframe").src=""
    document.getElementById("newz_iframe").style.display="block"		
  
  Else
    'Modal â ´ÝÀ¸¸é ¹è°æ »ö »©±â
    document.getElementById("newz_overlay").style.display="none"  '·¹ÀÌ¾î ¾ø¾Ö±â
    document.getElementById("who_view_close").style.display="none"'¹è°æ IFRAME ¾ø¾Ö±â
    document.getElementById("newz_iframe").style.display="none"'Æ˾÷ IFRAME ¾ø¾Ö±â
    
    document.getElementById("newz_iframe").src=""'Æ˾÷ IFRAME ¾ø¾Ö±â
    document.getElementById("newz_iframe").width=0
    document.getElementById("newz_iframe").height=0
  End If 
End Sub


'-------------------------------------------------------------------------
' ¼³¸í	: Æ˾÷â »ý¼º ½Ã ºÎ¸ðâ Layer·Î °¨½Î±â
'-------------------------------------------------------------------------
' Input : Parameter - MCODE : on,off
'-------------------------------------------------------------------------
Sub Window_SetLayer1(MODE)

  If MODE = "on" Then		

    Dim Layer_Height
    Dim Layer_Width
    Dim obj 
	      
    obj = parent.document.getElementsByTagName("body")
      
    If parent.window.screen.height > obj.scrollHeight Then
      Layer_Height = window.screen.height
    Else 			
      Layer_Height = obj.scrollHeight
    End If
	Layer_Width = window.screen.width-25

	parent.ifr.frameElement.style.height = Layer_Height
    parent.ifr.frameElement.style.width = Layer_Width

	parent.ifr.frameElement.style.pixelTop = 0
	parent.ifr.frameElement.style.pixelLeft = 0

	parent.ifr.window.document.bgColor= "black"
	parent.ifr.frameElement.style.filter="alpha(opacity:30)"
	parent.ifr.frameElement.style.display = "block"

	parent.ifrPop.frameElement.style.height = 1
    parent.ifrPop.frameElement.style.width = 1
    parent.ifrPop.frameElement.style.display = "block"
  Else
    'Modal â ´ÝÀ¸¸é ¹è°æ »ö »©±â
    parent.ifrPop.frameElement.style.display="none"  '·¹ÀÌ¾î ¾ø¾Ö±â
    parent.ifr.frameElement.style.display="none"  '·¹ÀÌ¾î ¾ø¾Ö±â
  End If 
End Sub


'-------------------------------------------------------------------------
' ¼³¸í	: Æ˾÷â »ý¼º ½Ã ºÎ¸ðâ Layer·Î °¨½Î±â
'-------------------------------------------------------------------------
' Input : Parameter - MCODE : on,off
'-------------------------------------------------------------------------
Sub Window_SetLayer2(MODE)

  If MODE = "on" Then		

    Dim Layer_Height
    Dim Layer_Width
    Dim obj 
	      
    obj = parent.document.getElementsByTagName("body")
      
    If parent.window.screen.height > obj.scrollHeight Then
      Layer_Height = parent.window.screen.height
    Else 			
      Layer_Height = obj.scrollHeight
    End If
	Layer_Width = parent.window.screen.width-25

	parent.ifr.frameElement.style.height = Layer_Height
    parent.ifr.frameElement.style.width = Layer_Width

	parent.ifr.frameElement.style.pixelTop = 0
	parent.ifr.frameElement.style.pixelLeft = 0

	parent.ifr.window.document.bgColor= "black"
	parent.ifr.frameElement.style.filter="alpha(opacity:30)"
	parent.ifr.frameElement.style.display = "block"

	parent.ifrPop.frameElement.style.height = 1
    parent.ifrPop.frameElement.style.width = 1
    parent.ifrPop.frameElement.style.display = "block"
  Else
    'Modal â ´ÝÀ¸¸é ¹è°æ »ö »©±â
    parent.ifrPop.frameElement.style.display="none"  '·¹ÀÌ¾î ¾ø¾Ö±â
    parent.ifr.frameElement.style.display="none"  '·¹ÀÌ¾î ¾ø¾Ö±â
  End If 
End Sub


'** -------------------------------------------------------------------------------------------------
' ÇÔ ¼ö ¸í : B2C_PageSet()
' ÀÎ    ÀÚ : 1. PageSize : ÆäÀÌÁö¼ö
'			 2. Page : ÇöÀçÆäÀÌÁö
'			 3. LastPage : ¸¶Áö¸·ÆäÀÌÁö
'			 4. scrollPage :ÀÌÀü´ÙÀ½ ¼ÂÆà ¼ö
' ¸ñ    Àû : B2C »ç¿ë ÆäÀÌ¡ ÇÔ¼ö
'** -------------------------------------------------------------------------------------------------
Function B2C_PageSet(PageSize,Page,LastPage,scrollPage)

	PageSize	= CInt(PageSize)
	Page		= CInt(Page)
	LastPage	= CInt(LastPage)
	scrollPage	= CInt(scrollPage)

	Dim strHTML, BlockPage, i

	IF LastPage >= 1 Then

		strHTML = "<Table align=right border=0 cellpadding=0 cellspacing=0 class='page_TB'><tr><td align=center  id='graytxt' width='70'>"
		BlockPage = Int((Page-1)/scrollPage) * scrollPage + 1

		IF BlockPage <> 1 Then
			strHTML = strHTML & "<SPAN OnClick=VBS:PageGo_onClick('" & BlockPage - scrollPage & "') style=CURSOR:hand id='graytxt'>[ÀÌÀü " & scrollPage & "°³]</SPAN>"
		Else
			strHTML = strHTML & "<span id='graytxt'>[ÀÌÀü " & scrollPage & "°³]</span>"
		End IF
		strHTML = strHTML & "</td>"

		i = 1

		Do Until i > scrollPage or BlockPage > LastPage
			strHTML = strHTML & "<td width='15'>"
			IF BlockPage = int(Page) Then
				strHTML = strHTML & "<B>" & BlockPage & "</B>"
			Else
				strHTML = strHTML & "<SPAN OnClick=VBS:PageGo_onClick('" & BlockPage & "') style=CURSOR:hand>" & BlockPage & "</SPAN></td>"
			End IF
			
			If i < LastPage Then
				strHTML = strHTML & "<td width='1'><img src='/B2C_IMG/common/s_line.gif'></td>"
			End If

			BlockPage = BlockPage + 1
			i = i + 1

		Loop
		
		strHTML = strHTML & "<td width='70' id='prne' align='right'>"
		IF BlockPage <= LastPage Then
			strHTML = strHTML & "<SPAN OnClick=VBS:PageGo_onClick('" & BlockPage & "') style=CURSOR:hand id='graytxt'>[´ÙÀ½ "& scrollPage & "°³]</SPAN>"
		Else
			strHTML = strHTML & "<span id='graytxt'>[´ÙÀ½ " & scrollPage & "°³]</span>"
		End IF		
		strHTML = strHTML & "</td></tr></table>"
		B2C_PageSet = strHTML

	End IF

End Function


'-------------------------------------------------------------------------
' ¼³¸í	: ·Î±×ÀΠüũ AJax »ç¿ë
'-------------------------------------------------------------------------
' Input : 
'Output : 0:·Î±×¾Æ¿ô Áß	/ 1:·Î±×ÀÎ Áß
'-------------------------------------------------------------------------
Function B2C_Login_Check_RealTime
	Dim sData, strParam, pageUrl,  xmlDom, strRtn, strData,oXmlhttp
	
	'------------------------------------------------
	Set oXmlhttp = CreateObject("Microsoft.XMLHTTP")
	Set xmlDom = CreateObject("Microsoft.XMLDOM")
	'------------------------------------------------
	
	strParam = "strWorkGbn=realTime"
	oXmlhttp.Open "POST", "/BTMS_COM/B2C_LoginCheck.asp", FALSE
	oXmlhttp.setRequestHeader "Content-Type","application/x-www-form-urlencoded;charset=euc-kr"
	oXmlhttp.Send strParam	

	xmlDom.loadXML(oXmlhttp.responseXML.xml)

	strRtn	= xmlDom.documentElement.selectSingleNode("strRtn").text
	strData	= xmlDom.documentElement.selectSingleNode("strData").text

	xmlDom.abort

	Set xmlDom	= Nothing
	Set oXmlhttp	= Nothing
	
	B2C_Login_Check_RealTime = strData
End Function
'-------------------------------------------------------------------------

'-------------------------------------------------------------------------
' ¼³¸í	: Ç×°ø»ó´ã¿¹¾à ¹öÆ® Ŭ¸¯ ½Ã ·Î±×ÀΠüũ ÈÄ »ó´ã¿¹¾à ÆäÀÌÁö À̵¿(Æ˾÷/ÆòÆÇ °øÅë)
'-------------------------------------------------------------------------
' Input : DisXML : ¿©Á¤ ¼±Åà DisXML	
'			PopStatus : P Æ˾÷â¿¡¼­ ÄÝ		/		F ÆòÆÇ¿¡¼­ ÄÝ
'Output : 
'-------------------------------------------------------------------------
Sub B2C_Consult_Redirect(DISXML)	
	Dim strLoginCheck, dHTML
	Dim hidRetrunURL	
	
	hidRetrunURL = "/B2C_AirBooking/AirBooking_International/B2C_FITRP01_030.asp"
		
	strLoginCheck = B2C_Login_Check_RealTime
		
	If strLoginCheck = "0" Then'·Î±×¾Æ¿ôµÈ »óÅ ÀÏ ¶§
			
		dHTML = "<input type=hidden Name='hidReturnURL' Value='"&hidRetrunURL&"'>"&CHR(10)
		dHTML = dHTML & "<input type=hidden Name='hidDISXML' Value='"&DISXML&"'>"&CHR(10)
		Frm_LoginCheck_Consult.innerHTML = dHTML
		Frm_LoginCheck_Consult.action = CONST_LOGINURL		
		Frm_LoginCheck_Consult.Submit()
		
	ElseIf strLoginCheck = "1" Then'ÀÏ¹Ý È¸¿ø ·Î±×ÀÎ µÈ »óÅ ÀÏ ¶§
		dHTML = "<input type=hidden Name='hidDISXML' Value='"&DISXML&"'>"&CHR(10)
		Frm_LoginCheck_Consult.innerHTML = dHTML
		Frm_LoginCheck_Consult.action = hidRetrunURL		
		Frm_LoginCheck_Consult.Submit()		
	End If	
End Sub
'-------------------------------------------------------------------------

'-------------------------------------------------------------------------
' ¼³¸í	: E-TICKET - Æ˾÷
'-------------------------------------------------------------------------
' Input : 
'-------------------------------------------------------------------------
Sub viewETicket()
	Dim open_page	

	'Modal â »ý¼º ½Ã ·¹ÀÌ¾î °¨½Î±â
	Call Window_SetLayer1("on")
				
	open_page = "/B2C_AirBooking/AirBooking_International/B2C_FITRP01_P40.asp"
	
	document.iframe_post.target = "ifrPop"
	document.iframe_post.action = open_page
	document.iframe_post.submit
End Sub
'-------------------------------------------------------------------------


'** -----------------------------------------------------------------------------------------------------------------------
' ÀÎ    ÀÚ : PNR_NO : Pnr ¹øÈ£
' ¸ñ    Àû : ¿¹¾à Ãë¼Ò
'** -----------------------------------------------------------------------------------------------------------------------
Sub fnReservationCancel(PNR_SEQUENCE)
	Dim open_page	

	'Modal â »ý¼º ½Ã ·¹ÀÌ¾î °¨½Î±â
	Call Window_SetLayer1("on")
				
	open_page = "/B2C_MyPAGE/B2C_FMYP01_P10.asp?PNR_SEQUENCE="&PNR_SEQUENCE
	
	document.iframe_post.target = "ifrPop"
	document.iframe_post.action = open_page
	document.iframe_post.submit
End Sub


'** -----------------------------------------------------------------------------------------------------------------------
' ÀÎ    ÀÚ : 
' ¸ñ    Àû : ³¯Â¥ °Ë»öÀÏ ¼³Á¤
'** -----------------------------------------------------------------------------------------------------------------------
Sub Set_SearchDate(Getdate, InputDepDate, DepYear, DepMonth, DepDay, InputArrDate, ArrYear, ArrMonth, ArrDay)
	Dim SetDate : SetDate = Left(Getdate, 4) & "-" & Mid(Getdate, 5, 2) & "-" & Right(Getdate, 2)
	
	If InputDepDate <> "" Then
		eval(InputDepDate).value = SetDate
	End If
	
	If DepYear <> "" Then
		eval(DepYear).value = Left(Getdate, 4)
	End If
	
	If DepMonth <> "" Then
		eval(DepMonth).value = Mid(Getdate, 5, 2)
	End If
	
	If DepDay <> "" Then
		eval(DepDay).value = Right(Getdate, 2)
	End If
	
	If InputArrDate <> "" Then
		eval(InputArrDate).value = SetDate
	End If
	
	If ArrYear <> "" Then
		eval(ArrYear).value = Left(Getdate, 4)
	End If
	
	If ArrMonth <> "" Then
		eval(ArrMonth).value = Mid(Getdate, 5, 2)
	End If
	
	If ArrDay <> "" Then
		eval(ArrDay).value = Right(Getdate, 2)
	End If
	
End Sub

'** -----------------------------------------------------------------------------------------------------------------------
' ÀÎ    ÀÚ : PnrNum(PnrSequence,PnrNo-ÇÁ·ÐÆ®ºÎºÐ)
' ¸ñ    Àû : ¿À¶óŬ ÇÁ·Î½ÃÀú È£Ãâ
'** -----------------------------------------------------------------------------------------------------------------------
Sub ERP_PnrUpdate(PnrSeq,PnrNo)
	
	Dim strParam, pageUrl, xmlRequest, xmlDom, strRtn, strData

    strParam = "strWorkGbn=ERP_CON" 									' Job ±¸ºÐ
	strParam = strParam & "&strPnrSeq=" & Escape(Trim(PnrSeq))							' PNR SEQ
	strParam = strParam & "&strPnrNo=" & Escape(Trim(PnrNo))							' PNR ¹øÈ£
	
    pageUrl     = "/BTMS_COM/ERP_Call.asp"

    ' µð¹ö±ë ÆÁ
     Window.Open pageUrl & "?" & strParam
	 Exit Sub

    Set xmlRequest  = CreateObject("Microsoft.XMLHTTP")
    Set xmlDom      = CreateObject("Microsoft.XMLDOM")

    xmlRequest.Open "POST", pageUrl, FALSE
    xmlRequest.setRequestHeader "Content-Type","application/x-www-form-urlencoded;charset=euc-kr"
    xmlRequest.Send strParam

    xmlDom.loadXML(xmlRequest.responseXML.xml)
		strRtn      = xmlDom.documentElement.selectSingleNode("strRtn").text
		strData     = xmlDom.documentElement.selectSingleNode("strData").text
    xmlDom.abort

    Set xmlDom      = Nothing
    Set xmlRequest  = Nothing

    If strRtn = "FALSE" Then
		Message	= "ERP ¿¬µ¿ Áß ¿À·ù°¡ ¹ß»ýÇß½À´Ï´Ù."
		Call fnOpenMsgbox("Alert", Message)
		Exit Sub
    End If

End Sub



'-------------------------------------------------------------------------
' ¼³¸í	: Æ˾÷â »ý¼º ½Ã ºÎ¸ðâ Layer·Î °¨½Î±â
'-------------------------------------------------------------------------
' Input : Parameter - MCODE : on,off
'-------------------------------------------------------------------------
Sub Window_SetLayerSub(MODE)
  If MODE = "on" Then
    parent.ifrPopBack.window.document.bgColor= "white"
	parent.ifrPopBack.frameElement.style.filter="alpha(opacity:0)"
	parent.ifrPopBack.frameElement.style.pixelTop = parent.ifrPop.frameElement.style.pixelTop
	parent.ifrPopBack.frameElement.style.pixelLeft = parent.ifrPop.frameElement.style.pixelLeft
	parent.ifrPopBack.frameElement.style.height = parent.ifrPop.frameElement.style.height
    parent.ifrPopBack.frameElement.style.width = parent.ifrPop.frameElement.style.width
    parent.ifrPopBack.frameElement.style.display = "block"

	parent.ifrPop.window.document.bgColor= "black"
	parent.ifrPop.frameElement.style.filter="alpha(opacity:30)"
	parent.ifrPopSub.frameElement.style.height = 1
    parent.ifrPopSub.frameElement.style.width = 1
    parent.ifrPopSub.frameElement.style.display = "block"
  Else
    'Modal â ´ÝÀ¸¸é ¹è°æ »ö »©±â
	parent.ifrPop.frameElement.style.filter="alpha(opacity:100)"
    parent.ifrPopBack.frameElement.style.display="none"  '·¹ÀÌ¾î ¾ø¾Ö±â
    parent.ifrPopSub.frameElement.style.display="none"  '·¹ÀÌ¾î ¾ø¾Ö±â
	parent.ifrPop.window.focus
  End If 
End Sub
'-------------------------------------------------------------------------