<%
'	************************************************************************
'	* ASP-Nuke: Free web portal in ASP                                     *
'	************************************************************************
'	* Copyright (c) 2002-2003 by Gaetan Bouveret (webmaster@asp-nuke.net)  *
'	* http://www.asp-nuke.net                                              *
'	*                                                                      *
'	* This program is free software. You can redistribute it and/or modify *
'	* it under the terms of the GNU General Public License as published by *
'	* the Free Software Foundation; either version 2 of the License, or    *
'	* (at your option) any later version.                                  *
'	*                                                                      *
'	************************************************************************

'	************************************************************************
'	* ASP-Nuke: Free web portal in ASP                                     *
'	************************************************************************
'	* Copyright (c) 2003 by Rolf Thomassen, Show Readme.txt                *
'	* http://www.rot.dk                                                    *
'	*                                                                      *
'	* This program is free software. You can redistribute it and/or modify *
'	* it under the terms of the GNU General Public License as published by *
'	* the Free Software Foundation; either version 2 of the License, or    *
'	* (at your option) any later version.                                  *
'	*                                                                      *
'	************************************************************************
%>
<%

	' Display readme.txt page
	' IN  : -
	' OUT : -
	Sub DisplayReadme()
		Dim sHTML, sFile
		If IsAuthorized(ROLE_ADMIN) Then
			sFile = RequestStr("id")
		Else
			sFile = "readme.txt"
		End IF
		if sFile = "" Then
			sFile = "readme.txt"
		End If
		
		CreateTopTable "readme", GetTranslation("LANG_README") & " file: '" & sFile & "'"
		
		sHTML = ReadTextFile(GLOBAL_SITE_PATH, sFile)
		sHTML = CodeMessage( sHTML , true )
		sHTML = Text2HTML( sHTML )
		sHTML = Replace(sHTML, chr(9), "    ")
		sHTML = Replace(sHTML, "@", "<span title='@'>(a)</span>")

		Response.Write "<pre>" & sHTML & "</pre>" & vbCrLf

		CreateBottomTable ""
	End Sub
%>

