Op woensdag 04 oktober 2000 16:58 schreef MoNkToNk het volgende:
Ik heb ook een dergelijk probleem gehad en heb het als volgt opgelost:<BLOCKQUOTE><font size=1 face=Verdana, Arial, Helvetica>quote:</font><HR><%
Dim objOpenFile, objFSO, strPath, pagina
pagina = Request.QueryString("pagina")
If pagina = "" Then
pagina = "index.htm"
End If
strPath = Server.MapPath(pagina)
Set objFSO = _
Server.CreateObject("Scripting.FileSystemObject")
Set objOpenFile = _
objFSO.OpenTextFile(strPath, 1)
Do While Not objOpenFile.AtEndOfStream
Response.Write objOpenFile.Read(100)
Loop
objOpenFile.Close
Set objOpenFile = Nothing
Set objFSO = Nothing
End If
%>
Hopelijk heb je hier wat aan
[/quote]
Ik maak van bovenstaande procedure gebruik om 'dynamisch' files in mn ASP script te includen. Het heeft tot voorkort prima gewerkt. Nu echter werkt het, wegens een voor mij onverklaarbare reden, niet meer. De pagina laadt heel traag en de betreffende file wordt niet ingevoegd. Ik krijg geen script timeout, en als ik het laden van de pagina onderbreek dan verschijnt de output van het script goed tot aan de "OpenFile" routine.
Kan iemand mij misschien helpen of een hint geven waaraan dit mogelijk kan liggen.
Ik vermoed dat er iets mis is met de permissies binnen de Inetpub directory, maar kan alleen niet ontdekken wat het moet zijn.
BTW Ik heb een windows 2000 pro server met IIS 5.0
Hier onder is de betreffende routine waarop hij blijft hangen:
<%
If File2Show <> "" then
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Set objOpenFile = objFSO.OpenTextFile("c:\inetpub\beheer\" & File2Show & ".htm", 1)
Do While Not objOpenFile.AtEndOfStream
Response.Write objOpenFile.Read(100)
Loop
objOpenFile.Close
Set objOpenFile = Nothing
Set objFSO = Nothing
End if
%>