<% Dim fso, f, filespec Set fso = CreateObject("Scripting.FileSystemObject") filespec = Server.Mappath("event.txt") Set f = fso.OpenTextFile(filespec,2)
' Åbn filen til læsning og Læs linie for linie Set f = fso.OpenTextFile(filespec,1) Do While not f.AtEndOfStream Response.write f.ReadLine & "<br>" Loop f.Close %>
har prøvet begge dele og virker stadig ikke .. kan det være serveren deri kke tillader det? jeg bruger asphost4free.com
Synes godt om
Ny brugerNybegynder
Din løsning...
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.