Copia de datos Access a SQL

[dobled]

Tengo este codigo y no se que tiene de malo estoy copiando datos de una base de datos access a SQL pero me dice que tengo problemas en la pagina y no me la va a mostrar el codigo es el sgte

Código PHP:

          const base_datos="matriz.mdb"
        const driver_name="Microsoft Access Driver (*.mdb)"
        Dim oConn
        Set oconn= Server.CreateObject("ADODB.Connection")
        oConn.ConnectionTimeout = tiempo
        oConn.open "DRIVER=" & driver_name &";DBQ=" & server.mappath(base_datos)
 
 
        NxSQL = "SELECT * FROM datos"
        Set RS = Server.CreateObject("ADODB.Recordset")
        RS.Open NxSQL, oConn,3,1
 
        If Not RS.EOF Then
        Rut = Rs("rut1")+"-"+Rs("rut2")
        apellidos = Rs("apellidos")
        nombre = Rs("nombre")
        departamento = Rs("departamento")
 
        SQL = "Driver={SQL Server};Description=sqldemo;SERVER=sql_ipaper; UID=sa;PWD=sa;DATABASE=TPM"
        set oConn = server.createobject("adodb.connection")
        Server.ScriptTimeout = 600
        oConn.open SQL
 
        SQL="INSERT INTO tpm_personal (nombres, apellidos, rut, departamento)"
        SQL=SQL & " Values ('"&nombres&"','"&apellidos&"','"&rut&"','"&departamento&"')"
        oConn.Execute(SQL)
 
        Response.Write("Registro--> "&Rut&" -->Ingresado")
        Rs.MoveNext
        Loop 
   

[dobled]

No se preocupen ya lo solucione tenia que reemplazar el if por un Do While

Gracias de todas maneras