<%
if not session("girdinmilan") = "evetgirdimlan" then
response.write "<br><center><br><b>Yonetici izniniz yok.</b>"
response.end
end if

  Const ForReading = 1, ForWriting = 2, ForAppending = 8
  Const TristateUseDefault = -2, TristateTrue = -1, TristateFalse = 0
  Dim strPathInfo, strPhysicalPath
  strPathInfo = Request.QueryString("path")
  strPhysicalPath = Server.MapPath(strPathInfo)
  
  Dim objFSO, objFile
  Set objFSO = CreateObject("Scripting.FileSystemObject")
  Set objFile = objFSO.GetFile(strPhysicalPath)
%>
<head>
<META http-equIv=content-type content=text/html;charset=Iso-8859-9>
<META http-equIv=content-type content=text/html;charset=wIndows-1254>
<META http-equIv=content-type content=text/html;charset=x-mac-turkIsh>
<style type="text/css">
.textareaContainer {
    display: block;
    border: 0px solid gray;
    padding: 0px;
}
textarea { width: 100%; margin: 0; padding: 0; border-width: 0; }
</style>
</head>
<body scroll="no">
<center><%= strPathInfo %></center>
<%
  Dim objFileTextStream
  Set objFileTextStream =objFile.OpenAsTextStream(ForReading, TristateUseDefault)
  
  Dim strLine
%>
    <label class="textareaContainer">
<form action="in/admin/filemanager.asp?now=FSOedit&fold=<%=request.QueryString("fold")%>" method="post">
<input type="hidden" name="PhyPath" value="<%= Trim(strPhysicalPath) %>">
<textarea name="File" cols="75" rows="40">
<%
				Function ayikla(gelenveri)
				gelenveri = LCase(gelenveri)
				gelenveri = Replace(gelenveri ,"<textarea>","&lt;textarea>",1,-1,0)
				gelenveri = Replace(gelenveri ,"</textarea>","&lt;/textarea>",1,-1,0)
				ayikla = gelenveri 
				End Function
  Do While objFileTextStream.AtEndOfStream <> True
    strLine = objFileTextStream.ReadLine
	Response.Write ayikla(strLine)
	Response.Write vbcrlf
  Loop
%>
</textarea>
<br /><Br>
<center><input type="submit" value=" G&#252;ncelle " />&nbsp;&nbsp;<INPUT type="Button" VALUE=" İptal et " OnClick='history.go( -1 );return true;' ></center>
</form>
</body>

<%
objFileTextStream.Close

%>
