skriv til fil
hvordan retter jeg så den tilføjer linjen i toppen i stedet for at den tilføjer i bunden som den gør nu (har ikke forfærdelig meget tjek på asp)<%
filePath = Server.MapPath( \"sjuft.txt\" )
IF NOT Request.Form( \"NextLine\" )= \"\" THEN
Set MyFileObject = Server.CreateObject( \"Scripting.FileSystemObject\" )
Set MyTextFile = MyFileObject.OpenTextFile( filePath, 8, TRUE )
MyTextFile.WriteLine( Request.Form( \"NextLine\" ) )
MyTextFile.Close
END IF
%>
<HTML>
<HEAD><TITLE>test</TITLE>
<LINK REL=\"stylesheet\" TYPE=\"text/css\" HREF=\"test.css\">
</HEAD>
<BODY>
<body bgcolor=\"ffffff\" text=\"000000\">
<p align=\"center\"><font color=\"#C0C0C0\">test</font></p>
<br><br>
<p><b><font color=\"#C0C0C0\" face=\"Impact\">Tilføj Status</font></b></p>
<FORM METHOD=\"POST\" ACTION=\"default.asp\">
<INPUT NAME=\"NextLine\" TYPE=\"TEXT\" class=textbox SIZE=70 maxlength=\"200\">
<INPUT TYPE=\"SUBMIT\" class=button VALUE=\"Indsæt\">
</FORM>
<br><br>
<div align=\"center\">
<center>
<table border=\"3\" cellpadding=\"2\" bordercolor=\"#808080\" bgcolor=\"#C0C0C0\">
<tr>
<td width=\"100%\" height=\"100%\">
<%
Set MyFileObject = Server.CreateObject( \"Scripting.FileSystemObject\" )
Set MyTextFile = MyFileObject.OpenTextFile( filePath )
WHILE NOT MyTextFile.AtEndOfStream
Response.Write( \"<br>\" & MyTextFile.ReadLine )
WEND
MyTextFile.Close
%></td>
</tr>
</table>
</center>
</div>
<br><br>
</BODY>
</HTML>
