<%@ Language=VBScript %> <% Option Explicit %> <% Dim objCN Dim strsql, objRS Dim i, FieldArray Set objRS = Server.CreateObject("ADODB.Recordset") Set objCN = Server.CreateObject("AdoDB.Connection") ' Create test data table If True Then ' A Jet SQL Database objCN.ConnectionString = "DSN=datasource" strsql = "CREATE TABLE tblData "&_ "(Field1 AUTOINCREMENT UNIQUE NOT NULL PRIMARY KEY,"&_ "Field2 INTEGER, Field3 TEXT(50), Field4 TEXT(50))" Else ' A SQL Server Database objCN.ConnectionString = "Provider=SQLOLEDB.1;"&_ "User ID=sa;Data Source=localhost;"&_ "Initial Catalog=sqltest;Password=;" strsql = "CREATE TABLE tblData "&_ "(Field1 INTEGER IDENTITY PRIMARY KEY,"&_ "Field2 INTEGER, Field3 NVARCHAR(50), Field4 NVARCHAR(50))" End If objCN.Open objRS.Open strsql,objCN,adOpenForwardOnly,adLockReadOnly,adCmdText ' Populate the test data table with test data. objRS.Open "tblData", objCN, adOpenStatic, adLockOptimistic, adCmdTable FieldArray = Array("Field2","Field3","Field4") For i = 1 To 100 objRS.AddNew FieldArray, Array(879,"This is test data","abc") objRS.AddNew FieldArray, Array(458,"more test data.","def") objRS.AddNew FieldArray, Array(77,"another test","ghi") objRS.AddNew FieldArray, Array(66,"test test test","jkl") objRS.AddNew FieldArray, Array(54,"testing, 123","mno") objRS.AddNew FieldArray, Array(88,"test data test data","pqr") objRS.AddNew FieldArray, Array(498,"testing again","stu") objRS.AddNew FieldArray, Array(64,"test again","vwx") objRS.AddNew FieldArray, Array(8,"done testing","yz") objRS.AddNew FieldArray, Array(58,"again","xxx") Next objRS.Update Response.write "added 1000 rows to new table tblData" objRS.Close objCN.Close Set objRS = Nothing Set objCN = Nothing %>