Listing A

Function fnDatabaseExists(sFilePath)

 Dim oFS, bRetVal

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

 If sFilePath = "" Then

       bRetVal = FALSE

 Else

       bRetVal = oFS.FileExists(Server.MapPath(sFilePath))

 End If

 Set oFS = Nothing

 fnDatabaseExists = bRetVal

End Function