<%
set Conn=Server.CreateObject("ADODB.Connection")
strAccessDB = "email"
Conn = "DRIVER={Microsoft Access Driver (*.mdb)};uid=;pwd=; DBQ=" & Server.MapPath(strAccessDB)
set RSconsulta = server.createobject("adodb.recordset")
SQLconsulta = "SELECT * FROM email"
RSconsulta.Open SQLconsulta, Conn
set rsVac = server.createobject("adodb.recordset")
SQLconsulta2 = "SELECT * FROM arquitectura"
rsVac.Open SQLconsulta2, Conn
Do While Not rsVac.EOF
Do While Not RSconsulta.EOF
response.write Right(rsVac(1),Len(rsVac(1)) - InStr(rsVac(1),"@")) & "======" & RSconsulta("nombre") & "<br>"
RSconsulta.MoveNext
Loop
rsVac.MoveNext
Loop
%>
Son 2 tablas, en este caso solo me compara una con otra para ver si existe el mismo nombre tanto en una como en otra, pero no se porque motivo de la tabla email (Do While Not rsVac.EOF) solo me recorre el primer registro, que es quedaria así
ctav.es======arrakis.es
ctav.es======yahoo.com
ctav.es======yahoo.es
ctav.es======teleline.es
ctav.es======terra.es
ctav.es======hotmail.com
ctav.es======iespana.es
ctav.es======telefonica.net
Alguien sabe a que puede ser debido esto???
Un saludo
