HEX

File: D:/HostingSpaces/RImmers/duitsedog.tk/wwwroot/onderhoud/default.asp
<%
Option Explicit
%>
<!-- #INCLUDE VIRTUAL="/includes/inc_default.asp" -->
<!-- #INCLUDE VIRTUAL="/includes/inc_auth.asp" -->
<%
Dim strPage, strMsg, intPageId
strMsg		= FormToStr(Request.QueryString("msg"))
intPageId = FormToInt(Request.QueryString("page_id"))
Select Case intPageId
  Case 0 : strPage = "https://www.duitsedog.tk"
  Case 1 : strPage = "./nesten.asp"
  Case 2 : strPage = "./fotos.asp"
  Case 3 : strPage = "dagstats.asp"
  Case 4 : strPage = "manual.asp"  
  Case 5 : strPage = "weekstats.asp"
  Case 6 : strPage = "stats.asp"
  Case 7 : strPage = "./fotos_volgorde.asp"
  Case 8 : strPage = "./herplaatsingen.asp"
  Case 9 : strPage = "log.asp"
  Case 10 : strPage = "laatstebezoekers.asp"
  Case Else strPage = "https://www.duitsedog.tk"
End Select  
session("intPageId") = intPageId
%>
<html>
<head>
<link rel="stylesheet" type="text/css" href="../../css/onderhoud.css">  
</head>
<frameset border="0" rows="60,*">
  <frame name="banner" scrolling="no" noresize target="contents" src="topmenu.asp">
  <frameset border="0" cols="130,*">
    <frame name="contents" target="main" src="leftmenu.asp" noResize scrolling=no>
    <frame name="main" src="<%=strPage%>">    
  </frameset>
  <noframes>
  <body>
    <p>This page uses frames, but your browser doesn't support them.</p>
  </body>
  </noframes>
</frameset>
</html>