Union

Script che mostra come unire il risultato di query su più tabelle:

<%
Dim cn,cm
Set cn = Server.CreateObject("ADODB.Connection")
cn.Open "driver={Microsoft Access Driver (*.mdb)};dbq="& 
Server.MapPath("Archivio.mdb")
set rs=cn.execute ("Select * from tabella union Select * from 
secondatabella")
while not rs.eof
response.write rs(0)&"<br>"
rs.movenext
wend
cn.close
Set cn = NOTHING
Set rs = Nothing
%>

In questo caso le due tabelle dovranno avere lo stesso numero 
di campi altrimenti restituirà un errore. E' possibile unire 
anche tabelle con strutture diverse, ma in questo caso bisogna dichiarare 
quali campi si vogliono utilizzare:
set rs=cn.execute ("Select nome,eta from tabella union Select 
name,age from secondatabella")
Come richiamare i valori? 

<%
nome=rs(0)
eta=rs(1)
%>