Når jeg benytter følgende til at skrive til et .txt dokument,
overskrives det der i forvejen står i dokumentet. Er det muligt
at lave et linieskift, således at det der tilføjes, kommer til at
stå under/over det der allerede står i dokumentet?
test.asp:
<%
Dim fso, f, filespec
Set fso = CreateObject("Scripting.FileSystemObject")
filespec = Server.Mappath("../db/test.txt")
Set f = fso.OpenTextFile(filespec,1)
Do While not f.AtEndOfStream
Response.write f.ReadLine & "<br>"
Loop
f.Close
%><br><br>
<form method="post" action="test1.asp">
<input type="text" value="" name="navn">
<input type="submit" value="Tilføj">
</form>
test1.asp:
<%
Dim fso, f, filespec
Set fso = CreateObject("Scripting.FileSystemObject")
filespec = Server.Mappath("../db/test.txt")
Set f = fso.OpenTextFile(filespec,2)
f.Write Request.Form("navn")
Set f = fso.OpenTextFile(filespec,1)
Do While not f.AtEndOfStream
Response.write f.ReadLine & "<br>"
Loop
f.Close
%>
--
Claus Pedersen
--
Vil du lære at kode HTML, XHTML, CSS, SSI eller ASP?
- Pædagogiske tutorials på dansk
- Kom godt i gang med koderne
KLIK HER! =>
http://www.html.dk/tutorials