ho provato cosi' ma mi da errore..



<%
Set cat = CreateObject("ADOX.Catalog")
connStr = "Provider=Microsoft.Jet.OLEDB.4.0;data source=" & Server.MapPath("carrello2.mdb")
cat.Create connStr
Set cat = nothing



dim stringa_conn
stringa_conn = "DRIVER=Microsoft Access Driver (*.mdb);DBQ=" & Server.MapPath("carrello2.mdb")
dim objconn
set objconn = server.createobject("adodb.connection")
objconn.open stringa_conn



sql="CREATE TABLE categorie ( ID counter primary key, nome_categorie char(255));"

sql2="CREATE TABLE prodotti (id counter primary key, nome_prodotti char(255),num integer references categorie(id) ON UPDATE CASCADE ON DELETE CASCADE);"


sql3="CREATE TABLE prezzi ( ID counter primary key, prezzo currency,num INTEGER references prodotti(id) ON UPDATE CASCADE ON DELETE CASCADE);"


dim objrs
set objrs=server.createobject("adodb.recordset")
objrs.open sql, stringa_conn

dim objrs2
set objrs2=server.createobject("adodb.recordset")
objrs2.open sql2, stringa_conn

dim objrs3
set objrs3=server.createobject("adodb.recordset")
objrs3.open sql3, stringa_conn



%>

grazie