<% Set fs=Server.CreateObject("Scripting.FileSystemObject") Set f=fs.OpenTextFile(Server.MapPath("log.txt"), 1) streng = "" Do While not f.AtEndOfStream streng = streng & f.ReadLine & "," Loop f.Close Set f=Nothing Set fs=Nothing
tekstarr = split(streng,",")
response.write "<div style=""font-size:18pt"">Log fil</div><hr color=""#000000"" size=""1"">" response.Write "<font face=""Verdana"" size=""2"">" for i = (UBound(tekstarr)-1) to 0 Step -1 response.write Replace(tekstarr(i),vbcrlf,"<br>") next response.write "</font>"
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.