<% @ Language=VBScript %> <% Option Explicit %> <% 'Set the response buffer to true as we maybe redirecting Response.Buffer = True 'Dimension veriables Dim objFSO 'Holds the file system object Dim tsObject 'Holds the text stream object Dim strFilePath 'Holds the file path Dim saryAllowedFileTypes 'Holds the allowed file types Dim intExtensionLoopCounter 'Holds the extension loop counter Dim strFileName 'Holds the file name Dim strFileExtension 'Holds the file extension Dim strFileTitle 'Holds the file title Dim blnFileExtensionOK 'Set to true if file extension is OK Dim strEditorContents 'Holds the contents of the editor Dim strFileContents 'Holds the file contents to save Dim strNewFileName 'Holds the new filename as it may need to be changed Dim blnNewFileName 'set to rtrue if the fimename is changed Dim strSavePageEncoding 'Holds the code page 'if save is on run the file If blnSave Then 'Get the file types allowed saryAllowedFileTypes = Split(Trim(strSaveFileTypes), ";") 'Get the save file path strFilePath = strSaveFileFolderPath 'Change \ for / strFilePath = Replace(strFilePath, "\", "/'", 1, -1, 1) 'If this is a postback save the file If Request.Form("postback") Then blnFileExtensionOK = false blnNewFileName = false 'Read in the form details strFileName = Trim(Request.Form("fileName")) strFileExtension = Trim(Request.Form("ext")) strFileTitle = Trim(Request.Form("title")) strEditorContents = Request.Form("WebWizRTE") strSavePageEncoding = Trim(Request.Form("DOCTYPE")) 'Check the file extension is OK 'Loop through and display allowed extensions For intExtensionLoopCounter = 0 To UBound(saryAllowedFileTypes) If strFileExtension = "." & saryAllowedFileTypes(intExtensionLoopCounter) Then blnFileExtensionOK = true Next 'If the file extension is not allowed set the file type to text If blnFileExtensionOK = false Then strFileExtension = ".txt" 'Check there is a title If strFileTitle = "" Then strFileTitle = "Untitled Document" '***** START WARNING - REMOVAL OR MODIFICATION OF THIS CODE WILL VIOLATE THE LICENSE AGREEMENT ****** If blnAbout Then strFileTitle = strFileTitle & " - Saved from Web Wiz Rich Text Editor ver. " & strRTEversion End If '***** END WARNING - REMOVAL OR MODIFICATION OF THIS CODE WILL VIOLATE THE LICENSE AGREEMENT ****** 'Build file contents strFileContents = "" & _ vbCrLf & "" & _ vbCrLf & "" & _ vbCrLf & "" & strFileTitle & "" & _ vbCrLf & strSavePageEncoding & _ vbCrLf & "" & _ vbCrLf & "" & _ vbCrLf & "" & _ vbCrLf & strEditorContents & _ vbCrLf & "" & _ vbCrLf & "" 'Save the file 'Initilse the files name strNewFileName = strFileName 'Check the file name is OK 'Remove dodgy characters that may course problems strNewFileName = characterStrip(strNewFileName) 'If there is no file name left make one If strNewFileName = "" Then strNewFileName = "New Document" 'Loop through and remove any extra extensions in the file name For intExtensionLoopCounter = 0 To UBound(saryAllowedFileTypes) strNewFileName = Replace(strNewFileName, "." & saryAllowedFileTypes(intExtensionLoopCounter), "", 1, -1, 0) Next 'Add the extension onto the file name strNewFileName = strNewFileName & strFileExtension 'Create the file system object Set objFSO = Server.CreateObject("Scripting.FileSystemObject") 'If you can not overwrite files check to make sure the file does not exsist, if it does rename the file If blnOverWriteFiles = false Then 'Check to make sure the file does not already exist Do While objFSO.FileExists(Server.MapPath(strSaveFileFolderPath) & "\" & strNewFileName) 'Create a new file name for file if it already exsist strNewFileName = hexValue(3) & "_" & strNewFileName Loop End If 'Create a new file Set tsObject = objFSO.CreateTextFile(Server.MapPath(strSaveFileFolderPath) & "\" & strNewFileName) 'Write to the new file tsObject.Write strFileContents 'Clean up Set objFSO = Nothing Set tsObject = Nothing 'See if the file name is changed If strFileName & strFileExtension <> strNewFileName Then blnNewFileName = true End If %> Save File <% '***** START WARNING - REMOVAL OR MODIFICATION OF THIS CODE WILL VIOLATE THE LICENSE AGREEMENT ****** Response.Write(vbCrLf & "") '***** END WARNING - REMOVAL OR MODIFICATION OF THIS CODE WILL VIOLATE THE LICENSE AGREEMENT ****** %>

<% = strTxtSave %>

<% = strTxtPath %>:
<% = strTxtFileName %>:
   
   
<% = strTxtFileName %>:
<% = strTxtTitle %>:
DOCTYPE:
   

<% 'If the file has been saved display a message If Request.Form("postback") Then Response.Write("") End If End If %>