'RECUPERO I DATI DAL FORM
reg = request("regioni")
prov = request("capoluogo")
com = request("comuni")
cond = request("condizione")

'CONN AL DATABASE
Dim Cn
Set Cn=Server.CreateObject("ADODB.Connection")
Cn.Open "driver={Microsoft Access Driver (*.mdb)};dbq="& server.MapPath(path&"/DATABASE.mdb")
Dim SQL, REC, SQLX, RECX


'LA VARIABILE
Dim strVAR

if cond = "TUTTE" Then 
strVar = False
else
strVar = True
end if

if strVar = False Then

SQL = "select * From TABELLA WHERE 1=1"

If ucase(trim(reg)) <> "0" then
   SQL = SQL & " AND REGIONI = '"& reg &"'"
End if

If ucase(trim(prov)) <> "0" then
  SQL = SQL & " AND CAPOLUOGO = '"& prov &"'"
End If

If ucase(trim(com)) <> "TUTTI" then
  SQL = SQL & " AND COMUNI = '"& com &"'"
End If

Set REC = Cn.Execute(SQL)

.............

'IL PRIMO RECORDSET E' PIENO
if not REC.eof then 

'CICLO SUL PRIMO RECORDSET 
While Not REC.EOF 

'MUOVO IL PRIMO
REC.MoveNext
Wend
end if

'CHIUDO IL PRIMO
REC.Close
Set REC = Nothing

end if

if strVar = True then

SQLX = "select * From TABELLAN2 WHERE 1=1"

If ucase(trim(cond)) <> "TUTTE" then
   SQLX = SQLX & " AND condizione = '"& cond &"'"
End if

Set RECX = Cn.Execute(SQLX)

'CONTROLLO SUL SECONDO RECORDSET
'IL SECONDO E' PIENO
if not RECX.eof then 

'CICLO SUL SECONDO RECORDSET
While Not RECX.EOF 

'MUOVO IL SECONDO
RECX.MoveNext 
Wend
end if

'CHIUDO LA CONNESSIONE
Cn.Close
Set Cn = Nothing
end if

reg = 0 
prov = 0 
com = tutte 
cond = tutte