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"> </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%>"> </td>
<td class="<%=strClass%>"><a href="default.asp?page_id=0">Website</a></td>
<td width="5" class="<%=strClass%>"> </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%>"> </td>
<td class="<%=strClass%>"><a href="default.asp?page_id=1">Nesten</a></td>
<td width="5" class="<%=strClass%>"> </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%>"> </td>
<td class="<%=strClass%>"><a href="default.asp?page_id=8">Herplaatsingen</a></td>
<td width="5" class="<%=strClass%>"> </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%>"> </td>
<td class="<%=strClass%>"><a href="default.asp?page_id=2">Foto's</a></td>
<td width="5" class="<%=strClass%>"> </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%>"> </td>
<td class="<%=strClass%>"><a href="default.asp?page_id=4">Statistieken</a></td>
<td width="5" class="<%=strClass%>"> </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%>"> </td>
<td class="<%=strClass%>"><a href="default.asp?page_id=9">Logs</a></td>
<td width="5" class="<%=strClass%>"> </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"> <%=StrToHTML(strUserName)%> | <%= FormatDateParam(Date, "dddd, dd mmmm yyyy")%></td>
<td align="middle"><span id="spAkt"></span> <span id="spMsg"></span> </td>
<td align="right"><font color="#E0E0E0"> </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>