<!-- #include file="includes/admin_includes-inc.asp" -->
<!-- #include file="includes/admin_editor-inc.asp" -->
<%
	Dim fileTXT, contenuto, errore, myErr, sUpf

	sTitlePage = GetTranslation("LANG_ADMINISTRATION") & " - " & GetTranslation("LANG_EDIT")
%>
<!-- #include file="includes/toppage-inc.asp"-->
<%
	If IsAuthorizedBin(ROLE_ADMINISTRATOR) Then
		sUpf = "" & Session("UploadFolder")
		contenuto = "" & Request.Form("src")
		'it is a post, try to save file
		if trim(contenuto) <> "" then
			fileTXT = cleanFileName("" & Request.Form("filename"), 0)
			SaveFile Server.MapPath(sUpf & "/" & fileTXT), contenuto
		else
			fileTXT = cleanFileName("" & Request("filename"), 0)
		end if

		DisplayEditorPage fileTXT
	Else
		CreateTable "Role", "", GetTranslation("LANG_MUST_HAVE_ROLE"), ""
	End If
%>
<!-- #include file="includes/bottompage-inc.asp" -->
<!-- #include file="includes/clearitall-inc.asp" -->