problemas con el fileystemobject

[dannym]

Hola compañero soy nuevo en esto y tengo un problema estaba tratando de eliminar un archivo del servidor y utilizaba la siguiente rutina:

<%


function BorrarArchivo(archivo)
dim fs
Set fs = Server.CreateObject("Scripting.FileSystemObject")
if fs.FileExists(archivo) then fs.DeleteFile(archivo)
Set fs = Nothing
End function

strUploadPath = "C:\Inetpub\wwwroot\curso\imag"
com = Chr(92)
ruta=strUploadPath & com & "VIR-8.jpg"
BorrarArchivo(ruta)

%>

El código me funcionaba perfectamente, la imagen la insertaba y luego probaba borrandola, todo iba bien hasta que al mezclarlo con otro código asp me empezo a dar problemas la página y ahora el código no funciona o mas bien el "filesystemobject", ya que pareciera que no puede eliminar, probe buscando la ruta que le indico para ver si la imagen se encontraba y si está, pero cuando utilizo cualquier método del filesystemobject la página demora una eternidad y no carga, luego de varios intentos me manda este mensaje:


HTTP 403.9 - Access Forbidden: Too many users are connected
Servicios de Internet Information Server

ESto no me pasaba antes , vuelvo y les reitero que el código funcionaba perfectamente.