Listing B



Function fnCreateDatabase(sFilePath)

 Dim bRetVal, oDB

 If sFilePath = "" Then

       bRetVal = FALSE

 Else

       Set oDB = Server.CreateObject("ADOX.Catalog")

              On Error Resume Next

oDB.Create ("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(sFilePath))

              If Err.Number = 0 Then

                     bRetVal = TRUE

              Else

                     bRetVal = FALSE

              End If

       Set oDB = Nothing

 End If

 fnCreateDatabase = bRetVal

End Function