Create a database with asp

I have seen a lot of code in this area on the Internet, but some of them cannot be used, and some of them are too much junk code. I have simply modified it and now I will share it with you.
<%
Option Explicit
Dim databasename 'defines the database name
Databasename = "database. mdb" 'database name
Dim databasepath 'defines the database storage path
Databasepath = "D: officejd21database" 'database absolute path
Dim databasever 'defines the database version 2000 or 97
Databasever = "2000"
Function Createdfile (FilePath, FileName, Ver)
Dim Ca, dbver
Select case ver
Case "97"
Dbver = "3.51"
Case "2000"
Dbver = "4.0"
End select
If dbver <> "" then
Set Ca = Server. CreateObject ("ADOX. Catalog ")
Call Ca. Create ("Provider = Microsoft. Jet. OLEDB." & dbver & "; Data Source =" & filepath & filename)
End if
End Function
Createdfile databasepath, databasename, databasever
%>
It is useless to create a database using asp. However, this is not a better choice.