Filesystem error!!!

vad gör jag för fel??
jag har fixat så att scriptet visar vad som finns i en speciell katalog..men jag kan inte navigera mellan katalogerna...?? får felmeddelande:

Körningsfel i Microsoft VBScript fel \'800a004c\'

Det går inte att hitta angiven sökväg.

koden=======================
<%
Dim strFolder   
path = \"../../UPLOAD/DOKUMENTARKIV\"
   
    Set FileSystem = CreateObject(\"Scripting.FileSystemObject\")
    Set MainFolder = FileSystem.GetFolder(server.mappath(path))
    Set Files = MainFolder.Files
    Set Folders = MainFolder.subfolders
    strFolder = Request.Querystring(\"folder\")
If IsEmpty(strFolder) Then
    Set Folder = FileSystem.GetFolder(Server.MapPath(path))
Else
    Set Folder = FileSystem.GetFolder(Server.MapPath(\"../\" & strFolder))
    strParentFolder = strFolder
    strFolder = strFolder & \"\\\"
end if

Function FileInfo(File)
    Dim strFile
        Select Case Right(File.Name, 3)
            Case \"gif\", \"jpg\", \"GIF\", \"JPG\" strFile = \"<A HREF=\"\"\" & File.Name & \"\"\"><img src=\"\"images/img_view.gif\"\" width=\"\"16\"\" height=\"\"16\"\" border=\"\"0\"\"></A>\"
            Case \"htm\" strFile = \"<A HREF=\"\"\" & File.Name & \"\"\"><img src=\"\"images/htm.gif\"\" width=\"\"16\"\" height=\"\"16\"\" border=\"\"0\"\"></A>\"
            Case \"asp\" strFile = \"<A HREF=\"\"\" & File.Name & \"\"\"><img src=\"\"images/asp.gif\"\" width=\"\"16\"\" height=\"\"16\"\" border=\"\"0\"\"></A>\"
            Case \"eps\", \"psd\" strFile = \"<img src=\"\"images/img.gif\"\" width=\"\"16\"\" height=\"\"16\"\" border=\"\"0\"\">\"
            Case Else strFile = \"<img src=\"\"images/file.gif\"\" width=\"\"16\"\" height=\"\"16\"\" border=\"\"0\"\">\"
        End Select
        FileInfo = \"<td width=\"\"25%\"\">\" & strFile & \" <a href=\" & File.Name & \" target=\"\"_blank\"\">\" & File.Name & \"</a></td><td width=\"\"25%\"\"><FONT FACE=\"\"Verdana\"\" SIZE=\"\"1\"\">\" & Round((File.Size/1000), 3) & \"</FONT></td><td width=\"\"25%\"\"><FONT FACE=\"\"Verdana\"\" SIZE=\"\"1\"\">\" & Year(File.DateLastModified) & \"-\" & Month(File.DateLastModified) & \"-\" & Day(File.DateLastModified) & \"</FONT></td><td width=\"\"25%\"\"><FONT FACE=\"\"Verdana\"\" SIZE=\"\"1\"\">\" & File.Type & \"</FONT></td>\" & vbCrLf
    End Function

Function FolderGeneration(Folder)
FolderGeneration = \"<a href=\"\"Filesystem.asp?Folder=\" & strFolder & Folder.Name & \"\"\"><img src=\"\"../../../images/dir.gif\"\" width=\"\"16\"\" height=\"\"16\"\"></a>\" & \" \" & folder.name & \"<br>\"
End Function

%>
<table width=\"100%\" border=\"0\" cellspacing=\"0\" cellpadding=\"0\" class=\"Text\">
  <tr>
    <td>&nbsp;</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td colspan=\"2\"><img src=\"../../../images/1pixel_svart.gif\" width=\"100%\" height=\"1\"></td>
  </tr>
</table>
<br>
<table border=\"0\" cellspacing=\"0\" cellpadding=\"0\" class=\"Text\" align=\"center\">
  <tr>
    <td width=\"400\" valign=\"bottom\">
      <%  For Each Folder in Folders
response.write \"<a href=\"\"Filesystem.asp?Folder=\" & strFolder & Folder.Name & \"\"\"><img src=\"\"../../../images/dir.gif\"\" width=\"\"16\"\" height=\"\"16\"\" border=\'0\'></a>\" & \" \" & folder.name & \"<br>\"
    next

    For Each File in Files
        response.write lcase(file.name) & \"<br>\"
    next

%>
    </td>
  </tr>
</table>