| Dim inM_Conn |
| Set inM_Conn = Server.CreateObject("ADODB.Connection") |
| inM_Conn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("test.mdb") |
|
| inM_Conn.execute("CREATE TABLE [Key_Info] (" & _ |
| "[ID] integer IDENTITY (1,1) not null," & _ |
| "[mode] integer null Default 0," & _ |
| "[CDate] datetime null Default now()" & _ |
| ") ") |
|
| inM_Conn.Close |
