Hola:
Estoy intentando hacer que cada registro de una tabla exista en otra, para eliminar los que sean iguales en las dos tablas.
O sea quiero que busque cada registro de RsCorreosaBorrar en RsBoletindiario2 para que luego si coinciden borrarlos en RsBoletindiario2, pero me recorre un recordset y cuando llega al final no me avanza en la otra tabla. ¿Pueden decirme por qué?
Mi codigo es:
Código:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%response.Expires=0
Response.AddHeader "PRAGMA", "NO-CACHE"
%>
<body>
<!--Incluimos el fichero de constantes-->
<!--#include file="../adovbs.asp" -->
<%
'Para conexión a dsn arsys con ACCESS
Set Conn= Server.CreateObject("ADODB.Connection")
Set Command= Server.CreateObject("ADODB.Command")
Conn.open "DSN=emailrevisar"
Command.ActiveConnection=Conn
Command.CommandType=adCmdText
'Listamos los registros de Boletindiario2
Command.CommandText="select * FROM boletindiario2"
Set RsBoletindiario2=Command.Execute ()
'Listamos todos los registros en la tabla correosaborrar
Command.CommandText="select * FROM correosaborrar"
Set RsCorreosABorrar=Command.Execute ()
RsCorreosABorrar.movefirst
do while not RsCorreosABorrar.eof
Response.write "<font color=""green"" size=""5"">" & RsCorreosABorrar("id") & ".- " & RsCorreosABorrar("email") & " de la Tabla CorreosABorrar comparado con </font>"
Do while not RsCorreosABorrar("email") = RsBoletindiario2("email")
Response.write "<br>" & RsBoletindiario2("id") & " " & RsBoletindiario2("email") & " <br><font color=""red"">emails son distintos</font><br>"
RsBoletindiario2.movenext
Loop
RsCorreosABorrar.movenext
Loop
%>
</body>
Muchas gracias de antemano a todos