Select field in table - insert into another table

[phoenixaz]

I want to insert into a newly created TABLE2, the email field in TABLE1.

This is a sql database.

Doesn't seem to work. Am I making this more complex then necessary?

I appreciate your help.

set conndatabase = server.CreateObject("adodb.connection") 
conndatabase.open application("connectionstring")

 
sql = "select email from TABLE1

set rs = server.createobject("adodb.recordset")
set rs = conndatabase.execute(sql) 'get file data as recordset

do until rs.eof
   
If rs("email") <> "" Then
     email = replace(rs("email"),"'","`")
End if


sql = "insert into TABLE2(email)values (" &_
		
			"'" & email & "')"																
			
conndatabase.execute(sql)
   

rs.movenext
loop

Response.Write "done"

[gk53]

you can do something like that

<%
set conndatabase = server.CreateObject("adodb.connection") 
conndatabase.open application("connectionstring")

 
sql = "select email from TABLE1"

set rs = server.createobject("adodb.recordset")
rs.open sql, conndatabase

do until rs.eof
   
If rs("email") <> "" Then
    email = replace(rs("email"),"'","`")
    sql = "insert into TABLE2(email)values (" & "'" & email & "')"																
    conndatabase.execute(sql)
End if
rs.movenext
loop

Response.Write "done"

[phoenixaz]

Thanks!

That works good and a cleaner approach with coding it.

I appreciate it.