No lo puedo resolver!!!!

[Darkgas]

Gente estoy complicado con algo, hace mucho que vengo viendo esto y no logro darme cuenta como resolverlo.
Trabajo en ASP pero la casi siempre utilizo Dreamweaver para hacer las paginas.
Necesito extraer datos de una conexión ODBC(AS400) y copiarlos en una tabla MySql.
Lo que tengo hasta el momento es este codigo, que usa la conexión ODBC(funciona bien).

<!--#include file="../../Connections/TramiteLinea.asp" -->
<%
Dim Recordset1
Dim Recordset1_cmd
Dim Recordset1_numRows

Set Recordset1_cmd = Server.CreateObject ("ADODB.Command")
Recordset1_cmd.ActiveConnection = MM_TramiteLinea_STRING
Recordset1_cmd.CommandText = "SELECT WRTRAM, WRLOTE, WRNMIN, WRCODP FROM CSTLIBDTA.CSWKRL01 WHERE WRAAFC > 2009 ORDER BY WRTRAM ASC, WRLOTE ASC"
Recordset1_cmd.Prepared = true

Set Recordset1 = Recordset1_cmd.Execute
Recordset1_numRows = 0
%>


Bueno, ahora quiero copiar todos los registros de estos campos y pegarlos en una tabla de MySql(la base se llama Bases y la tabla tmp_inscriptosentramite y tiene exactamente los mismos campos)

Espero que me puedan dar una idea de como resolverlo.

Muchas gracias!!!!!!!!!!!!!!!