[asp] laad nu geen van twee?

[DannyCLD]

Ben nu een beetje aan het klooien met asp, maar ben nu bij een raar probleem gekomen. ik draai op IIS en heb daar op een guestbook en een fotoalbumpje. nu werkt het guestbookje perfect, voor zover mogelijk dan. maar als ik het fotoalbum probeer te laden wat niet lukt vanwegen een time-out, kan hij ook niet meer het guestbook gebruiken/openen.

ik draai op windows 2000 met zoals eerder vernoemt IIS als webserver.
p3 450 mhz.

het simpele fotoboekje is ff een experimentje, maar op een andere pc werk het wel. en ik heb directory browsing aan staan...

De code van het betreffende probleem geval:

ASP:

<%
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder(Server.MapPath("./"))

For Each objItem In objFolder.Files
extensie = Right(objItem.Name,4)
If extensie = ".jpg" or extensie = ".JPG" or extensie = ".Jpg" or extensie
= ".jPg" or extensie = ".jPG" or extensie = ".jpG" or extensie = ".gif" or
extensie = ".GIF" or extensie = ".Gif" or extensie = ".gIf" or extensie =
".gIF" or extensie =".giF" or extensie = "jpeg" or extensie = ".png" or
extensie = ".PNG" or extensie = ".Png" or extensie = ".pNg" or extensie =
".pNG" or extensie = ".pnG" Then
    %>
<a href="<%=objItem.Name%>"><img src="<%=objItem.Name%>" width="250"></a>
<%
End If
Next

Set objItem = Nothing
Set objFolder = Nothing
Set objFSO = Nothing
%>

wat is er nou verkeert waardoor hij niet laad, en daarna de andere asp pagina's neit laad laden ?

Edit:
andere pc, gebruikt wel PWS dus geen IIS...

modbreak: [code=asp] doet wonderen voor de leesbaarheid van je code

[ Voor 44% gewijzigd door curry684 op 31-08-2003 13:13 ]

[gorgi_19]

Zie dit hier, en dan vooral puntje 1.

Tip 2. Er bestaat in VBScript ook nog zoiets als UCase en LCase.

modbreak: [code=asp] doet wonderen voor de leesbaarheid van je code

Nah, verander het dan ook gelijk in:

ASP:

Dim extensie
....
extensie = LCase(Right(objItem.Name,4))
If Extensie = ".png" or Extensie = ".gif" or Extensie = ".jpg" or Extensie = "jpeg" Then

     ....

End if

Nog netter zou trouwens zijn om er een aparte functie voor te schrijven.

[ Voor 82% gewijzigd door gorgi_19 op 31-08-2003 13:31 ]

[DannyCLD]

Puntje 1 was idd het probleem, ik wist niet eens dat norton nog geinstalleerd was ...

en aan puntje 2 word gewerkt..
bedankt