<div id="aktuelt"> <p><% Dim fso, f, filespec, f2, filespec2 Set fso = CreateObject("Scripting.FileSystemObject") filespec = Server.Mappath("intranet.txt") Set f = fso.OpenTextFile(filespec,1)
' Læs linie for linie indtil slutningen af filen Do While not f.AtEndOfStream Response.write f.ReadLine & "<br>" Loop
Idanielsen> Jeg forsøgte din forslag med at ændre til dansk samt tilføje <INPUT TYPE=hidden name=ie value="UTF-7">, men siden erstatter stadig ÆØÅæøå med kinesiske bogstaver :-/ Men mangler jeg noget, eller har du en anden idé er jeg klart frisk på at prøve det.
thomashove> jeg forstår ideen i at få en function til at ændre alle ÆØÅæøå til de rigtige 'koder', men jeg kunne ikke rigtig få asp-scriptet til at virke på siden. Måske gjorde jeg noget forkert? Jeg forsøgte først at indsætte ASP'en FØR det oprindelige ASP-hent-txt-script og senere EFTER, men kunne ikke få function'en til at løbe igennem den tekst der blev hentet ind? Skal de to ASP'er sammenskrives?
Dim fso, f, filespec, f2, filespec2 Set fso = CreateObject("Scripting.FileSystemObject") filespec = Server.Mappath("intranet.txt") Set f = fso.OpenTextFile(filespec,1)
' Læs linie for linie indtil slutningen af filen Do While not f.AtEndOfStream Response.write MyConverter(f.ReadLine) & "<br>" Loop
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.