<% Select case Request.QueryString("go") case "department": path=root & "department.htm" Response.Write("Department profile") case "staff": path=root & "staff.htm" Response.Write("Staff") case "subjects": path=root & "subjects.htm" Response.Write("Subjects") case "eTSPI": path=root & "eTSPI.htm" Response.Write("The course ""Outdoor Adventure Education & Czech Culture""") case "aeol": path=root & "aeol.htm" Response.Write("The specialised course ""Adventure Education and Outdoor Leadership""") case "publications": path=root & "publications.htm" Response.Write("Publications") case Else path=root & "department.htm" Response.Write("Department profile") End Select %>

<% Set fso = CreateObject("Scripting.FileSystemObject") root="d:/Weby/web/Katedry/Spp/otsvp/" %> <% Select case Request.QueryString("go") case "department": path=root & "department.htm" Response.Write("Department profile") case "staff": path=root & "staff.htm" Response.Write("Staff") case "subjects": path=root & "subjects.htm" Response.Write("Subjects") case "eTSPI": path=root & "eTSPI.htm" Response.Write("The course ""Outdoor Adventure Education & Czech Culture""") case "aeol": path=root & "aeol.htm" Response.Write("The specialised course ""Adventure Education and Outdoor Leadership""") case "publications": path=root & "publications.htm" Response.Write("Publications") case Else path=root & "department.htm" Response.Write("Department profile") End Select %> <% Set f = fso.OpenTextFile(path, 1) Set file=fso.GetFile(path) lastupdate = file.DateLastModified if file.size > 0 then Response.Write(f.readAll) else Response.Write("Under construction") End If %>