Bueno, una forma sencilla de hacerlo es utilizando INNER JOIN.
Para ello, tendrías que cambiar el nombre de la tabla TEXTO1 y TEXTO2 de EVENTOS_CAMPANA por TEXTO3 y TEXTO4 respectivamente.
De esta forma te quedaría la BBDD así:
1) EVENTOS
-IDNOTICIA (autonumérico)
-TEXTO1 (campo texto)
-TEXTO2 (campo texto)
2) EVENTOS_CAMPANAS
-IDNOTICIA (campo numérico)
-TEXTO3 (campo texto)
-TEXTO4 (campo texto)
(en este ejemplo he quitado el sino1, así lo entenderás mejor)
Ahora bien, una vez cambiados los nombres de las tablas, tendrías que hacer la sentencia SQL de la siguiente forma:
Código:
SQL = "SELECT TOP 2 eventos.idnoticia, eventos.texto1, eventos.texto2, eventos_campana.texto3 , eventos_campana.texto4 FROM eventos INNER JOIN eventos_campana ON eventos.idnoticia = eventos_campana.idnoticia ORDER BY eventos.idnoticia DESC"
De esta forma, se mostrarán los 2 últimos eventos, y los 2 eventos_campanas que se hayan asignado a cada evento. Además, el Recordset tendrá los siguientes datos.
Rs("idnoticia") mostrará el dato de EVENTOS.IDNOTICIA
Rs("texto1") mostrará el dato de EVENTOS.TEXTO1
Rs("texto2") mostrará el dato de EVENTOS.TEXTO2
Rs("texto3") mostrará el dato de EVENTOS_CAMPANA.TEXTO3
Rs("texto4") mostrará el dato de EVENTOS_CAMPANA.TEXTO4
Por si te es de ayuda, te escribo un pequeño ejemplo:
Código:
<%@LANGUAGE="VBSCRIPT"%>
<%
Conexion = "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath(".\eventos.mdb")
Set Conn = Server.CreateObject("ADODB.Connection")
set Rs = CreateObject("ADODB.Recordset")
Conn.open = Conexion
SQL = "SELECT TOP 2 eventos.idnoticia, eventos.texto1, eventos.texto2, eventos_campana.texto3 , eventos_campana.texto4 FROM eventos INNER JOIN eventos_campana ON eventos.idnoticia = eventos_campana.idnoticia ORDER BY eventos.idnoticia DESC"
rs.open SQL, Conn, 2,3
While not rs.EOF
response.write (" EVENTOS.IDNOTICIA: " & rs("idnoticia"))
response.write (" | EVENTOS.TEXTO1: " & rs("texto1"))
response.write (" | EVENTOS.TEXTO2: " & rs("texto2"))
response.write (" | EVENTOS.TEXTO3: " & rs("texto3"))
response.write (" | EVENTOS.TEXTO4: " & rs("texto4") & "<br>")
rs.MoveNext()
Wend
Rs.close
Conn.close
set Rs = Nothing
set Conn = Nothing
%>
Enga, un saludo
LeCLUB