FSO

Hur sorterar jag nerifrån textfilen å upp - alltså nyaste först:

Set fso = CreateObject("Scripting.FileSystemObject")

   set fil = fso.OpenTextFile(Server.Mappath(User & ".txt"), 1 )
   arrFsoLines = Split(fil.ReadAll, vbcrlf)

   For i = 0 To ubound(arrFsoLines)%>
     <%=arrFsoLines(i)%><br>
   <%Next

   fil.Close

Går det?

   For i = ubound(arrFsoLines) To 0%>
     <%=arrFsoLines(i)%><br>
   <%Next

Ingen aning :/

Syns inget då :/

Oj, glömde:

  For i = ubound(arrFsoLines) To 0 step -1 %>
     <%=arrFsoLines(i)%><br>
   <%Next

For i = ubound(arrFsoLines) To 0 step -1 %>
     <%=arrFsoLines(i)%><br>
   <%Next

Funkade fint LarsG. Tackar :) Men hur får jag bort den sista radbrytningen! Den skrivs ut först!

Sparas med denna kod

   Info   = FormatDateTime(Now,4) & " | <b>" & User & "</b> - " & Request.Form("info")

   Set fso = CreateObject("Scripting.FileSystemObject")
   Set fil = fso.OpenTextFile(Server.Mappath(User & ".txt"), 8 )

   fil.WriteLine(Info)

   fil.close

Nu förstår jag inte, då du gör split så tar du ju bort alla crlf.

Okej men det behövs inte!