	<!--#include file="../../owFunctions/I_GeneralFunctions.asp"-->
	<%
	If ( NOT bHasAccount ) Then
		Response.Redirect "Default.asp"
	End If
	
	Dim sTemp, sGroupName, sNavName, sNavID, sComments, sImage, sTarget
	
	sNavID = Trim(Request("sNavID"))
	If ( sNavID <> "" ) Then
		sSQLText = "SELECT NavName FROM owNav WHERE State = '1' AND NavID = " & sNavID
		Call DB_getFromDatabase (sSQLText, rsStoreData, "")
		If ( NOT rsStoreData.EOF ) Then
			sNavName	= "<font style='font-size: 16px;'> &#151; " & rsStoreData("NavName") & "</font>"
		End If
		Call DB_closeRecordset(rsStoreData)
	End If
	
	sTemp = Trim(Request("Directory"))
	If ( sTemp = "" ) Then
		sTemp = "Main"
	End If
	sSQLText = "SELECT * FROM owNav WHERE State = '1' AND directory = '" & sQLEncode(sTemp) & "' ORDER BY Position"
	call DB_getFromDatabase (sSQLText, rsStoreData, "owTop.asp")
	If ( NOT rsStoreData.EOF ) Then
		sGroupName	= rsStoreData("GroupName")
	Else
		sGroupName = "Welcome!"
	End If

	%>
	<html>
		<head>

	<link rel="stylesheet" href="/owManager/Script/owStyles.css" type="text/css">

		</head>
		<body leftmargin=0 topmargin=0 marginheight=0 marginwidth=0 style="FONT-SIZE: 11px; FONT-FAMILY: Arial" bgcolor="#C3DAF9">
			<table width="100%" border=0 cellpadding=0 cellspacing=0>
				<tr> 
					<td bgcolor="#C3DAF9" style="padding-left:10px; padding-top:5px; padding-bottom:5px; padding-right:10px; BORDER-RIGHT: #cccccc 0px solid; BORDER-LEFT: #C3DAF9 1px solid; BORDER-BOTTOM: #2A5CB2 1px solid"> 
						<font style="font-family: Arial; font-size: 28px;"><b><i><font style='color: #2A5CB2'><%=sGroupName%><%=sNavName%></font></i></b></font>
					</td>
					<td bgcolor="#C3DAF9" style="padding-left:10px; padding-top:5px; padding-bottom:5px; padding-right:10px; BORDER-RIGHT: #cccccc 0px solid; BORDER-LEFT: #C3DAF9 1px solid; BORDER-BOTTOM: #2A5CB2 1px solid"> 
						<div align="right"><font style="font-family: Arial; font-size: 10px;">License: </font><b><font style="font-family: Arial; font-size: 10px; color: #9EBEF5;"><%=sOWGatewayID%></font></b>
						<br>
						<a href="../owLogoff.asp" target="_top" style="font-size:11px; text-decoration: none">Logout: <%=ACCNT_UserName(iLoginAccountUnq)%></a> <font style="font-family: Arial; font-size: 10px;">(Your recorded IP: <%=Request.ServerVariables("REMOTE_ADDR")%>)</div>
					</td>
				</tr>
			</table>
			
			<table border="0" cellpadding="1" cellspacing="0" height="20" width="100%" >
				<tr> 
					<td width="100%" style="BORDER-RIGHT: #2A5CB2 1px solid; BORDER-TOP: #ffffff 1px solid; BORDER-LEFT: #2A5CB2 0px solid; BORDER-BOTTOM: #2A5CB2 1px solid;" bgcolor="#C3DAF9"> 
						<%
						If ( NOT rsStoreData.EOF ) Then
							Response.Write "<table border=0 cellpadding=0 cellspacing=0 style='FONT-SIZE: 11px'><tr>"
							While ( NOT rsStoreData.EOF )
								sComments = rsStoreData("Comments")
								If ( IsNull(sComments) ) Then
									sComments = ""
								End If
								sImage		= Trim(rsStoreData("Image"))
								If ( sImage <> "" ) Then
									sImage = "<img src='../images/" & sImage & "' width=16 align=top>&nbsp;&nbsp;"
								End If
								sTarget = rsStoreData("Target")
								%>
								<td valign="top" align="left" style="padding-top:2px; padding-left:10px; padding-right:10px; border-right: 1px solid #2A5CB2;" bgcolor="C3DAF9"> 
								<p onclick="top.centerFrame.<%=sTarget%>.location='../<%=rsStoreData("directory")%>/<%=rsStoreData("FileName")%>'; top.centerFrame.topFrame.location='owTop.asp?sNavID=<%=rsStoreData("NavID")%>&Directory=<%=rsStoreData("directory")%>'" style="cursor:hand; margin-top:0px; margin-bottom: 5px;" alt="<%=Server.HTMLEncode(sComments)%>"><%=sImage%><%=rsStoreData("NavName")%></p>
								</td>
								<%
								rsStoreData.MoveNext
							Wend
							Response.Write "</tr></table>"
						End If
						%>
					</td>
				</tr>
			</table>
		</body>
	</html>
	<%Call DB_closeRecordset(rsStoreData)%>