View ASP Source Code

<%
Dim  rte1
if  Request("Submit001")  <>  ""  Then
      Response.write  ("This  is  from  RTE  1<br>")
      Response.Write  Request("EBTS001")
End  if
if  Request("Submit002")  <>  ""  Then
      Response.write  ("This  is  from  RTE  2<br>")
      Response.Write  Request("EBTS002")
End  if
%>
<Html>
<head>
<Title>Rich  Text  Editor  Demo</Title>
</head>
<body>
<center>
<h3>Rich  Text  Editor  Demonstration</h3>
<form  id="form1"  action="RTETest.asp"  method="post">
<%
'  IFrame  ID:  RTFEdit_EBTS001
'  Hidden  ID:  EBTS001
Set  rte1  =  Server.CreateObject("eBizTSWebModules.RichTextBox")
rte1.UniqueID  =  "EBTS001"
rte1.Width  =  550
rte1.HTMLText  =  Request("EBTS001")
rte1.Render
%>
<br>
<input  type=Submit  name=Submit001  value=Submit001>

<P>

<%
'  IFrame  ID:  RTFEdit_EBTS002
'  Hidden  ID:  EBTS002
Set  rte2  =  Server.CreateObject("eBizTSWebModules.RichTextBox")
rte2.UniqueID  =  "EBTS002"
rte2.Width  =  600
rte2.Height  =  150
rte2.HTMLText  =  Request("EBTS002")
rte2.Render
%>
<br>
<input  type=Submit  name=Submit002  value=Submit002>
</form>
<P>
</center>
</body>
</html>