Serveren kan ikke lave et Scripting.FileSystemObject

Måske er det ikke problemet, men du frigører ikke hukommelsen igen. Det kan måske være, at du er nået din maksimum med hensyn til hukommelsesforbrug..

Hver gang du bruger Set VariabelNavn = EtEllerAndet, skal du bruge Set VariabelNavn = Nothing.

Nedlæggelsen skal ske i omvendt rækkefølge af oprettelsen, når du bruger instanser der er afhængige af hinanden.

F.eks. mapper er afhængige af fso.. dvs:

- Opret fso-instans
- Opret mappe-instans
- Nedlæg mappe-instans
- Nedlæg fso-instans


Det gælder for alle instanser der oprettes med Set.

Sorry... Mit eksempel var for simpelt :)

Den kode det egentlig drejer sig om, er i mit galleri. www.haslecf.dk/gallery.asp, Der nedlægger jeg også objekterne igen.

Koden er:
<%
Sub PrintFile(path)
  If (path<>"") Then
    Dim fso, f, filespec
    Set fso = Server.CreateObject("Scripting.FileSystemObject")
    filespec = Server.Mappath(path)
    Set f = fso.OpenTextFile(filespec,1)

    ' Læs linie for linie indtil slutningen af filen'
    Do While not f.AtEndOfStream
      Response.write f.ReadLine & "<br>"
    Loop

    f.Close
   
    Set f = nothing
    Set fso = nothing
  End If
End Sub

Sub ListFolder(path)
  Dim fs, folder, file, item, thumb_name, img_name, sub_folder, description

  Set fs = Server.CreateObject("Scripting.FileSystemObject")
  Set folder = fs.GetFolder(path)
 
  If (folder.SubFolders.Count >0) Then
    'Display a list of sub folders.'
    for each item in folder.SubFolders
      Set sub_folder = fs.GetFolder(path & "/" & item.Name)
      thumb_name = "images/folder.png"
      description = ""
      For each sub_item in sub_folder.Files
        If (Left(sub_item.Name,5) = "title") Then
          thumb_name = "images/" & sub_folder.Name & "/" & sub_item.Name
        Elseif (Left(sub_item.Name,11) = "description") Then
          description = "images/" & sub_folder.Name & "/" & sub_item.Name
        End If
      Next
      Response.Write("<div class=""gallery_dir"">" & vbCrLf)
      Response.Write("<div class=""gallery_header"">" & item.Name & "</div>" & vbCrLf)
      Response.Write("<a href=""gallery.asp?path=")
      Response.Write Server.URLEncode(item.Name)
      Response.Write("""><img src=""" & thumb_name & """ alt="""" border=""0""></a>" & vbCrLf)
      Response.Write("<div class=""gallery_description""><p>")
      PrintFile(description)
      Response.Write("</p></div>" & vbCrLf)
      Response.Write("</div>" & vbCrLf)
    next
  End If

  If (folder.Files.Count > 0) Then       
    For each item in folder.Files
      If (Left(item.Name,6) = "thumb_") Then
        thumb_name = "images/" & folder.Name & "/" & item.Name
        image_name = Replace(item.Name, "thumb_", "")
        Response.Write("<div class=""gallery_thumb""><a href=""showpic.asp?path=" & Replace(folder.Name, " ", "+") & "&name=" & image_name & """>")
        Response.Write("<img src=""" & thumb_name)
        Response.Write(""" alt="""" border=""0""></div>" & vbCrLf)
      End If
    Next 
  End If
 
  Set folder = nothing
  Set fs = nothing
End Sub
%>

I øvrigt er der meget delte meninger om hvorvidt det er nødvendigt at sætte variablerne til nothing. Hvis ikke man gør det vil variablerne automatisk gå ud af scope når siden er færdig med at eksekvere, og de vil så blive frigivet af asp serveren uden man behøver at blande sig.

Dit script ser ud til at virke igen..

hehe.. ja. Det er temmeligt ustabilt.

Jeg har faktisk opgivet lidt overfor den nuværende host. Tror ikke de er i stand til at løse det, så jeg har købt et andet webhotel, og skifter over så snart det andet er oppe at køre.

Hvis alt er OK nu, kan du bare smide et svar, markere det og derefter klikke på Accepter-knappen for at afslutte spørgsmålet..

lukker...