% @ 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 & "