pretendo cambiar los datos de una base de datos a otra, de informix a access, la coeccion por separado funcionan, me podrian decir si esto se puede o no, esto se me ocurrio
<%
Dim captura, rfc 'datos del formulario
Dim qry, rs 'para informix
Dim oConn, rs1, SQL 'para access
captura=CStr(Request.Form("Captura"))
rfc=CStr(Request.Form("rfc"))
Conn_String = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("nomina.mdb")
Set oConn= Server.CreateObject("ADODB.Connection")
oConn.Open (Conn_String)
set rs=Server.CreateObject("ADODB.Recordset")
SQL= "Select * FROM emp_pza_ct "
rs.Open SQL, oConn
' checar si existe el RFC en la base de datos
Do While not rs.EOF
'Response.Write("<A HREF=""formulario.asp"">rs.fields("rfc")</A><br>")
response.write (rs.fields("rfc")+"<br>")
response.write (rs.fields("nom_emp")+"<br><br>")
rs.MoveNext
Loop
qry = "select * from emp_pza_ct"
set rs1 = server.createobject("adodb.recordset")
rs1.open qry,"nomina"
do while not rs1.eof
rs.AddNew
rs.field("rfc")=rs1.field("rfc")
rs.Update
'response.write rs(0)+", "+Cstr(rs(1))+"<br>"
rs1.movenext
loop
rs.Close
rs1.Close
response.write("usuario")
Response.Write("<A HREF=""formulario.asp"">Regresar al formulario</A><br>")
%>
