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