"The Page cannot found" HTTP 404

I'm guessing you're browsing to the file in wwwroot in your browser. That will give you that error. Try it this way instead:

http://localhost/files/browser/browser.asp

or

http://computername/files/browser/browser.asp

(use the second method if you are viewing the server from a different computer on the network)

Never mind. Looks like your error is here:

Error Type:
Microsoft VBScript runtime (0x800A004C)
Path not found
/files/browser/browser.asp, line 107

Check line 107 of the script and see what it's supposed to be doing.

This is what the eventlog says:

The server failed to load application '/LM/W3SVC/1/Root/browser'. The error was 'The server process could not be started because the configured identity is incorrect. Check the username and password.

and the one under it in the list:

DCOM got error "Overlapped I/O operation is in progress. " and was unable to logon .\IWAM_SERVER02 in order to run the server:
{3D14228D-FBE1-11D0-995D-00C04FD919C1}

I have the anonymous user checked, and it isn't even using IWAM_SERVER02, as that name doesn't even exist anymore. it is using IUSR_Server03 instead now. The other ASP on the site is working...

Well if the other scripts are working, that's a good sign. It also narrows the problem down to the asp script itself. Take a look at what's going on around line 107 that's causing the runtime error.

Here is the code, this is obviously some free ASP code that my previous co-worker is using for a web file browser, so sorry you have to sift through the beginning of it:

[code]<%@LANGUAGE=VBSCRIPT%>
<!--#include file="ssi/library.asp"-->
<%
' Web File Browser 1.1
' Author: Peter Brunone
' Release Date: September 19, 2000
' Contact: peterbrunone@aspalliance.com

'*********** The following are all the variables you need to set for your system. **************************

' This variable should contain the name of the highest folder you want the users to access. If they
' try to go above this folder, the app will simply return to the default directory (this name).
strCeilingFolder = "uploads"

' This section allows for development and production boxes with slightly different directory structures. If they are the same,
' they must still be entered here.
strDevBox = "server02" ' The machine name of the development box
strDevPath = "/uploads/" ' The virtual directory (under the web root) of the development box (a.k.a. the "ceiling")
' Example: strDevPath = "/mydates/today/"
strLivePath = "/uploads/" ' The virtual directory of the production (live) box
' Example: strLivePath = "/appointments/today/"

' These variables allow you to hide the directory structure from prying eyes, and at the same time make the interface neater by
' removing the "deep" part of the path structure and displaying a more user-friendly directory name.
' strRootString = "\ftp\uploads" ' The part of the physical path you'd like to hide
strRootString = "\ftproot\ftp\uploads" ' The part of the physical path you'd like to hide
' Example: strRootString = "C:\Inetpub\wwwroot\ppc"
strBrowseString = "\Files\" ' The expression with which you'd like to replace it
' Example: strBrowseString = "\Users"

' Here you can specify prefixes for hidden files. Simply add all extensions of file types that you wish to hide, delimited with a semicolon (;).
' The hide type can be specified as Inclusion (hide all types in strFileFilter) or Exclusion (hide all except types in strFileFilter).
strFileFilter = "exe;asp"
strHideType = "inclusion"
' Example: strFileFilter = "asp;aspx;html;xls"
' Example: strHideType = "Inclusion"

' Directories can now be filtered out as well, based on a leading character.
' The default is an underscore (_), which effectively takes care of FrontPage folders.
strDirFilter = "_"

' The Delete switch turns the Delete File functionality on (Y) or off (N); it is off by default.
strDelete = "N"

'*********** The rest is functional code; don't change it unless you want to change the way it works. ***********

Set fso = Server.CreateObject("Scripting.FileSystemObject")

If strServer = strDevBox Then
RootPath = Server.Mappath(strDevPath)
Else
RootPath = Server.Mappath(strLivePath)
End If
BrowsePath = RootPath

If (Request.Querystring("folder") <> "" And InStr(Request.Querystring("folder"),strCeilingFolder) > 0 And InStr(Request.QueryString("folder"),"..") <= 0) Then

RootPath = Request.Querystring("folder")
BackPath = BackDir(RootPath)
Set Dir = fso.GetFolder(RootPath)
ParentDir = Dir.ParentFolder
BrowsePath = RootPath

If Request.QueryString("delete") <> "" Then
DelDoc = Request.QueryString("docPath")
If fso.FileExists(DelDoc) Then
Set DelDoc = fso.GetFile(Request.QueryString("docPath"))
DelDoc.Delete True
End If
End If
End If

BrowsePath = Replace(RootPath,strRootString,strBrowseString)
%>
<HTML>
<HEAD>
<TITLE>browser.asp</TITLE>
<!--#include file="ssi/header.jsinc"-->
<!--#include file="ssi/style.css"-->
</HEAD>

<BODY background="../../back.gif" onLoad="window.focus()">
<%
'Response.Write Request.ServerVariables("HTTP_USER_AGENT") & "<BR><BR>" & vbCRLF ' Debugging

Response.Write "<TABLE WIDTH=""100%"" BORDER=0>" & vbCRLF

'Response.Write "<TR><TD COLSPAN=3>Current Directory: " & BrowsePath & "       <BR><BR></TD></TR>"

If BackPath <> RootPath Then
Response.Write "<TR><TD ALIGN=""LEFT"" VALIGN=""TOP""> <A HREF=""javascript:backUp();"">" &_
"<IMG SRC=""images/parentdir.gif"" BORDER=0 ALIGN=""TOP""> Parent Directory</A></TD>" & vbCRLF
Else
Response.Write "<TR><TD VALIGN=""TOP"">   </TD>" & vbCRLF
End If

If UCase(strDelete) = "Y" Then
' Use this line to include the Delete function
Response.Write "<TD ALIGN=""CENTER"" VALIGN=""TOP""><A HREF=""javascript:deleteSwitch('y')"">" &_
"<IMG SRC=""images/deldown.gif"" BORDER=0 ALIGN=""TOP"" NAME=""deletepic""> Delete File</A></TD>" &_
"<TD> & <BR><BR></TD></TR>" & vbCRLF
Else
' Use this line to exclude the Delete function
Response.Write "<TD> & <BR><BR></TD></TR>" & vbCRLF
End If

Set topfolder = fso.GetFolder(RootPath)

Response.Write "<TR><TD ALIGN=""LEFT"">       <B>Name</B></TD><TD>   </TD>" & vbCRLF &_
"</TD><TD ALIGN=""RIGHT""><B>Size</B></TD><TD ALIGN=""RIGHT""><B>Modified</B>"

' Here the folder names in the current directory are read and formatted into a hyperlink list.
For Each Folder in topfolder.SubFolders

FolderLink = NumberTrim(BaseDir(Folder))
If HideFolder(FolderLink) <> "Y" Then
' Response.Write FolderLink & "; Hide = " & HideFolder(FolderLink) & "<BR>" ' Debugging
If InStr(browser,"MSIE") Then
Folder = Replace(Folder,"\","\\")
End If
Folder = Server.URLEncode(Folder)
FolderLink = "<IMG SRC=""images/folder.gif"" BORDER=0 ALIGN=""TOP""> " & FolderLink
FolderLink = "<A HREF=""javascript:linkPage('" & Folder & "')"">" & FolderLink & "</A>"
ParentFolder = topfolder.ParentFolder
Response.Write "<TR><TD COLSPAN=4>   " & FolderLink & "</TD></TR>" & vbCRLF
End If
Next

' This block prepares the RootPath for the Delete function if needed.
If InStr(browser,"MSIE") Then
RootDirPath = Replace(RootPath,"\","\\")
RootDirPath = Server.URLEncode(RootDirPath)
Else
RootDirPath = Server.URLEncode(RootPath)
End If

' Here the filenames in the current directory are read and formatted into a hyperlink list.
For Each File In topfolder.Files
FileLink = BaseDir(File)
If HideFile(FileLink) <> "Y" Then
Size = File.Size
Size = SizeFormat(Size)
Modified = File.DateLastModified
If InStr(browser,"MSIE") Then
File = Replace(File,"\","\\")
End If
FileLinkImg = "<IMG SRC=""images/file.gif"" BORDER=0 ALIGN=""TOP""> " & FileLink
File = Server.URLEncode(File)
FileLink = "<A HREF=""javascript:openDocument('" & RootDirPath & "','" & File & "','" & FileLink & "')"">" & FileLinkImg & "</A>"
Response.Write "<TR><TD NOWRAP>   " & FileLink & "</TD><TD>   </TD>" & vbCRLF &_
"<TD ALIGN=""RIGHT"" NOWRAP>" & Size & "</TD><TD ALIGN=""RIGHT"" NOWRAP>" & Modified & "</TD></TR>" & vbCRLF
End If
Next

Response.Write "</TABLE>" & vbCRLF

%>
<FORM NAME="mainForm">
<INPUT TYPE="HIDDEN" NAME="rootPath" VALUE="<%=Server.URLEncode(RootPath)%>">
<INPUT TYPE="HIDDEN" NAME="backPath" VALUE="<%=Server.URLEncode(BackPath)%>">
<INPUT TYPE="HIDDEN" NAME="deleteIndicator" VALUE="no">
</FORM>
</BODY>
</HTML>
<%
Set browser = nothing


%>[/code]


The code I bolded and Italicisized in red is line 107. Do you see anything with this?

Could you please edit the post and enable BB code so that the entire code displays correctly? Thanks.

Well, I think that is what's causing the problem, but don't know how to tell you to fix it. I'm just a little better than a beginner with ASP, and I'm not certain I understand exactly what it's doing there.

My apologies, but I've taken you about as far as I can with it. It's going to take someone with a bit more knowledge of ASP and VB to tell you what to do with it. Sorry.

I didn't disable BB code, just HTML becuase it was trying to show some pictures and giving the nice red X.

I understand about the help with ASP. It sounds like I am about the level you are with ASP. I am just starting to learn the heavier stuff. Thanks again for all of your help, hopefully someone will chime in with some things to try.

Also, I am an Apache guy, so dealing with IIS has been a learning experience as well...