læs fra tekstfil
Jeg har lavet følgende og kan ikkeforstå hvorfor der meldes fejl når jeg trykker på de hentede links, tekstfilen ligger i bunden.<html>
<head>
<title>Lfse fra tekstfiler</title>
</head>
<body>
<%
Dim fso, f, filespec
Set fso = CreateObject("Scripting.FileSystemObject")
filespec = Server.Mappath("../formular/interesser.txt")
Set f = fso.OpenTextFile(filespec,1)
'Lfs linie for linie indtil slutningen af filen
Do While not f.AtEndOfStream
'Lav array ved at splitte ved kommaer
arrM = Split(f.ReadLine,",")
'Skriv links - hent oplysningerne i array
Response.Write "<li><a href='http://" & arrM(1) & "'>" & arrM(0) & "</a></li>"
Loop
f.Close
%>
</body>
</html>
tekstfil ser ud som følger:
BT, www.bt.dk
YAHOO, www.yahoo.dk
GOOGLE, www.google.com
JP, www.jp.dk
MUSIKHUSET, www.MUSIKHUSETAARHUS.DK
VAERKET, www.VAERKET.DK
BERLINGSKE, www.berlingske.dk
EFB, www.efb.dk
