BarrMan
11-23-2005, 07:52 PM
<%@ Language=VBScript %>
<%
On Error Resume Next
Dim path, conn, sql
path = Server.MapPath("db1.mdb")
set conn = Server.CreateObject("ADODB.Connection")
conn.Open "provider=microsoft.jet.oledb.4.0;data source=" &path
For i = 1 To 120
SQL = "ALTER TABLE 4 ADD [o" & i & "] int"
conn.Execute SQL
Response.Write SQL & "<BR>"
Next
conn.Close
set conn = Nothing
If Err.number <> 0 Then
Response.Write Err.Description
End If
%>
The error is: "Too many fields"
<%
On Error Resume Next
Dim path, conn, sql
path = Server.MapPath("db1.mdb")
set conn = Server.CreateObject("ADODB.Connection")
conn.Open "provider=microsoft.jet.oledb.4.0;data source=" &path
For i = 1 To 120
SQL = "ALTER TABLE 4 ADD [o" & i & "] int"
conn.Execute SQL
Response.Write SQL & "<BR>"
Next
conn.Close
set conn = Nothing
If Err.number <> 0 Then
Response.Write Err.Description
End If
%>
The error is: "Too many fields"