function LoginUser_ExecDHTMLLogin(strFirstName,strEngFirstName,strEngLastName,strTOP,strStreet,strState)
dim objDiv

	set objDiv = document.getElementById(LoginUser_GetLoginUserHeaderDivID())
	objDiv.innerHtml = LoginUser_GetLoginUserDataHTML(strFirstName,strEngFirstName,strEngLastName,strTOP,strStreet,strState)
	set objDiv = nothing
	
end function

function LoginUser_InitDHTMLLogin(strFirstName,strEngFirstName,strEngLastName,strTOP,strStreet,strState)
dim objDiv

	set objDiv = document.getElementById(LoginUser_GetLoginUserHeaderDivID())
	objDiv.innerHtml = LoginUser_GetLoginUserDataHTML(strFirstName,strEngFirstName,strEngLastName,strTOP,strStreet,strState)
	set objDiv = nothing
	
end function

function LoginUser_ExecDHTMLLoginExpand(strFirstName,strEngFirstName,strEngLastName,strTOP,strStreet,strState)
dim objDiv

	set objDiv = document.getElementById(LoginUser_GetLoginUserHeaderDivID())
	objDiv.innerHtml = LoginUser_GetLoginUserDataHTMLExpand(strFirstName,strEngFirstName,strEngLastName,strTOP,strStreet,strState)
	set objDiv = nothing
	
	call LoginUser_ShowDiv()
end function

function LoginUser_GetLoginUserDataDivID()
	LoginUser_GetLoginUserDataDivID = "divLoginUser_UserLoginData"
end function

function LoginUser_GetLoginUserHeaderDivID()
	LoginUser_GetLoginUserHeaderDivID = "divLoginUser_UserLoginHeader"
end function

function LoginUser_ArrowOnMouseOver()	
	call LoginUser_ShowDiv()
end function

function LoginUser_GetLoginUserDataHTML(strFirstName,strEngFirstName,strEngLastName,strTOP,strStreet,strState)
dim strHtml
dim arrTOP
dim strPreffix
dim lngDivWidth
dim lngDivHeight

	strPreffix = "TOP"
	
	arrTOP = Split(strTOP,",")
	lngDivWidth = 170
	lngDivHeight = 120
	
	'**-- collect html
	strHtml = strHtml & "&nbsp;ωμεν&nbsp;" & strFirstName & "&nbsp;<img name='imgShowAddress' style='cursor:hand' SRC='../Images/General/arrow_address.gif' OnMouseOutSrc='../Images/General/arrow_address.gif' OnMouseOverSrc='../Images/General/arrow_address_over.gif' onmouseout='vbscript:call Image_OnMouseOut(me)' onmouseover='vbscript:call Image_OnMouseOver(me): call LoginUser_ArrowOnMouseOver()' align='absmiddle' WIDTH=13 HEIGHT=13>"

	strHtml = strHtml & "					<div ID='" & LoginUser_GetLoginUserDataDivID() & "'  STYLE='position:absolute; visibility:hidden;'>" & vbCrLf
	strHtml = strHtml & "						<iframe height='" & lngDivHeight & "' width='" & lngDivWidth & "' frameborder=0 scrolling=no src='../Include/ToolTips/iframeAddress.asp?TOP=" & strTOP & "&FirstName=" & strFirstName & "&EngFirstName=" & strEngFirstName & "&EngLastName=" & strEngLastName & "&STREET=" & strStreet & "&STATE=" & strState & "'></iframe>" & vbCrLf
	strHtml = strHtml & "					</div>" & vbCrLf
 
	 
	LoginUser_GetLoginUserDataHTML = strHtml
end function


function LoginUser_GetLoginUserDataHTMLExpand(strFirstName,strEngFirstName,strEngLastName,strTOP,strStreet,strState)
dim strHtml
dim arrTOP
dim strPreffix
dim i
dim lngDivWidth
dim lngDivHeight

	arrTOP = Split(strTOP,",")
	lngDivWidth = 150
	lngDivHeight = 80 * UBound(arrTOP) + 130

	strPreffix = "TOP"
	
	'**-- collect html
	strHtml = strHtml & "&nbsp;ωμεν&nbsp;" & strFirstName & "&nbsp;<img name='imgShowAddress' style='cursor:hand' SRC='../Images/General/arrow_address.gif' OnMouseOutSrc='../Images/General/arrow_address.gif' OnMouseOverSrc='../Images/General/arrow_address_over.gif' onmouseout='vbscript:call Image_OnMouseOut(me)' onmouseover='vbscript:call Image_OnMouseOver(me): call LoginUser_ArrowOnMouseOver()' align='absmiddle' WIDTH=13 HEIGHT=13>"

	strHtml = strHtml & "					<div ID='" & LoginUser_GetLoginUserDataDivID() & "'  STYLE='position:absolute; visibility:hidden;'>" & vbCrLf
	strHtml = strHtml & "						<iframe height='" & lngDivHeight & "' width='" & lngDivWidth & "' frameborder=0 scrolling=no src='../Include/ToolTips/iframeAddressExpand.asp?TOP=" & strTOP & "&FirstName=" & strFirstName & "&EngFirstName=" & strEngFirstName & "&EngLastName=" & strEngLastName & "&STREET=" & strStreet & "&STATE=" & strState & "'></iframe>" & vbCrLf
	strHtml = strHtml & "					</div>" & vbCrLf
 
 
	LoginUser_GetLoginUserDataHTMLExpand = strHtml
end function


function LoginUser_IsLoginUserHeaderExist()
dim objDiv

	set objDiv = document.getElementById(LoginUser_GetLoginUserHeaderDivID())
	
	if not objDiv is nothing then
		LoginUser_IsLoginUserHeaderExist = (LCase(objDiv.innerHTML) <> "<br>")
	end if
	
	set objDiv = nothing
end function

function LoginUser_ShowDiv()
dim objDiv

	set objDiv = document.getElementById(LoginUser_GetLoginUserDataDivID())
	objDiv.style.visibility = "visible"		
	set objDiv = nothing
	
end function

function LoginUser_HideDiv()
dim objDiv

	set objDiv = document.getElementById(LoginUser_GetLoginUserDataDivID())
	objDiv.style.visibility = "hidden"		
	set objDiv = nothing
	
end function

function LoginUser_HideExpandDiv(strFirstName,strEngFirstName,strEngLastName,strTOP,strStreet,strState)
	call LoginUser_HideDiv()
	call LoginUser_InitDHTMLLogin(strFirstName,strEngFirstName,strEngLastName,strTOP,strStreet,strState)
end function