HEX
Server: Microsoft-IIS/8.5
System: Windows NT YDAWBH120 6.3 build 9600 (Windows Server 2012 R2 Standard Edition) AMD64
User: tentjecom_web (0)
PHP: 7.4.14
Disabled: NONE
Upload Files
File: D:/HostingSpaces/RImmers/duitsedog.tk/wwwroot/onderhoud/topmenu.asp
<%
Option Explicit
Dim strClass, intPageId, strUsername
intpageId = session("intPageId")
strUsername = Session("strUsername")
%>
<!-- #INCLUDE VIRTUAL="/includes/inc_default.asp" -->
<!-- #INCLUDE VIRTUAL="/includes/inc_auth.asp" -->
<html>
<head>
<base target="_parent">
<link rel="stylesheet" type="text/css" href="../css/menu.css">
</head>
<body>
<table border="0" cellspacing="0" cellpadding="0" width="100%">	
	<tr>     
    <td class="clsMenuBar" align="right">
			<table cellSpacing="0" cellPadding="0" border="0">
				<tr>          										
          <td width="200">&nbsp;</td>
          <%
          If intPageId = 0 Then
						strClass = "clsSelected"
          Else
						strClass = "clsMenu"
          End If
          %>
          <td width="1" align="center" valign="middle"><img src="../images/icons/white_dot.gif" height="21" width="1"></td> 					
					<td width="5" class="<%=strClass%>">&nbsp;</td>
					<td class="<%=strClass%>"><a href="default.asp?page_id=0">Website</a></td>																		
					<td width="5" class="<%=strClass%>">&nbsp;</td>		
					         
          <%
          If intPageId = 1 Then
						strClass = "clsSelected"
          Else
						strClass = "clsMenu"
          End If
          %>
          <td width="1" align="center" valign="middle"><img src="../images/icons/white_dot.gif" height="21" width="1"></td> 					
					<td width="5" class="<%=strClass%>">&nbsp;</td>
					<td class="<%=strClass%>"><a href="default.asp?page_id=1">Nesten</a></td>																		
					<td width="5" class="<%=strClass%>">&nbsp;</td>		
					
					<%
          If intPageId = 8 Then
						strClass = "clsSelected"
          Else
						strClass = "clsMenu"
          End If
          %>
          <td width="1" align="center" valign="middle"><img src="../images/icons/white_dot.gif" height="21" width="1"></td> 					
					<td width="5" class="<%=strClass%>">&nbsp;</td>
					<td class="<%=strClass%>"><a href="default.asp?page_id=8">Herplaatsingen</a></td>																		
					<td width="5" class="<%=strClass%>">&nbsp;</td>		
					
					<%
          If intPageId = 2 Or intPageId = 7 Then
						strClass = "clsSelected"
          Else
						strClass = "clsMenu"
          End If
          %>
          <td width="1" align="center" valign="middle"><img src="../images/icons/white_dot.gif" height="21" width="1"></td> 					
					<td width="5" class="<%=strClass%>">&nbsp;</td>
					<td class="<%=strClass%>"><a href="default.asp?page_id=2">Foto's</a></td>																		
					<td width="5" class="<%=strClass%>">&nbsp;</td>						        
					
					<%
          If intPageId = 3 or intPageId = 4 or intPageId = 5 Then
						strClass = "clsSelected"
          Else
						strClass = "clsMenu"
          End If
          %>          
          <td width="1" align="center" valign="middle"><img src="../images/icons/white_dot.gif" height="21" width="1"></td> 					
					<td width="5" class="<%=strClass%>">&nbsp;</td>
					<td class="<%=strClass%>"><a href="default.asp?page_id=4">Statistieken</a></td>																		
					<td width="5" class="<%=strClass%>">&nbsp;</td>		
				
		  <%
		  If intPageId = 9 Then
			strClass = "clsSelected"
          Else
			strClass = "clsMenu"
          End If
          %>          
          <td width="1" align="center" valign="middle"><img src="../images/icons/white_dot.gif" height="21" width="1"></td> 					
					<td width="5" class="<%=strClass%>">&nbsp;</td>
					<td class="<%=strClass%>"><a href="default.asp?page_id=9">Logs</a></td>																		
					<td width="5" class="<%=strClass%>">&nbsp;</td>		
				</tr>
			</table>      
    </td>
  </tr>
  <tr>
		<td colSpan="3"><img height="1" src="../images/icons/white_dot.gif" width="100%"></td>
	</tr>    
  <tr>    
    <td valign="middle" colspan="3" bgcolor="#666666" height="17">
      <table cellSpacing="0" cellPadding="0" width="100%">
        <tr height="100%">
					<td width="75%" align="left"><font color="#E0E0E0">&nbsp;<%=StrToHTML(strUserName)%>&nbsp;|&nbsp;<%= FormatDateParam(Date, "dddd, dd mmmm yyyy")%></td>
          <td align="middle"><span id="spAkt"></span>&nbsp;&nbsp;<span id="spMsg"></span>&nbsp;</td>
          <td align="right"><font color="#E0E0E0">&nbsp;</td>          
         </tr>
      </table>
    </td>
  </tr>    
	<tr>
		<td colSpan="3"><img height="1" src="../images/icons/white_dot.gif" width="100%"></td>
	</tr>  
</table>
</body>
</html>