La copia del código es la siguiente:
<%@Idioma = "vBscript" Codepage = "936"%>
<%
iftrim (request.form ("tableName"))
'---- Configuración para abrir la conexión de la base de datos
dbs = "dataSource ="+server.mappath ("database.mdb")+"; Provider = Microsoft.Jet.OLEDB.4.0;"
setconn = server.createObject ("ADODB.Connection")
conn.opendbs
'Defina Adox, especifique la conexión
setadox = server.createObject ("Adox.catalog")
Setadox.activeconnection = Conn
'Crear tabla, escribir atributos
SetObJTable = server.createObject ("Adox.table")
'objTable.name = "Tabla3"
objtable.name = trim (request.form ("tableName") 'Formulario Get Get
'objTable.ParentCatalog = Adox
'Defina el primer campo
setobjcolumn = server.createObject ("Adox.Column")
'Setobjcolumn.parentCatalog = Adox
objcolumn.name = "columna1"
objcolumn.type = 202'data tipo 202 representa texto,
objcolumn.Attributes = 2'1-campos requirados, 2-no requeridos
objtable.columns.apendobjcolumn
setobjcolumn = nada
'Defina el segundo campo
setobjcolumn = server.createObject ("Adox.Column")
'Setobjcolumn.parentCatalog = Adox
objcolumn.name = "columna2"
objcolumn.type = 3
objcolumn.attributes = 2
objtable.columns.apendobjcolumn
setobjcolumn = nada
Adox.tables.appendobjtable
Setadox = nada
%>
<
<htmlxmlns = "http://www.w3.org/1999/xhtml">
<Evista>
<metahttp-equiv = "content-type" content = "text/html; charset = gb2312"/>
<title> Crear tablas y campos </title>
<styletype = "text/css">
<!-
cuerpo, td, th {
tamaño de fuente: 12px;
}
->
</style> </head>
<Body>
<p> 'Usando las propiedades y colecciones del objeto <strong> columna </strong>, puede: <br/>
'Identifique la columna utilizando la propiedad de nombre. <br/>
'Use la propiedad Tipo para especificar el tipo de datos de la columna. <br/>
'Use el atributo de atributos para determinar si la columna es una longitud fija o si puede contener un valor nulo. <br/>
'Use la propiedad DefinedSize para especificar el tamaño máximo de la columna. <br/>
'Para los valores de datos numéricos, use la propiedad NumericScale para especificar el rango. <br/>
'Para los valores de datos numéricos, use la propiedad de precisión para especificar la precisión máxima. <br/>
'Use el atributo de ParentCatalog para especificar el catálogo principal de la columna. <br/>