Ho risolto =)
codice:
<body>
<%
testo = request.Form("textarea")
response.Write(server.HTMLEncode(testo))
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
' Open the file as a text stream (1 = ForReading, True = Create)
Set objCountFile = objFSO.OpenTextFile(Server.MapPath("japan.txt"), 1, True, -1)
' Read the current count from the file
'If Not objCountFile.AtEndOfStream Then
' Set value to contents of the file
iCount = objCountFile.ReadAll
' If no file exists or it's empty start at 0
'End If
' Close the file and destroy the object
objCountFile.Close
Set objCountFile = Nothing
%>
<form name="form1" method="post" action="test_giappo.asp">
<textarea name="textarea" cols="100" rows="10"><%=server.HTMLEncode(icount)%></textarea>
</p>
<input type="submit" name="Submit" value="Submit">
</p>
</form>
</body>