den er rimelig lang:
=====================
<html>
<head>
<title>Nyt dokument</title>
<meta name="generator" content="TSW WebCoder">
<style type="text/css">
a:link{color:darkred;text-decoration:none;}
a:visited{color:darkred;text-decoration:none;}
a:active{color:green;text-decoration:none;}
a:hover{color:yellow;text-decoration:none;}
</style>
<script language="javascript">
<!--
function reloader(framename, adresse, tid) {
setTimeout(function(){parent[framename].location.href = adresse;}, tid)
}
-->
</script>
</head>
<body>
<%
' Hovedmenuen
dim menu (1,10,10,10)
dim menuRef (1,10,10,10)
menu (0,0,0,0) = "Forside"
menuRef (0,0,0,0) = "main.asp"
menu (1,0,0,0) = "HTX"
menuRef (1,0,0,0) = "htx/main.asp"
menu (1,1,0,0) = "Biologi"
menuRef (1,1,0,0) = "htx/biologi/main.asp"
menu (1,2,0,0) = "Dansk"
menuRef (1,2,0,0) = "htx/dansk/main.asp"
menu (1,3,0,0) = "Engelsk"
menuRef (1,3,0,0) = "htx/engelsk/main.asp"
menu (1,4,0,0) = "Fysik"
menuRef (1,4,0,0) = "htx/fysik/main.asp"
menu (1,5,0,0) = "Kemi"
menuRef (1,5,0,0) = "htx/kemi/main.asp"
menu (1,6,0,0) = "Kommunikation/It"
menuRef (1,6,0,0) = "htx/kom-it/main.asp"
menu (1,6,1,0) = "Evaluering"
menuRef (1,6,1,0) = "htx/kom-it/evaluering/main.asp"
menu (1,6,1,1) = "Excel"
menuRef (1,6,1,1) = "htx/kom-it/evaluering/excel.asp"
menu (1,6,1,2) = "Word"
menuRef (1,6,1,2) = "htx/kom-it/evaluering/word.asp"
menu (1,6,1,3) = "PowerPoint"
menuRef (1,6,1,3) = "htx/kom-it/evaluering/powerpoint.asp"
menu (1,6,1,4) = "Konklusion"
menuRef (1,6,1,4) = "htx/kom-it/evaluering/konklusion.asp"
menu (1,7,0,0) = "Samfundsfag"
menuRef (1,7,0,0) = "htx/samfundsfag/main.asp"
menu (1,8,0,0) = "Teknologi"
menuRef (1,8,0,0) = "htx/teknologi/main.asp"
menu (1,8,1,0) = "Uge 1-3 2006"
menuRef (1,8,1,0) = "htx/teknologi/ukendt/main.asp"
menu (1,8,2,0) = "Uge 4-11 2006"
menuRef (1,8,2,0) = "htx/teknologi/htx/teknologi/uge1-9/main.asp"
menu (1,8,2,1) = "Produkt Beta"
menuRef (1,8,2,1) = "htx/teknologi/htx/teknologi/uge1-9/Guess_Number_beta1.asp"
menu (1,8,2,2) = "Hall of Fame"
menuRef (1,8,2,2) = "htx/teknologi/htx/teknologi/uge1-9/statistik.asp"
for a = 0 to UBound(menu,1)
' Udskriver grundmenuen
response.write "<a href='?menu=" & a & "' Onclick=""reloader('main',menuRef(a,0,0,0),1);"">" & menu(a,0,0,0)& "</a><br>"
if request.querystring("menu") <> "" then
for b = 0 to UBound(menu,2)
' Udskriver undermenuer if requested
response.write "<a href='?menu=" & a & "&submenu=" & b & "' Onclick=""reloader('main', menuRef(a,b,0,0),1);"">" & menu(a,b,0,0) & "</a><br>"
if request.querystring("submenu") <> "" then
for c = 0 to UBound(menu,3)
' Udskriver
response.write "<a href='?menu=" & a & "&submenu=" & b & "&sub=" & c & "' Onclick=""reloader('main', menuRef(a,b,c,0),1);"">" & menu(a,b,c,0) & "</a><br>"
if request.querystring("sub") <> "" then
for d = 0 to UBound(menu,4)
' Udskriver
response.write "<a href='?menu=" & a & "&submenu=" & b & "&sub=" & c & "undersub=" & d & "' Onclick=""reloader('main', menuRef(a,b,c,d),1);"">" & menu(a,b,c,d) & "</a><br>"
next
end if
next
end if
next
end if
next
%>
</body>
</html>
Ny bruger
Nybegynder
Opret
Preview
