<%@ LANGUAGE = VBScript %> <% chLt = "<" chQ = chr(34) strID="" Set fs = CreateObject("Scripting.FileSystemObject") reqUrl = Replace(Request.QueryString("URL")&request.Form("URL"),"\","/") If fs.FileExists(reqUrl) Then Set ts = fs.OpenTextFile(reqUrl) strFile = ts.ReadAll strFile = Replace(strFile, chLt&"A TITLE="&chQ&"P-", chLt&"!-- ~") ' strFile = Replace(strFile, chLt&"!-- ~" & strID, chLt&"A title="&chQ& strID) ts.Close %> ASP Forums - ASP RichEdit Demo
Bold Italic Underline Left Centre Right Justify Bulleted List Numbered List Indent Outdent Create/Edit Hyperlink
N
H1
H2
H3
H4
Show HTML
Table
" TYPE="hidden">

<% else %> ASP Forums - ASP RichEdit Demo

File <%=reqURL%> not found!

<% set fs=nothing end if %>