<%
Option Explicit
Const INC_FILE = "content.html"
Const FLD_IMAGES = "samples/"
Dim objFileSystem, objFile, sRealFilePath
Dim fWriteData, iIOMode, sContent
' Initialize objects and flags
Set objFileSystem = Server.CreateObject("Scripting.FileSystemObject")
fWriteData = (Len(Request.Form("Save")) > 0)
sRealFilePath = Server.MapPath(INC_FILE)
' Check if submit button has been pressed
If fWriteData Then
' Process data submitted by form
Set objFile = objFileSystem.OpenTextFile(sRealFilePath, 2) ' ForWriting
sContent = Request.Form("content")
objFile.Write sContent
objFile.Close
Response.Redirect "./"
Else
If objFileSystem.FileExists(sRealFilePath) Then
Set objFile = objFileSystem.OpenTextFile(sRealFilePath)
If Not objFile.AtEndOfStream Then
' Read file into sContents
sContent = objFile.ReadAll
End If
End If
End If
%>
Infolink HTML Editor 1.1