<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> Untitled Document
<% Dim fso, f, filespec Set fso = CreateObject("Scripting.FileSystemObject") filespec = Server.Mappath("/editor/txteditor/SAMPLES/Web/WebApp/relnotes/21") Set f = fso.OpenTextFile(filespec,1) ' Lęs linie for linie indtil slutningen af filen Do While not f.AtEndOfStream Response.write f.ReadLine & "
" Loop f.Close %>

<%if (Session("MM_Username")="CAD_Admin") then%> Ret

<%end if%>