	Sub SetMapWindInitializing
		On Error Resume Next

		Dim InitPosition
		Dim DefaultX,DefaultY
	
		'WindCtl.DO_IndexMap = 0
		'// 지도 초기화 위치 설정
		If initPositionX <> -1 and initPositionY  <> -1 Then
			DefaultX = cdbl(initPositionX)
			DefaultY = cdbl(initPositionY)
			DefaultScale = 1.5625

			Call  WindCtl.SetCenterAndDispScale (DefaultX, DefaultY, DefaultScale)
		ElseIf  Member_sx <> -1 and Member_sy <> -1 and Member_ex <> -1 and Member_ey <> -1 Then
			Call WindCtl.SetExtent (cdbl(Member_sx) , CDbl(Member_sy)  ,  CDbl(Member_ex )  , CDbl(Member_ey)   )
			'Call WindCtl.SetExtent (cdbl(Member_sx), CDbl(Member_sy)  ,  CDbl(Member_ex )  , CDbl(Member_ey)  )
		Else
			InitPosition = sbReadCookies("cMapLocation")
			InitPosition = split(InitPosition, "%2C")

			If ubound(InitPosition) = 2 Then
				DefaultX = cdbl(InitPosition(0))
				DefaultY = cdbl(InitPosition(1))
				DefaultScale = cdbl(InitPosition(2))

			Else
				DefaultX = 163662
				DefaultY = 526922			

				DefaultScale = 1.5625
			End If
				
			Call  WindCtl.SetCenterAndDispScale (DefaultX, DefaultY, DefaultScale)
			
		End If
		
		
		
		If err.number <> 0 Then
			PrintWindError err.description
			err.clear
		Else 
			'// 경로탐색 서버 접속
			Call Pilot_Startup()
			div_intro.style.display = "none"
		End If
		
		WindCtl.focus

	End Sub

	Sub WindCtl_AfterDraw(sx, sy, ex, ey, dispScale, level)
		On Error Resume Next
		Dim lnfoFrameURL, temint
		' 지도의 Extent 범위가 변경 된경우
		
		If MapPos_sx <> sx or _
			MapPos_sy <> sy or _
			MapPos_ex <> ex or _
			MapPos_ey <> ey Then

			MapPos_sx = sx
			MapPos_sy = sy
			MapPos_ex = ex
			MapPos_ey = ey
			
			
			NowLevel = level
			Call sbSetLevelBar()				'// Level Bar Setting
			Call GetAddressCodeFromMap(sx, sy, ex, ey) 	'// 지도의 주소 정보 가지고 오기
			Call sbLifeinfoAutoSearch(sx, sy, ex, ey)	'// 생활 정보 자동검색 호출 
			
			If curLayerNo = 32 Then '// 테마검색 일때
				'테마 검색 
				document.frmTheme.hidArrayPositionX.value = ""
				document.frmTheme.hidArrayPositionY.value =""
				document.frmTheme.hidArrayIDX.value = ""
				Call lnfoFrame_32.fnGetThemeInfo() '페이지 호출
			End If
			
			
			If curLayerNo = 14 Then '버스 검색.. 일 경우.. 
				lnfoFrame_14.document.all.IsMapMove.value = "1"
				If lnfoFrame_14.document.all.BusSearchFalg(0).checked Then '// 지도내 검색 일때
					If lnfoFrame_14.document.all.LayerState.value = 0 Then	'// 버스 리스트 보기 일때 , 상세 보기에서 다시 검색 하지 않습니다.
						Call lnfoFrame_14.fnChkInput(lnfoFrame_14.document.frmBus)  '// 지도내 버스 검색 실행
					End If
				End If
			End If
			
			'// 지도 중심 좌표 cookie에 저장
			document.cookie = fnWriteCookiesPosition ("cMapLocation", (MapPos_sx + MapPos_ex) / 2 , (MapPos_sy + MapPos_ey) / 2, dispScale )


		End If

		If curLayerNo = 32  Then '// 테마검색 일때
			Call DrawThemeIcon(0) '페이지 호출
		End If
		
		If curLayerNo = 14  Then '버스 검색.. 일 경우..
			Call DrawBusIcon() '페이지 호출 시점, 종점..
		End If
		
		
		' 디버깅
		'If Not WindCtl.DO_DebugInfo Then
		'	WindCtl.DO_DebugInfo = true
		'End If

		'==================================================================================================
		' 지도에 위치에 이미지 그리기
		'==================================================================================================
		Call DrawImage()
		
		'==================================================================================================
		' 지도에 ICODE 정보 표현..
		'==================================================================================================
		Call DrawICODE()

		'==================================================================================================
		' 지도에서 메일 보내기 아이콘 지도에 세팅 함수 입니다.
		'==================================================================================================
		Call sbWriteSendmapIcon()

		'==================================================================================================
		' 경로탐색 출발지/경유지/목적지 표시
		'==================================================================================================
		Call Pilot_check()

		Call MemberPosition_check()

		Select Case NowMethod
			Case "LongitudeLatitudeLines"
				NowMethod = ""
				Call sbWriteAddressNameToMapWnd()		'// 지도에 주소 표시 테스트
			Case "sbMapWndSendMailClick"
				Call sbMapWndSendMail()
			Case "MemberSendMail"
				Call MakeMapEMail(1)				'// 주소록에서 약도보내기 기능
			Case "AreaRouteSearch" ,  "NameRouteSearch"
				Call lnfoFrame.SelectDisabled(0)    		'// InfoFrame 지도 이동 할때 Select Box Disabled 처리 복구
				NowMethod = ""
			Case "ProRouteSearch"
				NowMethod = ""
				'WindCtl.UserMode = BeforeMapMode
			Case "PrintExtent"					'//경로탐색 프린트
				Call MapPrintExtent()
			Case "ThemeInfo"					'//테마검색
				Call ViewThemInfo()
				NowMethod = ""
			Case "SEARCH_THEME_VIEW"                '통합검색에서.... 지도 이동이후.. 테마 상세보기로 이동
				Call lnfoFrame_11.fnSearch(5)
				NowMethod = ""
		End Select

		If NowLevel > 8  Then
			Call sbMapiconAddOnMap() '랜드 마크
		End If
		
		'지도 초기화 
		'If InfoURL <> "" AND InFoURL <> "about:blank" Then
		'	document.lnfoFrame.location.href = InfoURL 
		'	InfoURL = ""
		'End If 
		
		'좌측 메뉴.. .. 
		'지도 초기화 
		If InfoURL <> "" AND InFoURL <> "about:blank" Then
			Call initLayer()
			InfoURL = ""
		End If 
		
		
		
		
		'이전 이후 버튼 처리
		Call PreviousNextExtentBtnCheck()
		
		' 지도를 그리 이후 다시 인덱스 맵 그린다.
		' 따라서 오류 발생
		'If WindCtl.DO_IndexMap = 1 Then
			'WindCtl.DO_IndexMap = 0
		'Else
			'WindCtl.DO_IndexMap = 1
		'End If
		WindCtl.focus

	End Sub

	Sub User_AfterDraw()
		Call sbWriteAddressNameToMapWnd()
		If NowLevel > 8  Then
			Call sbMapiconAddOnMap() '랜드 마크
		End If
	End Sub

	'이전 이후 버튼 처리
	Sub PreviousNextExtentBtnCheck
		If WindCtl.DoesPreviousExtentExist Then
			DoesPrevious = true
			document.all.mapbtn04.style.cursor="hand"
		Else
			DoesPrevious = false
			document.all.mapbtn04.style.cursor=""
			document.all.mapbtn04.src="/_image/mapbtn04_off.jpg"
		End If
		If WindCtl.DoesNextExtentExist Then
			DoesNext = true
			document.all.mapbtn05.style.cursor="hand"
		Else
			DoesNext = false
			document.all.mapbtn05.style.cursor=""
			document.all.mapbtn05.src="/_image/mapbtn05_off.jpg"
		End If
	End Sub


	'화면 좌표 2개,지도 좌표 2개, 선택된 obj ID,선택된 obj Value
	Sub WindCtl_LButtonDown(sx, sy, mx, my, id_code, id_value)

		If WindCtl.UserMode = WM_NULL Then 'NULL모드
			Select Case NowMethod
				Case "sbMapWndSendMail"
					'약도보내기
					Call SetMapMail(mx, my)
				Case "ProRouteSearchpilot1"
					WindCtl.UserMode = BeforeMapMode
					Call Pilot_point_check(mx, my,"pilot1")    		'// InfoFrame 지도 이동 할때 Select Box Disabled 처리 복구
					lnfoFrame_23.Pilot_POINT(0) = mx
					lnfoFrame_23.Pilot_POINT(1) = my
				Case "ProRouteSearchpilot2"
					WindCtl.UserMode = BeforeMapMode
					Call Pilot_point_check(mx, my,"pilot2")    		'// InfoFrame 지도 이동 할때 Select Box Disabled 처리 복구
					lnfoFrame_23.Pilot_POINT(2) = mx
					lnfoFrame_23.Pilot_POINT(3) = my
				Case "ProRouteSearchpilot3"
					WindCtl.UserMode = BeforeMapMode
					Call Pilot_point_check(mx, my,"pilot3")    		'// InfoFrame 지도 이동 할때 Select Box Disabled 처리 복구
					lnfoFrame_23.Pilot_POINT(4) = mx
					lnfoFrame_23.Pilot_POINT(5) = my
				Case "ProRouteSearchpilot4"
					WindCtl.UserMode = BeforeMapMode
					Call Pilot_point_check(mx, my,"pilot4")    		'// InfoFrame 지도 이동 할때 Select Box Disabled 처리 복구
					lnfoFrame_23.Pilot_POINT(6) = mx
					lnfoFrame_23.Pilot_POINT(7) = my
				Case "M_GetICODE"
					WindCtl.UserMode = BeforeMapMode
					Call GetICODEINFO(mx, my)
			End Select
		End If


		'alert "(" & cstr(sx) & " " & cstr(sy) & ") (" & cstr(mx) & " " & cstr(my) & ") (" & cstr(id_code) & " " & cstr(id_value) & ") <br>"
	End Sub
	
	
	Sub WindCtl_RButtonDown(sx, sy, mx, my, id_code, id_value)
		Dim lnfoFrameURL, temint 
		If curLayerNo = 32 Then ' 테마 검색 일때
			Call sbShowErrorDetail(mx, my, 0)
		End If
	End Sub
	
	'오른쪽 마우스 이벤트 발생시 주변에 상세 정보를 가지고 온다....
	Sub sbShowErrorDetail(mx, my, flag)
		Dim tmpSeq
		tmpSeq = fnGetSeqNumFromMap(mx, my)
		If tmpSeq <> 0 Then
			Call lnfoFrame_32.ifrmDetail.fnView(tmpSeq)
		End If
	End Sub
	
	Function fnGetSeqNumFromMap(mx, my)
		Dim ArrayPositionX,ArrayPositionY,ArrayIDX
		Dim distTmp, distMin, seqTMp,ArrayCnt,dist
		
		dist = WindCtl.DisplayScale * 20  
		
		distTmp	= 0
		distMin	= 0
		seqTmp	= 0
		
		
		ArrayPositionX = document.frmTheme.hidArrayPositionX.value
		ArrayPositionY = document.frmTheme.hidArrayPositionY.value
		ArrayIDX = document.frmTheme.hidArrayIDX.value
		
		
		If ArrayPositionX <> "" and ArrayPositionY <> "" Then
	
			ArrayPositionX = split(ArrayPositionX,"*")
			ArrayPositionY = split(ArrayPositionY,"*")
			ArrayIDX =  split(ArrayIDX,"*")
			
			ArrayCnt = UBound(ArrayPositionX) -1
			
			For	i = 0 to ArrayCnt
				ox	= ArrayPositionX(i)
				oy	= ArrayPositionY(i)
				
				distTmp = sqr (((mx - ox) * (mx - ox)) + ((my - oy) * (my - oy)))
				If (distMin = 0 ) OR ( distMin > distTmp ) Then
					distMin = distTmp
					seqTmp	= ArrayIDX(i)
				End If
			Next
			
			If distMin > dist Then
				seqTmp = 0
			End If
		End	If
		
		fnGetSeqNumFromMap = seqTmp
	End Function
	
	'Wind userMode 변경 할때 이벤트 발생
	Sub WindCtl_UserModeChanged(userMode)
		'단축키 이벤트 발생때 버튼 이미지 변경
		Select Case userMode
			Case WM_PAN
				Call Btninit() '버튼 초기화
				document.all.mapbtn03.src = "/_Image/mapbtn03_on.jpg"
			Case WM_ZOOM
				Call Btninit() '버튼 초기화
				document.all.mapbtn01.src = "/_Image/mapbtn01_on.jpg"
				document.all.mapbtn02.src = "/_Image/mapbtn02_on.jpg"

		End Select
	End Sub

	Sub WindCtl_WindError(errString)
		Call PrintWindError (errString)
	End Sub


	Sub setMapMode(ModeValue)
		On Error Resume Next

		'이전 지도 모드 저장
		If ModeValue <> WM_NULL Then
			BeforeMapMode = WindCtl.UserMode
		End If
		WindCtl.UserMode = ModeValue


		If err.number <> 0 Then
			PrintWindError err.description
			Exit Sub
		Else
			' 거리계산 초기화
			If ModeValue = WM_MEASURE_DISTANCE Then
				WindCtl.MeasureDistClearAllPoints
			End If

			If ModeValue <> WM_NULL Then
				Call Btninit() '버튼 초기화
			End If

			Select Case ModeValue
				Case WM_ZOOM_OUT
					document.all.mapbtn01.src = "/_Image/mapbtn01_on.jpg"
				Case WM_ZOOM_IN
					document.all.mapbtn02.src = "/_Image/mapbtn02_on.jpg"
				Case WM_PAN
					document.all.mapbtn03.src = "/_Image/mapbtn03_on.jpg"
				Case WM_MEASURE_DISTANCE
					document.all.mapbtn07.src = "/_Image/mapbtn07_on.jpg"
				Case default
					alert("default")
			End Select
		End If
		WindCtl.focus
	End Sub


	Sub Btninit()
		document.all.mapbtn01.src = "/_Image/mapbtn01_off.jpg"
		document.all.mapbtn02.src = "/_Image/mapbtn02_off.jpg"
		document.all.mapbtn03.src = "/_Image/mapbtn03_off.jpg"
		document.all.mapbtn07.src = "/_Image/mapbtn07_off.jpg"
	End Sub

	'==================================================================================================
	' 지도 이동 함수
	' X : 지도 좌표 X
	' Y : 지도 좌표 Y
	' Level : Level값
	'==================================================================================================
	Sub MapMoveToAuto(X,Y,Level)
		Dim DisplayScale

		X=CLng(X)
		Y=CLng(Y)
		Level=CInt(Level)

		If Level > 0 Then
			DisplayScale = CDbl(MapLevelScale(Level - 1))

			WindCtl.SetCenterAndDispScale X, Y, DisplayScale
		Else
			WindCtl.SetCenterAndDispScale X, Y, WindCtl.DisplayScale
		End If

	End Sub


	'==================================================================================================
	' 지도 메일보내기
	'==================================================================================================
	Sub MakeMapEMail(flag)
		Dim MapMailWin, dTop, dLeft
		Dim ResultWin
		
		If document.mapInfo.MemberCode.value <> "" Then
			dLeft = (screen.availWidth / 2) - (180 /2)
			dTop = (screen.availHeight / 2) - (240 / 2)
	
			If flag Then
				document.all.MapText.value = ""
				document.all.SendMapIcon.value = ""
				document.all.mapInfo.StandardFlag.value = ""
			End If
	
			'Call fnWindowOpen("/_Menu/SendMap/LocationConfirm.asp", "ResultWin", "no", "no", 180, 240,dLeft,dTop)
			Call fnWindowOpen("/_Menu/SendMap/LocationConfirm.asp", "ResultWin", "no", "no", 300, 210,dLeft,dTop)
		Else
			alert("로그인 후 이용 하시길 바랍니다.")
			document.lnfoFrame_99.location.href = "/_Menu/MyPage/MapLogin_P.asp?LinkURL=" 
			Call DisplayLayer(99)
			
		End If

	End Sub
	
	
	'==================================================================================================
	' i-Code확인 
	'==================================================================================================
	
	Sub GetICODEINFO(xPosition, yPosition )
		
		Dim ICODE
		ICODE = GetIcode(xPosition, yPosition )
		document.ICODEInfo.DivICODE.value = ICODE
		document.ICODEInfo.xPosition.value = xPosition
		document.ICODEInfo.yPosition.value = yPosition
		
		
		// 지도에 위치 표시..
		document.mapInfo.ICODE.value = ICODE & "*" & xPosition & "*" & yPosition 
		
		Call DisplayDivICODEForm()

	End Sub
	
	'==================================================================================================
	' i-Code확인 전에 지도에 위치 정보 선택
	'==================================================================================================
	Sub SLAction()
		Dim dTop, dLeft
		
		dLeft = (screen.availWidth / 2) - (180 /2)
		dTop = (screen.availHeight / 2) - (240 / 2)

		document.ICODEInfo.DivICODE.value = ""
		document.ICODEInfo.DivAddr.value  = ""
		Call fnWindowOpen("/_Menu/Map/ComfirmWin.htm", "ResultWin", "no", "no", 300, 205,dLeft,dTop)
	End Sub
	
	Sub sbWriteiCODEADDR
		If NowMethod = "M_GetICODE" Then
			document.ICODEInfo.DivAddr.value = document.frmAddress.MapAddress.value
		End If
		NowMethod = ""
	End Sub
	
	'//지도 메일 보내기에서 클릭한 위치에 아이콘 설정 및 지도 이동
	Sub SetMapMail(xPosition, yPosition)
		document.mapInfo.SendxPosition.value = xPosition
		document.mapInfo.SendyPosition.value = yPosition

		'마우스 왼쪽 클릭 좌표로 이동
		Call WindCtl.SetCenterAndDispScale (clng(xPosition),clng(yPosition), WindCtl.DisplayScale)
		'AfterDraw 이후 함수 Call sbMapWndSendMail()
		NowMethod = "sbMapWndSendMailClick"
	End Sub

	'----------------------------------------------------------------------------
	' 지도에서 메일 보내기 아이콘 지도에 세팅 함수 입니다.
	'----------------------------------------------------------------------------
	Sub sbWriteSendmapIcon()
		On Error Resume Next
		Dim i, loopNu, symbol,IcoType
		Dim PositionX,PositionY,IconURL,StandardFlag
		Dim MapText,temvalue

		symbol = document.all.SendMapIcon.value
		PositionX = document.all.SendxPosition.value
		PositionY = document.all.SendyPosition.value
		MapText = document.all.MapText.value
		StandardFlag = document.all.StandardFlag.value

		If symbol <> ""	Then

			'// 여러개의 아이콘 그리기....
			'symbol = split(symbol, "*")
                        '
			'loopNu = ubound(symbol, 1) -2
                        '
			'For i = 0 to loopNu step 4
			'	MapText   = symbol(i)
			'	PositionX = symbol(i + 1) - 0
			'	PositionY = symbol(i + 2) - 0
			'	IcoType   = symbol(i + 3)
			'	If (PositionX <> 0) and (PositionY <> 0) Then
			'		'MapWnd.DrawPicture x, y, CStr(ImgSvrURL & "SendMap/ico/" & IcoType & ".ico")
                        '
			'		'M,S : 지도좌표, 스크린 좌표
			'		': 이미지 경로
			'		'CC : 세로 => Upper, Center, Lower  가로 = > Left, Center, Right 9가지 경우로 중심점
			'		'좌표X
			'		'좌표 Y
			'		IconURL = Cstr(ImgSvrURL & "SendMap/ico/" & IcoType & ".ico")
			'		WindCtl.RL_DrawImage "M", IconURL, "LL",CLng(PositionX),CLng(PositionY)
			'		'"S" : 스크린 좌표 M : 지도 좌표
			'		' UL,LL,LR,UR : 기준 모서리 (UpperLeft,LowerLeft,LowerRight,UpperRight)
			'		'"180000FF"	: 배경색
			'		'"600000FF"	: 테두리 색
			'		If MapText <> "" then
			'			Call WindCtl.RL_DrawStringWithBoundingRect _
			'							("M", _
			'							cstr(MapText), _
			'							"UC", _
			'							CLng(PositionX)+(5 * WindCtl.DisplayScale),_
			'							CLng(PositionY)-(5 * WindCtl.DisplayScale), _
			'							2 , _
			'							"180000FF", _
			'							"600000FF")
			'		End If
			'	End If
			'Next
			If StandardFlag = "LL" or  StandardFlag = "LR" or StandardFlag = "LC"Then
				temvalue = 5
			Else
				temvalue = 13
			End If

			If (PositionX <> "") and (PositionY <> "") Then
				
				'M,S : 지도좌표, 스크린 좌표
				': 이미지 경로
				'CC : 세로 => Upper, Center, Lower  가로 = > Left, Center, Right 9가지 경우로 중심점
				'좌표X
				'좌표 Y
				IconURL = Cstr(IconSvrURL & "SendMap/ico/" & symbol & ".ico")
				WindCtl.RL_DrawImage "M", IconURL, StandardFlag,CLng(PositionX),CLng(PositionY)
				'"S" : 스크린 좌표 M : 지도 좌표
				' UL,LL,LR,UR : 기준 모서리 (UpperLeft,LowerLeft,LowerRight,UpperRight)
				'"180000FF" '180000FF	: 배경색
				'"600000FF"	: 테두리 색
				If MapText <> "" then
					Call WindCtl.RL_DrawStringWithBoundingRect _
									("M", _
									cstr(MapText), _
									"UC", _
									CLng(PositionX),_
									CLng(PositionY)-(temvalue * WindCtl.DisplayScale), _
									2 , _
									"180000FF", _
									"600000FF")
				End If
			End If
		End If
		If err.number <> 0 Then
			PrintWindError err.description
			Exit Sub
		End if
	End Sub


	'  FTP로 지도 전송..
	Sub sbMapWndSendMail()
		' 현재 함수 초기화
		NowMethod = ""

		Const wWidth = 590
		Const wHeight = 610

		Dim FTPServer,CallURL
		Dim fileName, wTop, wLeft, MailWin


		'--------------------------------
		' 이미지 전송 함수
		' width : 이미지 width
		' height : 이미지 height
		' FTPServer : FTPServer URL
		' Port
		' FTP 계정 플래그
		' fileName : Return 변수 파일 명을 Return 받은다.
		'--------------------------------
		Call WindCtl.SendImage (578, 356, FTP_SERVER, 21, 3, fileName)

		WindCtl.UserMode = BeforeMapMode


		If err.number = 0 Then
			wTop = 0
			wLeft = 0
			CallURL = "/_Menu/SendMap/SetSendMail.asp?filename=" & fileName
			'CallURL = "/_Menu/Map/MapimgCapture.asp?JobFlag=SendMap"
			Set MailWin = fnWindowOpen(CallURL, "MailWin", "no", "no", wWidth, wHeight, wLeft, wTop)
		Else
			PrintWindError err.description
			Exit Sub
		End If

	End Sub



	'// Level Bar Setting
	Sub sbSetLevelBar()
		Dim i, li
		For i = 1 To 12
			i_name = "lev" & i

			If CInt( NowLevel ) =  Cint( i ) Then
				document.all(i_name).src = "/_Image/level_Act.gif"
			elseIf CInt( NowLevel ) >  Cint( i ) Then
				document.all(i_name).src = "/_Image/Level_in.jpg"
			Else
				document.all(i_name).src = "/_Image/Level_out.jpg"
			End If
		Next
	End Sub

	' Level 변경 함수
	Sub sbChangeMapLevel(MapLevel)
		On Error Resume Next
		If err.number <> 0 Then
			PrintWindError err.description
			Exit Sub
		End If
		WindCtl.Level = MapLevel
	End Sub

	Sub sbLevelUp()
		On Error Resume Next
		If err.number <> 0 Then
			PrintWindError err.description
			Exit Sub
		End If
		If NowLevel < 12 Then
			WindCtl.Level = NowLevel + 1
		End If
	End Sub

	Sub sbLevelDown()
		On Error Resume Next
		If err.number <> 0 Then
			PrintWindError err.description
			Exit Sub
		End If
		If NowLevel > 1 Then
			WindCtl.Level = NowLevel - 1
		End If
	End Sub

	'지도의 주소 정보 가지고 오기
	Sub GetAddressCodeFromMap(sx, sy, ex, ey)
		
		On Error Resume Next
		
		' 주소 String  및 코드 패치 <<<<<<<<<<<<<<<<<<<<<
		Dim DongName, MidDongName, AddressName , AddressCode
		DongName = WindCtl.ADDR_DONG
		
		'AddressCode =  WindCtl.ADDR_do_code & "#" & WindCtl.ADDR_dong_code
		AddressCode =  WindCtl.ADDR_do_code
		
		'특별/광역/도 추출
		MidDongName = Trim(Right(Cstr(DongName), Len(Cstr(DongName)) - 2))
		
		
		If NowLevel > 3 AND  NowLevel <= 4 Then
			AddressName = fnSelectName(Cstr(Left(DongName, 2)))
		ElseIf NowLevel >= 5 and NowLevel <= 7 Then
			AddressName = fnSelectName(Cstr(Left(DongName, 2))) & " "
			AddressName = AddressName & Left(MidDongName, Instr(MidDongName, " ") - 1)
		ElseIf NowLevel > 7 Then
			AddressName = fnSelectName(Cstr(Left(DongName, 2))) & " "
			AddressName = AddressName & MidDongName
		Else
			AddressName = ""
			AddressCode = ""
		End If    
		
		document.frmAddress.MapAddress.value =  AddressName
		document.ICODEInfo.DivAddr.value = AddressName
		' 주소 String 및 코드 패치 끝>>>>>>>>>>>>>>>>>>>>>>>>>
		
		
		'초기화
		document.frmWeather.WeatherImgURL.value = ""
		document.frmWeather.WeatherStr.value = ""

		document.frmAddress.sXpos.value = sx
		document.frmAddress.eXpos.value = ex
		document.frmAddress.sYpos.value = sy
		document.frmAddress.eYpos.value = ey
		document.frmAddress.AddressCode.value = AddressCode
		document.frmAddress.cLevel.value = NowLevel
		Call document.frmAddress.submit()
	End Sub
	
	'==================================================================================================
	'주소 정보 분해
	'==================================================================================================
	Function SplitAddr(strAddr)
		Dim MidDongName,AddressName
		MidDongName = Trim(Right(Cstr(strAddr), Len(Cstr(strAddr)) - 2))
		
		AddressName = fnSelectName(Cstr(Left(strAddr, 2))) & " "
		AddressName = AddressName & MidDongName
		SplitAddr = AddressName
	End Function
	
	Function fnSelectName(FullName)
		Dim MakeFullName

		Select Case FullName
			Case "경기"
				MakeFullName = "경기도"
			Case "충북"
				MakeFullName = "충청북도"
			Case "충남"
				MakeFullName = "충청남도"
			Case "강원"
				MakeFullName = "강원도"
			Case "전북"
				MakeFullName = "전라북도"
			Case "전남"
				MakeFullName = "전라남도"
			Case "경북"
				MakeFullName = "경상북도"
			Case "경남"
				MakeFullName = "경상남도"
			Case "제주"
				MakeFullName = "제주도"
			Case "서울"
				MakeFullName = "서울특별시"
			Case "인천"
				MakeFullName = "인천광역시"
			Case "대전"
				MakeFullName = "대전광역시"
			Case "대구"
				MakeFullName = "대구광역시"
			Case "부산"
				MakeFullName = "부산광역시"
			Case "광주"
				MakeFullName = "광주광역시"
			Case "울산"
				MakeFullName = "울산광역시"
			Case Else
				MakeFullName = "기타"
		End Select

		fnSelectName = MakeFullName
	End Function

	'==================================================================================================
	' 지도에 위치에 이미지 그리기
	'==================================================================================================
	Sub DrawImage
		On Error Resume Next
		Dim ArrPosition,PositionTXT, PositionX, PositionY
		Dim IconURL

		ArrPosition = document.mapInfo.ArrPosition.value
		PositionTXT = document.mapInfo.PositionTXT.value
		ArrPosition = Trim(ArrPosition)


		If ArrPosition <> ""	Then
			ArrPosition = split(ArrPosition , "*" )

			If ubound(ArrPosition) >= 1 Then
				PositionX = CLng(ArrPosition(0))
				PositionY = CLng(ArrPosition(1))
			End If

			'IconURL = Cstr(IconSvrURL & "mapico/nowplase2.png")
			IconURL = Cstr(IconSvrURL & "mapico/Point_cursor.gif")
			
			'M,S : 지도좌표, 스크린 좌표
			': 이미지 경로
			'CC : 세로 => Upper, Center, Lower  가로 = > Left, Center, Right 9가지 경우로 중심점
			'좌표X
			'좌표 Y
			'Call WindCtl.RL_DrawImage ("M", IconURL, "CC", PositionX, PositionY)
			Call WindCtl.RL_DrawImage ("M", IconURL, "LL", PositionX, PositionY)
			
			If PositionTXT <> "" Then
				WindCtl.RL_SetBrush "FF010101"
				WindCtl.RL_SetFont "굴림", 9, 1
		
				Call WindCtl.RL_DrawStringWithBoundingRect ("M", PositionTXT,   "UC", PositionX, PositionY  , 1, "FFFFEC02", "FF6B6501")
				'Call WindCtl.RL_DrawStringWithBoundingRect ("M", PositionTXT,   "UC", PositionX, PositionY  - (WindCtl.DisplayScale * 12), 1, "CCD4E6FB", "FFBED9FB")
			End If
		End If
		
		
	End Sub
	
	
	
	'==================================================================================================
	' 지도에 ICODE 정보 표현
	'==================================================================================================
	Sub DrawICODE
		On Error Resume Next
		Dim ICODEInfo,IconURL
		ICODEInfo = document.mapInfo.ICODE.value
		ICODEInfo = Trim(ICODEInfo)
		
		If ICODEInfo <> "" Then
			ICODEInfo = split(ICODEInfo ,"*")
			Dim PositionX,PositionY,ICODE
			
			If UBound(ICODEInfo ) >= 2 Then
				ICODE = "ICODE:" & ICODEInfo(0)
				PositionX = CLng(ICODEInfo(1))
				PositionY = CLng(ICODEInfo(2))
				
				IconURL = Cstr(IconSvrURL & "mapico/icode.png")
				Call WindCtl.RL_DrawImage ("M", IconURL, "LC", PositionX, PositionY)
				WindCtl.RL_SetBrush "FF010101"
				WindCtl.RL_SetFont "굴림", 9, 1
				'Call WindCtl.RL_DrawStringWithBoundingRect ("M", Trim(ICODE),   "UC", PositionX, PositionY - (WindCtl.DisplayScale * 12), 1, "CCD4E6FB", "FFBED9FB")
				Call WindCtl.RL_DrawStringWithBoundingRect ("M", Trim(ICODE),   "UC", PositionX, PositionY , 1, "FFFFEC02", "FF6B6501")
			End If
		End If
		
	End Sub
	
	'==================================================================================================
	' 버스 시점 , 종점보 표현
	'==================================================================================================
	Sub DrawBusIcon
		
		'On Error Resume Next
		Dim BusInfo,IconURL
		BusInfo = document.frmBus.StartLastPos.value
		BusInfo = Trim(BusInfo)
		If BusInfo <> "" Then
			BusInfo = split(BusInfo ,"*")
			Dim StartXPoint, StartYpoint, LastXPoint, LastYPoint
			
			If UBound(BusInfo ) >= 3 Then
				StartXPoint = CLng(BusInfo(0))
				StartYpoint = CLng(BusInfo(1))
				LastXPoint = CLng(BusInfo(2))
				LastYPoint = CLng(BusInfo(3))
				
				IconURL = Cstr(IconSvrURL & "mapico/start.gif")
				Call WindCtl.RL_DrawImage ("M", IconURL, "LC", StartXPoint, StartYpoint)
				
				IconURL = Cstr(IconSvrURL & "mapico/last.gif")
				Call WindCtl.RL_DrawImage ("M", IconURL, "UC", LastXPoint , LastYPoint)
				
			End If
		End If
		
	End Sub
	
	'==================================================================================================
	' 테마 아이콘 그리기
	'==================================================================================================
	Sub DrawThemeIcon(ReDrawFlag)
		Dim ArrayPositionX,ArrayPositionY,ArrayPath,ArrayIDX
		Dim ArrayCnt
		Dim TempImage	
		
		
		ArrayPositionX = document.frmTheme.hidArrayPositionX.value 
		ArrayPositionY = document.frmTheme.hidArrayPositionY.value
		ArrayIDX = document.frmTheme.hidArrayIDX.value
		
		If ReDrawFlag = 1 Then
			'지도 위에 이미지 지우기
			Call parent.parent.WindCtl.ErrorLineClearAllPoints()
		End If
		
		if ArrayPositionX <> "" then
			ArrayPositionX = split(ArrayPositionX,"*")
			ArrayPositionY = split(ArrayPositionY,"*")
			ArrayPath = split(ArrayPath,"*")
			
			ArrayCnt = UBound(ArrayPositionX) -1
			
			Dim intArrayPositionX(),intArrayPositionY(),tempArrayPath()
			
			ReDim intArrayPositionX(ArrayCnt),intArrayPositionY(ArrayCnt),tempArrayPath(ArrayCnt)
			
			if parent.parent.NowLevel > 8 then
				TempImage = IconSvrURL & "mapico/Bico/ThemeIcon.png"
			else
				TempImage = IconSvrURL & "mapico/Sico/ThemeIcon.png"
			end if
			
			for i=0 to ArrayCnt
				intArrayPositionX(i) = CLng(ArrayPositionX(i))
				intArrayPositionY(i) = CLng(ArrayPositionY(i))
				tempArrayPath(i) = TempImage
				
			Next
			
			Call WindCtl.RL_DrawImages ("M", tempArrayPath, "CC", intArrayPositionX, intArrayPositionY)
			
			If ReDrawFlag = 1 Then
				'지도 위에 이미지 지우기
				Call User_AfterDraw()
				Call WindCtl.CopyMemDCtoScreenDC()	
			End If
			
		End If
	End Sub
	
	

	'지도에 주소 표시 테스트
	Sub sbWriteAddressNameToMapWnd()
		On Error Resume Next
		Dim sx, sy, ex, ey
		Dim ctlWidth, ctlHeight
		Dim MapAddress,WeatherImgURL,WeatherStr


		MapAddress = Trim(document.frmAddress.MapAddress.value)
		WeatherImgURL = Trim(document.frmWeather.WeatherImgURL.value)
		WeatherStr = Trim(document.frmWeather.WeatherStr.value)
		'// 지도 컨트롤의 크기 가지고 온다.
		Call WindCtl.GetControlSize (ctlWidth, ctlHeight)

		If MapAddress <> "" Then
			Call WindCtl.RL_SetBrush ("FF000000")

			'"S" : 스크린 좌표 M : 지도 좌표
			' MapAddress : 테스트
			' UL,LL,LR,UR : 기준 모서리 (UpperLeft,LowerLeft,LowerRight,UpperRight)
			' 3		: 기준으로 부터 3px
			'ctlHeight - 35 : 기준으로 부터 위치 높이
			'1		: Table Margin
			'"180000FF"	: 배경색
			'"600000FF"	: 테두리 색
			'Call WindCtl.RL_DrawStringWithBoundingRect ("S", Trim(MapAddress),   "LR", ctlWidth - 14, ctlHeight - 10, 1, "180000FF", "600000FF")

			WindCtl.RL_SetFont "굴림", 9, 0
			Call WindCtl.RL_DrawStringWithBoundingRect ("S", Trim(MapAddress),   "CR", ctlWidth - 45, ctlHeight - 20, 1, "CCD4E6FB", "FFBED9FB")

		End If

		If WeatherImgURL <> "" Then

			'M,S : 지도좌표, 스크린 좌표
			': 이미지 경로
			'CC : 세로 => Upper, Center, Lower  가로 = > Left, Center, Right 9가지 경우로 중심점
			'좌표X
			'좌표 Y'"600000FF"	: 테두리 색
			Call WindCtl.RL_DrawImage ("S", WeatherImgURL, "CC", ctlWidth - 32,  ctlHeight - 32)
		End If


		If WeatherStr <> "" Then
			WindCtl.RL_SetFont "굴림", 9, 0
			Call WindCtl.RL_SetBrush ("FF000000")

			'"S" : 스크린 좌표 M : 지도 좌표
			' MapAddress : 테스트
			' UL,LL,LR,UR : 기준 모서리 (UpperLeft,LowerLeft,LowerRight,UpperRight)
			' 3		: 기준으로 부터 3px
			'ctlHeight - 35 : 기준으로 부터 위치 높이
			'1		: Table Margin
			'"180000FF"	: 배경색  AARRGGBB : A : 투명도, R, G, B
			'"600000FF"	: 테두리 색
			Call WindCtl.RL_DrawStringWithBoundingRect ("S", Trim(WeatherStr),   "CR", ctlWidth - 45, ctlHeight - 38, 1, "CCD4E6FB", "FFBED9FB")

		End If
		Call WindCtl.CopyMemDCtoScreenDC()
		
		If err.number <> 0 Then
		'	PrintWindError err.description
			err.clear
		End If
	End Sub

	Sub MemberPosition_check
		Dim	i, x, y, s, ico,LocationSearchList,loopNu
		Dim SearchMember,SearchValue

		MemberPosition = document.mapInfo.MemberPosition.value

		If MemberPosition <> "" Then

			SearchMember = split(MemberPosition,"/")
			loopNu=ubound(SearchMember,1) - 1

			For i =	0 to loopNu
				SearchValue = Split(SearchMember(i),",")
				x =	SearchValue(1)
				y =	SearchValue(2)
				s =	SearchValue(0)
				ico	= "Ico/man.ico"
				'alert (x & ";" & y & ";" & s & ";" )
				If (x <> "0" ) and (y <> "0") Then
					'CC : 세로 => Upper, Center, Lower  가로 = > Left, Center, Right 9가지 경우로 중심점
					Call WindCtl.RL_DrawImage ("M", Cstr(IconSvrURL & ico), "CC", x, y)

					' y + 2 * WindCtl.GetDispScale 세로정확
					'가로 WindCtl.GetDispScale * 1.2
					WindCtl.RL_SetBrush "FF00FF00"
					WindCtl.RL_SetFont "굴림", 9, 1

					Call WindCtl.RL_DrawStringWithBoundingRect ("M", cstr(s),   "UC", x, y - 10 * WindCtl.DisplayScale, 2, "180000FF", "600000FF")

					'MapWnd.DrawText	x +	(t*16),	y +(t*16), cstr(s),	RGB(0,156,77),0, "굴림", 10, 1
				End If
			Next
		End If
	End Sub

	'// 경도,위도 보기 입니다.
	Sub LongitudeLatitudeLines()

		WindCtl.DO_LongitudeLatitudeLines = Not(WindCtl.DO_LongitudeLatitudeLines)
		NowMethod = "LongitudeLatitudeLines"
		WindCtl.focus
	End Sub


	'--------------------------------------------------<<<<<<<<<<<<<<<<<<<<<<<<<<<<
	'// 건물 세우기
	'--------------------------------------------------<<<<<<<<<<<<<<<<<<<<<<<<<<<<
	Sub HeightenBuilding()
		On Error Resume Next

		If err.number <> 0 Then
			PrintWindError err.description
			Exit Sub
		End if

		WindCtl.focus
		WindCtl.DO_HeightenBuilding = Not(WindCtl.DO_HeightenBuilding)
	End Sub

	'--------------------------------------------------<<<<<<<<<<<<<<<<<<<<<<<<<<<<
	'//이전 지도 보기 기능 버튼
	'--------------------------------------------------<<<<<<<<<<<<<<<<<<<<<<<<<<<<
	Sub GoToPreviousExtent()
		On Error Resume Next

		if WindCtl.DoesPreviousExtentExist then
			'left_form.btnGoToPreviousExtent.disabled = true
			WindCtl.GoToPreviousExtent
'		else
'			alert "지도 초기화면 입니다. 지도를 이동후 이용하시기 바랍니다."
		end if

		WindCtl.focus

		If err.number <> 0 Then
			PrintWindError err.description
			err.clear
		End If
	End Sub

	'--------------------------------------------------<<<<<<<<<<<<<<<<<<<<<<<<<<<<
	'//이후 지도 보기 기능 버튼
	'--------------------------------------------------<<<<<<<<<<<<<<<<<<<<<<<<<<<<
	Sub GoToNextExtent()
		On Error Resume Next

		if WindCtl.DoesNextExtentExist then
			'left_form.btnGoToNextExtent.disabled = true
			WindCtl.GoToNextExtent
		end If

		WindCtl.focus

		if err.number <> 0 then
			PrintWindError err.description
			err.clear
		end if
	End Sub

	'--------------------------------------------------<<<<<<<<<<<<<<<<<<<<<<<<<<<<
	' 지도 프린트
	'--------------------------------------------------<<<<<<<<<<<<<<<<<<<<<<<<<<<<
	Sub MapPrint()
		On Error Resume Next

		const wWidth = 700
		const wHeight = 510

		Dim fileName
		Dim Openurl, wLeft, wTop


		If err.source = "" Then
			wTop = 0
			wLeft = window.screen.availWidth - wWidth - 10
			OpenURL = "/_Menu/Map/MapimgCapture.asp"
			
			
			
			'서비스 점검 
			'If DateDiff("d",date,"2010-04-30") <= 0 then				
			'	alert("죄송합니다. 서비스 점검중입니다.")				
			'else
		'		Call fnWindowOpen(Openurl, "ResultWin", 1, 0, wWidth, wHeight, wLeft, wTop)
		'	end if 
			
			Call fnWindowOpen(Openurl, "ResultWin", 1, 0, wWidth, wHeight, wLeft, wTop)


		else
			PrintWindError err.description
			err.clear
		end if

	End Sub

	'--------------------------------------------------<<<<<<<<<<<<<<<<<<<<<<<<<<<<
	'지도 범례보기
	'--------------------------------------------------<<<<<<<<<<<<<<<<<<<<<<<<<<<<
	Sub IntroView()
		Dim dLeft, dTop
		dLeft = (screen.availWidth / 2) - (180 /2)
		dTop = (screen.availHeight / 2) - (240 / 2)
		Call fnWindowOpen("/_Lib/Popup/Legend.asp", "ResultWin", "yes", "no", 480, 350, wLeft, wTop)
	End Sub

	'--------------------------------------------------<<<<<<<<<<<<<<<<<<<<<<<<<<<<
	'래드 마크
	'--------------------------------------------------<<<<<<<<<<<<<<<<<<<<<<<<<<<<
	Sub sbMapiconAddOnMap()
		'dim Correction, C1, C2, C3
	        '
		'Correction = (MapWnd.Extent.right - MapWnd.Extent.left) / MapWnd.offsetwidth
	        '
		'C1 = Correction * 48
		'C2 = Correction * 38
		'C3 = Correction * 16
	        '
		'' 구지도 좌표(변경요망)
		'sbDrawMapiconAddOnMap  158153, 536814, "Namdaemun" '  "남대문" 158193,536863
		'sbDrawMapiconAddOnMap  158193, 536863, "Namdaemun" '  "남대문" 158193,536863
		'sbDrawMapiconAddOnMap  160934, 538203, "Dongdaemun" '  "동대문"
		'sbDrawMapiconAddOnMap  156925, 538378, "Dongnimmun" '  "독립문" 156925,538378
		'sbDrawMapiconAddOnMap  322769, 241749, "Yongdusan" '  "용두산 공원"
		'sbDrawMapiconAddOnMap  191100, 394838, "hanbittower" ' "한빛탑"
		'sbDrawMapiconAddOnMap  286815, 612581, "Ekseupo" ' "엑스포타워"
		'sbDrawMapiconAddOnMap  178485, 443242, "Dongnip" '  "독립기념관"
		'sbDrawMapiconAddOnMap  159165, 535935, "Seoultawo" '  "서울타워"
		'sbDrawMapiconAddOnMap  155646, 44729,  "SeongSan" '  "성산일출봉"
		'sbDrawMapiconAddOnMap  125012,  38075, "Halla" '  "한라산"

		'sbDrawMapiconAddOnMap   154506, 533028, "lgbilding" ' "LGtwins.ico"
		'sbDrawMapiconAddOnMap  163059, 504014, "Jugyeonggijang" '  "수원월드컵 주경기장"
		'sbDrawMapiconAddOnMap  150233, 245668, "Jugyeonggijang" '  "광주월드컵 주경기장"
		'sbDrawMapiconAddOnMap  151965, 537911, "Jugyeonggijang2" '  "상암월드컵 주경기장"
		'sbDrawMapiconAddOnMap  186033,  393448, "Jugyeonggijang" '  "대전월드컵 주경기장"
		'sbDrawMapiconAddOnMap  135451, 522153, "Jugyeonggijang" '  "인천문학월드컵 주경기장"
		'sbDrawMapiconAddOnMap  120892, 19409, "Jugyeonggijang" '  "제주월드컵 주경기장"
		'sbDrawMapiconAddOnMap  165262, 333669, "Jugyeonggijang" '  "전주월드컵 주경기장"
		'sbDrawMapiconAddOnMap  324967, 252453, "Jugyeonggijang" '  "부산월드컵 주경기장"
		'sbDrawMapiconAddOnMap  340929, 293764, "Jugyeonggijang" '  "울산월드컵 주경기장"
		'sbDrawMapiconAddOnMap  295246,  329186, "Jugyeonggijang" '  "대구월드컵 주경기장"
		'sbDrawMapiconAddOnMap  158440, 537625, "Sicheong" '  "시청"
		'sbDrawMapiconAddOnMap  157842, 536290, "seouryeok" '  "서울역"
		'sbDrawMapiconAddOnMap  165039, 530903, "Muyeok" '  "무역센터"
		'sbDrawMapiconAddOnMap  160644, 528763, "Beobwon" '  "대법원"
		'sbDrawMapiconAddOnMap  153323, 533464, "Gukhoe" '  "국회의사당"
		'sbDrawMapiconAddOnMap  155385, 532046, "63bilding" '  "63빌딩"
		'sbDrawMapiconAddOnMap  169366, 531869, "Doorofpeace" '  "평화의 문"

	End Sub

	'----------------------------------------------------------------------------
	' 지도에서 19개 추가 아이콘 표시 2군데 좌표 못찿았음
	'----------------------------------------------------------------------------
	Sub sbDrawMapiconAddOnMap( ix, iy, FileNmae)

		If (MapPos_sx < ix) and (MapPos_sy < iy) and (MapPos_ex > ix) and (MapPos_ey > iy) Then
			'Call WindCtl.RL_DrawImage ("M", IconURL, "CC", PositionX, PositionY)
			'CC : 세로 => Upper, Center, Lower  가로 = > Left, Center, Right 9가지 경우로 중심점
			Call WindCtl.RL_DrawImage ("M",CStr(IconSvrURL & "landmark/" & FileNmae & ".png"),"LC",ix,iy)


		End If

	End Sub


	Function fnWindowOpen(URL, wName, Scrollbars, Resizable, wWidth, wHeight, wLeft, wTop)
		Dim options
		fnWindowOpen = false

		options = "menubar=no,toolbar=no,location=no,directories=no,status=no"
		options = options & ",scrollbars=" & Scrollbars
		options = options & ",resizable=" & Resizable
		options = options & ",width=" & wWidth & "px"
		options = options & ",height=" & wHeight & "px"

		If wLeft <> "" or wTop <> "" Then
			options = options & ",left=" & wLeft
			options = options & ",top=" & wTop
		End If

		Set fnWindowOpen =window.open(URL, wName, options)

		fnWindowOpen.focus

		If err.Source <> "" Then
			Exit Function
		End If
	End Function

	Sub OnClick_DO_AntiAliasing(obj)
		On Error Resume Next
		If obj.checked Then
			WindCtl.DO_AntiAliasing = true
			obj.checked = true
		Else
			WindCtl.DO_AntiAliasing = false
			obj.checked = false
		End If
		'alert("22==" & WindCtl.DO_AntiAliasing)

		if err.number <> 0 then
			PrintWindError err.description
			err.clear
		end if
	End Sub

	'지도에 프린트 할 영역를 표시 한다.
	Sub MapPrintExtent()
		For i = 0 to UBound(PrintExtentArray,1)
			Call MapExtentDraw(PrintExtentArray(i,0),PrintExtentArray(i,1),PrintDispScale,i+1)
		Next
		NowMethod = ""
	End Sub

	Sub MapExtentDraw(CenterPointX, CenterPointY , PrintDispScale,ByvalCnt)

		If PrintDispScale = 0  or CenterPointX = 0 or CenterPointY = 0  Then
			Exit Sub
		End If

		Dim minExtentX,minExtentY

		minExtentX = CenterPointX - (180 * PrintDispScale)
		minExtentY = CenterPointY - (180 * PrintDispScale)
		
		'Extent범위 상자 그리기
		Call WindCtl.RL_SetPen ("FFFF1E8B", 4)
		Call WindCtl.RL_DrawRectangle ("M",  CLng(minExtentX), CLng(minExtentY), 360 * PrintDispScale  , 360* PrintDispScale)
		
		'Extent 범위 숫자 이미지 그리기
		Call WindCtl.RL_DrawImage( "M", Cstr(IconSvrURL & "image" & ByvalCnt & ".png"), "UL", Clng(minExtentX) + (15* PrintDispScale), Clng(minExtentY) + (345* PrintDispScale) )
		
	End Sub

	Sub RouterMapPrint(isAll,indexPrint)
		Const wWidth = 700
		Const wHeight = 510
		
		'Const wWidth = 710
		'Const wHeight = 523

		Dim fileName
		Dim Openurl, wLeft, wTop

		wTop = 0
		wLeft = window.screen.availWidth - wWidth - 10
		'Openurl =  "/_menu/RouteSearch/RouteMap_PrintCtrl.asp?isAll="& isAll &"&indexPrint=" & indexPrint
		OpenURL = "/_Menu/Map/R_PrintMap.asp?isAll=" & isAll & "&indexPrint=" & indexPrint
		Call fnWindowOpen(Openurl, "MapPrint", "1", "1	", wWidth, wHeight, wLeft, wTop)

	End Sub
	
	'생활정보 자동 검색 관련 
	Dim LifeinfoAutoSearchID
	
	Function FramePathnameCheck(obj)
		On Error Resume	Next
		Dim pathname
		pathname = obj.document.location.pathname
		pathname = split(pathname,"/")
		FramePathnameCheck = pathname(UBound(pathname,1))
		If err.source <>"" Then	FramePathnameCheck = ""
	End Function

	Sub sbLifeinfoAutoSearch(sx, sy, ex, ey)
		'On Error Resume Next
		'자동검색은 시간 지연을 갖을수 있다.
		'현재는 settime 함수를 좀더 체크해야 할것 같다.
		Const timeDelay = 0
	
		If curLayerNo = 31 Then '버스 검색.. 일 경우.. 
			if FramePathnameCheck(lnfoFrame_31.ifrmDetail) = "LifeInfoLV.asp" then
				if lnfoFrame_31.ifrmDetail.document.all.autosearchflag.checked then
					if timeDelay = 0 then
						Call sbLifeinfoMapSearch(sx, sy, ex, ey)
					else
						LifeinfoAutoSearchID = nothing
						LifeinfoAutoSearchID = window.setTimeout("sbLifeinfoMapSearch("&sx&","&sy&","& ex&","& ey&");",Cint(timeDelay))
					end if
				end if
			end if
		end if
	End Sub
	
	Sub sbLifeinfoMapSearch(sx, sy, ex, ey)
		lnfoFrame_31.ifrmDetail.frmLifeInfo.nPage.value = "1"
		lnfoFrame_31.ifrmDetail.frmLifeInfo.extent_sx.value = sx
		lnfoFrame_31.ifrmDetail.frmLifeInfo.extent_sy.value = sy
		lnfoFrame_31.ifrmDetail.frmLifeInfo.extent_ex.value = ex
		lnfoFrame_31.ifrmDetail.frmLifeInfo.extent_ey.value = ey
	
		lnfoFrame_31.ifrmDetail.frmLifeInfo.submit
	End Sub
	'생활정보 자동 검색 관련 끝
	
	'테마 검색 보기....
	Sub ViewThemInfo()
		Dim TempURL,SrchCategory1,SrchCategory2,ViewIDX
		SrchCategory1 = opener.Main.document.frmClub.SrchCategory1.value
		SrchCategory2 = opener.Main.document.frmClub.SrchCategory2.value
		ViewIDX = opener.Main.document.frmClub.IDX.value
		TempURL = "/_Menu/Themesearch/ThemeMapSearch.asp?SrchCategory1=" & SrchCategory1 & "&SrchCategory2=" & SrchCategory2 & "&ViewIDX=" & ViewIDX
		
		document.lnfoFrame.location.href = TempURL
	End Sub
	
	Function GetIcode(ByVal Xpos , ByVal Ypos )
	    Dim Code(4)
	    Dim iCode
	    Dim X , Y , tail_X , tail_Y , head_X , head_Y
	    Dim dblLenX , dblLenY , dblTemp1 , dblTemp2
	    Dim i
	    Dim strTemp
	    iCode = ""
	    i = 0
	'''     자리수별로 짤라서 각 변수에 넣자
	    head_X = Xpos \ 10000
	    head_Y = Ypos \ 10000
	    tail_X = Xpos Mod 10000
	    tail_Y = Ypos Mod 10000
	'''     경위도 값으로 환산
	    dblLenX = (450000 + Int(450 * head_X) + Int(0.045 * tail_X))
	    dblLenY = (119100 + Int(300 * head_Y) + Int(0.03 * tail_Y))
	'''    기준좌표점을 빼줘야지...
	    dblTemp1 = dblLenX - 446400
	    dblTemp2 = dblLenY - 118800
	
	'''    첫번째 값과 두번째 값 구하기
	    If dblTemp1 \ 3600 <= 0 Then
	        Code(0) = "0"
	    Else
	        Code(0) = CStr(dblTemp1 \ 3600)
	    End If
	    If (dblTemp2 \ 2400) <= 0 Then
	        Code(1) = "0"
	    Else
	        Code(1) = CStr(dblTemp2 \ 2400)
	    End If
	
	    dblTemp1 = dblTemp1 - (CLng(Code(0) * 3600))
	    dblTemp2 = dblTemp2 - (CLng(Code(1) * 2400))
	'''    세번째, 네번째 값 구하기
	    If (dblTemp1 \ 450) <= 0 Then
	        Code(2) = "0"
	    Else
	        Code(2) = CStr(dblTemp1 \ 450)
	    End If
	    If (dblTemp2 \ 300) <= 0 Then
	        Code(3) = "0"
	    Else
	        Code(3) = CStr(dblTemp2 \ 300)
	    End If
	
	'''    X,Y 값 만들기
	
	   ' 자리를 3자리로 확인
	    Dim tempStr
	    tempStr = CStr(tail_X \ 10)
	
	    If Len(tempStr) < 3 Then
	    	For i = 1 to (3- Len(tempStr))
			tempStr = "0" & tempStr
		Next
	    ElseIf  Len(tempStr) > 3 Then
	    	tempStr = Left(tempStr,3)
	    End If
	
	    iCode = tempStr & "-"
	
	    ' 자리를 3자리로 확인
	    tempStr = CStr(tail_Y \ 10)
	
	    If Len(tempStr) < 3 Then
	    	For i = 1 to (3- Len(tempStr))
			tempStr = "0" & tempStr
		Next
	    ElseIf  Len(tempStr) > 3 Then
	    	tempStr = Left(tempStr,3)
	    End If
	     iCode = iCode & tempStr & "-"
	
	    Dim TestiCode
	    ' iCode = CStr(tail_X \ 10) & "-" & CStr(tail_Y \ 10) & "-"
	    For i = 0 To 3
	        iCode = iCode & Code(i)
	    Next
	
	
	
	    GetIcode = iCode
	End Function
	
	'iCode 를 받았어
	'정규화 좌표로 변경후 지도 이동 함수
	Function fniCodeMapMove(ByVal iCode)
	
		'iCode 를 정규화 좌표로
		Dim X1, X2, Y1, Y2
	 	Dim TempX, TempY
	 	Dim Xnor, Ynor
	
	 	If Len(iCode) <> 10 Then
	 		Exit Function
	 	End If
	
	 	Xnor = CLng(Left(iCode,3))
	 	Ynor = CLng(Mid(iCode,4,3))
	
	 	X1 = CInt(Mid(iCode,7,1))
	 	Y1 = CInt(Mid(iCode,8,1))
	 	X2 = CInt(Mid(iCode,9,1))
	 	Y2 = CInt(Mid(iCode,10,1))
	
	
	 	TempX = ((((X1 * 3600) + (X2 * 450))+446400)-450000)/450
	 	TempX = TempX * 10000
	 	TempY = ((((Y1 * 2400) + (Y2 * 300))+118800)-119100)/300
	 	TempY = TempY * 10000
	 	TempX = TempX + (Xnor * 10) + 5
	 	TempY = TempY + (Ynor * 10) + 5
	 	'iCode 를 정규화 좌표로 끝
	
	 	'지도 이동
	 	'document.MapData.ShowMapPosition.value = "*" & TempX & "*" & TempY & "*"
		'Call MapMovetoAuto (TempX, TempY, 0)
		
		document.all.ArrPosition.value = TempX & "*" & TempY
		Call MapMoveToAuto(TempX, TempY, 0)
	
	
	End Function

	Sub PrintWindError(ByRef errString)
		Dim errArray
		Dim outputLevel		'0 ~ 4
		Dim i

		errArray = split(errString, "|")

		outputLevel = 1

		dim outputMsg

		Select Case errArray(0)
			case "ERR_OK"
				outputMsg = "성공입니다."
			case "ERR_NOT_READY"
				outputMsg = "명령을 수행할 수 있는 상태가 아닙니다."
			case "ERR_FILE_IO"
				outputMsg = "파일 입출력 중 오류가 발생하였습니다."
			case "ERR_UNEXPECTED"
				outputMsg = "예기치 못한 오류입니다. 관리자에게 문의하세요."
			case "ERR_MEM"
				outputMsg = "메모리의 오류입니다. 관리자에게 문의하세요."
			case "ERR_INVALID_ARG"
				outputMsg = "인수가 올바르지 않습니다."

			case "ERR_DUP_ICON_NUMBER"
				outputMsg = "아이콘 번호가 중복됩니다."
			case "ERR_ICON_FILE_NOT_EXIST"
				outputMsg = "아이콘 파일이 존재하지 않습니다."

			case "ERR_INVALID_FILE_NAME"
				outputMsg = "파일 이름이 올바르지 않습니다. 관리자에게 문의하세요."
			case "ERR_DUP_SOUND_KEY"
				outputMsg = "중복된 사운드 키가 존재합니다."

			case "ERR_MAP_DATA"
				outputMsg = "지도 데이타에 오류가 있습니다."

			case "ERR_SOCKET"
				outputMsg = "서버와의 통신에 문제가 있습니다."
			case "ERR_TIMEOUT"
				outputMsg = "일정 시간동안 서버에서 응답이 없습니다."
			case "ERR_PROTOCOL"
				outputMsg = "서버와의 프로토콜이 일치하지 않습니다."
			case "ERR_COMPRESS"
				outputMsg = "압축과정에 오류과 발생하였습니다."

			case "ERR_INET"
				outputMsg = "서버와의 연결에 문제가 있습니다."

			case "ERR_NOT_REDLINE_MODE"
				outputMsg = "Redline mode가 아닙니다."
			case "ERR_POLYGON_NUM_PNT"
				outputMsg = "폴리곤의 꼭지점의 개수가 올바르지 않습니다."
			case "ERR_GDI_PLUS"
				'outputMsg = "GDI+의 오류입니다. 관리자에게 문의하세요."
				outputMsg = ""

			case "ERR_CANT_ZOOM_IN_ANYMORE"
				outputMsg = "더 이상 확대할 수 없습니다."
			case "ERR_CANT_ZOOM_OUT_ANYMORE"
				outputMsg = "더 이상 축소할 수 없습니다."

			case else
				outputMsg = "정의되지 않은 오류입니다. 관리자에게 문의하세요."
		End Select

		'outputMsg = errArray(0) & " " & outputMsg
		If outputMsg <> "" Then
			outputMsg =  outputMsg
			For i = 1 to outputLevel
				outputMsg = outputMsg & vbCrLf & errArray(i)
			Next
	
			alert outputMsg
		End If
		WindCtl.focus
	End Sub