Skrive til en tekst fil
http://www.friserverplads.dk/bacher/Login/Login2.aspDer er siden og her er koden :
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML>
<HEAD>
<!-- Minus AutoDato -->
<TITLE>[Ingen titel]</TITLE>
<META NAME="Generator" CONTENT="Stone's WebWriter 3.5">
</HEAD>
<BODY>
<%
Dim fso, f, filespec
Set fso = CreateObject("Scripting.FileSystemObject")
Filespec = Server.Mappath("/bacher/Login/Text.txt")
Set f = fso.OpenTextFile(filespec,2)
'Skriv i teksten filen
f.Write Request.Form("tekstblok")
Response.write Request("tekstblock")
'Åben
Set f = fso.OpenTextFile(filespec,1)
Do While not f.AtEndOfStream
Response.write "f.ReadLine & <br>"
Loop
f.Close
%>
</BODY>
</HTML>
