Depurar codigo pesimamente hecho

[under_milox]

Holas

He hecho este codigo (pesimo) con una idea en mente
sacar datos de una tabla especifica de una base de datos alojada en un servidor sql externa y guardarlos en una base local de acces validadando que no se repitan los campos.

es un lio no?

si alguien me puede ayudar a pepurar este codigo (insisto pesimoo!) se lo agradeceria

Código:

<%Dim conexion, conexion2, Rs, SQL , rs2,a,b,sw

PasAnt = "xxxxx"
UsuAnt = "xxxxx"
  
 
str = "DSN=ADODBC;UID=" & UsuAnt & ";PWD=" & PasAnt & ";"
Set conexion = Server.CreateObject("ADODB.Connection")
Set Rs1 = Server.CreateObject("ADODB.Recordset")
conexion.Open "Provider=SQLOLEDB;Data Source=serversql;Initial Catalog=prueba;", UsuAnt, PasAnt
SQL = "Select folio codaux FROM iw_gsaen where folio > 160000"
Set Rs1 = conexion.execute(SQL)

Set conexion2= Server.CreateObject("ADODB.connection")
Set Rs2 = Server.CreateObject("ADODB.recordset")
conexion2.open="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.MapPath("base/Gestion2.mdb")

rs2.open "checkfactdesp2" , conexion2, 1,3
a=0
	rs1.movefirst
  do while not rs1.eof     
   
   			b=0
			sw = 0
			rs2.movefirst
			while not rs2.eof
					if sw=0 then
		   	
							If Cdbl(rs1(a)) = Cdbl(rs2(b)) Then
							
								sw=1
							else b=b+1
							end if
					end if
			rs2.movenext
			wend
				if sw=0 then
				rs2.addnew 	
				
						rs2 ("a")= rs1(b)
				rs2.update
				end if
	rs1.movenext
		a=a+1
loop	
		
               
          
   

  
 %>

[JuanRAPerez]

ummm

1 no quieres que sepita en access? o que no venga repetido de SQL Server?

lo correcto seria

1 ponerle un "distinct(TuCampo)" al sql server para que no se repita.
2 antes de insertar en acces haces un select a ese campo a ver si existe. si existe no insertas, si no existe lo insertas

solo serian 3 consultas si hacer tanto codigo

suerte

[under_milox]

Pero se puede hacer un select distinct tomando como parametro otra base de datos???
Osea que seleccione el campo, si el campo no se repite en otra base de datos???

Me podrias dar una orientacion con ese codigo

Muchas gracias por la respuesta anterior en todo caso, pero la verdad que no entendi mucho la idea