<% Set fso = CreateObject("Scripting.FileSystemObject") filespec = Server.Mappath("dinfil.txt") Set f = fso.OpenTextFile(filespec,1)
' Læs linie for linie indtil slutningen af filen Do While not f.AtEndOfStream linie = f.ReadLine myarr = split(linie," ") response.write "<a href="&myarr(1) & ">"&myarr(0) & "</a><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.