sql="CREATE TABLE table1("
for i=0 to rs.Fields.Count-2
sql=sql & rs(i).Name&" CHAR(100),"
Next
sql=sql & rs(rs.Fields.Count-1).Name&" CHAR(100))"
conn1.Execute sql
End if
Set rs1 = Server.CreateObject("ADODB.Recordset")
Set rs1.ActiveConnection = conn1
rs1.Source = "select * from table1"
rs1.CursorType = 3 ' adOpenKeyset
rs1.LockType = 3 'adLockOptimistic
rs1.Open
Do While Not rs.Eof
rs1.AddNew
rs1(0)=j
for i=0 to rs.Fields.Count-1
rs1(i)=Trim(rs(i))
Next
rs1.Update
rs.MoveNext
j=j+1
Loop
rs.Close
rs1.Close
conn.Close
conn1.Close
Set rs=nothing
Set conn=nothing
Set conn1=nothing
set rs1=nothing
%>