FileSystemObject

Kræver det specielle rettigheder på serveren at køre FileSystemObject?

Serveren går konsekvent ned ved følgende kode....

<html>
<head>
<title></title>
<link rel="stylesheet" href="layout/2.css" type="text/css" media="screen">
<link rel="stylesheet" href="layout/2p.css" type="text/css" media="print">
</head>
<body id='nobackground'>
<div id="menu">
</div>
<p align='center'>
</p>
<h1>Array af tekst-fil</h1>
<%
Dim fso, f, filespec

Set fso = CreateObject("Scripting.FileSystemObject")

filespec = Server.Mappath("katprod.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 komma
  arrM = Split(f.ReadLine,",")

' Skriv oplysninger fra fil
  Response.Write "Produkt: " & arrM(0) & "<br>"
  Response.Write "Produktbetegnelse: "  & arrM(1) & "<br>"
  Response.Write "Henv. produkt: "  & arrM(2) & "<br>"
  Response.Write "Henv. produktbetegnelse: "  & arrM(3) & "<br><br>"

Loop

f.Close
%>

<hr>
</body>
</html>