Quiz query Access

USE tempdb;

CREATE TABLE Numbers1(
Number int NOT NULL
);

CREATE TABLE Numbers2(
Number int NOT NULL
);

INSERT INTO Numbers1 VALUES(1);
INSERT INTO Numbers1 VALUES(2);
INSERT INTO Numbers1 VALUES(3);
INSERT INTO Numbers1 VALUES(4);
INSERT INTO Numbers1 VALUES(5);

INSERT INTO Numbers2 VALUES(1);
INSERT INTO Numbers2 VALUES(4);
INSERT INTO Numbers2 VALUES(6);
INSERT INTO Numbers2 VALUES(8);
INSERT INTO Numbers2 VALUES(9);

SELECT Number
FROM Numbers1
UNION
SELECT Number
FROM Numbers2
ORDER BY Number

/* Output:

Number      
----------- 
1
2
3
4
5
6
8
9

(8 row(s) affected)

*/

DROP TABLE Numbers1, Numbers2;

sql="SELECT distinct  MARCA from "& rsCataloghi("CATALOGO") &" " 

<SCRIPT LANGUAGE=javascript> 
function invia() 
{ 
document.form.submit(); 
} 

</SCRIPT> 
<form name="form" method="post" action="combo2.asp"> 

<p align="center"><select size="1" name="MARCA" onChange="invia()"> 
<option><----scelga la marca----></option> 
<% 
'Definisco i cataloghi dove cercare 
Dim strSearch 
set rsCataloghi=ConnShop002.execute ("SELECT CATALOGO FROM cataloghi ORDER by catalogo desc") 
while not rsCataloghi.eof 
%> 

<% 
'EFFETTUO LA RICERCA NEI CATALOGHI 
sql="SELECT DISTINCT MARCA from "& rsCataloghi("CATALOGO") &" " 
set rs=server.createobject("adodb.recordset") 

rs.open sql, ConnShop002, 1, 3 
%> 
<% 

Set Rs = ConnShop002.Execute(SQL) 
While Not rs.EOF%> 


<option><%=RS("MARCA")%></option> 
<% 
rs.MoveNext 
Wend 
%> 
<% 
rsCataloghi.movenext 
wend 
%> 
</select> 
</form> 
<div align="center"> 
<% 
rs.close 
'ConnShop002.close 
set rs=nothing 
'set ConnShop002=nothing 
%>