<% @Language="VBScript" %>
<% option explicit %>
Nouvelle page 1
<%
Dim memos
set memos = Server.CreateObject ("MemoEdit.Application")
for I = 1 to 3
set Memos(I) = MemoEdit.NewMemo
next
memos(1).insert ("Ce texte est ajouté par OLEAuto")
memos.close
set memos = nothing
%>