You receive the following error when you click any of the links on the ChemOffice.asp page or when accessing the Administrative tools:Microsoft VBScript runtime error '800a004c'Path not found/csdemo/global.asa, line 29NOTE: The Path that is not found wil

You receive the following error when you click any of the links on the ChemOffice.asp page or when accessing the Administrative tools:

Microsoft VBScript runtime error '800a004c'
Path not found
/csdemo/global.asa, line 29

NOTE: The Path that is not found will reflect the web application you are trying to access. For instance, is you are accessing ChemACX, the message would read /chemacx/global.asa, line 29

The problem occurs when the installation of ChemOffice Webserver is to a volume other than the C Drive. A peculiarity in VBScript does not recognize the alternate drive.

The following should fix this problem:

Open the global.asa file that you are receiving the error in. For instance for the error shown above, you would open the file at the following path: /Inetpub/csdemo/global.asa
The trouble area is line 28 -31.

When you open the global.asa, lines 28-31 will appear as follows:

Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFolder("\Inetpub\")
Application("ServerRoot") = UCase(f.Path)
Set f = Nothing
Set fs = Nothing

You should comment out (add an apostrophe to the beginning of the line) and change the Application("ServerRoot") at line 30 to be the path of your InetPub directory. For instance, if your installation is on the D drive this section should appear as follows

'Set fs = CreateObject("Scripting.FileSystemObject")
'Set f = fs.GetFolder("\Inetpub\")
Application("ServerRoot") = "D:\InetPub"
'Set f = Nothing
'Set fs = Nothing

This same change needs to be made in each global.asa file shipped with ChemOffice Webserver 98 as well as several files within the Administrative tools. For the files shown in the table below, you can simply copy the text that you change in one file and paste in over the same line numbers in the other files.

NOTE: one additional file described in the next section has a slightly different change than these files.

In addition to the files changed above, you will also need to make a change in the file "AdminFormFunction.inc" located at the following path:

InetPub\CFServerAdmin\AdminSource\AdminCommon.

For this file, go to line 122 where you see the function text as follows.

Function getServerPath()
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFolder("\Inetpub\")
Session("ServerRoot") = UCase(f.Path)
getServerPath = Session("ServerRoot") & "\wwwroot"
Session("RootPath") = getServerPath & "\"
Set f = Nothing
Set fs = Nothing
End Function

Comment out line 123, 124, 128 and 129. Change 125 to the hard coded path. For instance if your installation is on D: this section would be as follows:

Function getServerPath()
'Set fs = CreateObject("Scripting.FileSystemObject")
'Set f = fs.GetFolder("\Inetpub\")
Session("ServerRoot") = "D:\Inetpub"
getServerPath = Session("ServerRoot") & "\wwwroot"
Session("RootPath") = getServerPath & "\"
'Set f = Nothing
'Set fs = Nothing

End Function