Indekset udenfor området VBScript-kørselsfejl
Denne fil, lektion 15 i html.dk's guide resulteret i:Fejltype:
Der opstod en Microsoft VBScript-kørselsfejl (0x800A0009)
Indekset er uden for området: '[number: 1]'
/linksamling.asp, line 19
ASP FILEN:
<html>
<title>Læse fra tekstfiler</title>
<head>
</head>
<body>
<%
Dim fso, f, filespec
Set fso = CreateObject("Scripting.FileSystemObject")
filespec = Server.Mappath("m.txt")
Set f = fso.OpenTextFile(filespec,1)
' Læs 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>
TXT FILEN:
Arbejdsministeriet,www.am.dk
By- og Boligministeriet,www.bm.dk
Erhvervsministeriet,www.em.dk
Finansministeriet,www.fm.dk
Forsvarsministeriet,www.fmn.dk
Fødevareministeriet,www.fvm.dk
Indenrigsministeriet,www.im.dk
IT- og Forskningsministeriet,www.fsk.dk
Justitsministeriet,www.jm.dk
Kirkeministeriet,www.km.dk
Kulturministeriet,www.kum.dk
Miljø- og Energiministeriet,www.mem.dk
Skatteministeriet,www.skm.dk
Socialministeriet,www.sm.dk
Statsministeriet,www.stm.dk
Sundhedsministeriet,www.sum.dk
Trafikministeriet,www.trm.dk
Udenrigsministeriet,www.um.dk
Undervisningsministeriet,www.uvm.dk
Økonomiministeriet,www.oem.dk
Nogen der kan fortælle mig hvordan problemet opstår og hvordan det løses?
