%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
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%>
|