Particolare controllo su db access

[orcim]

Ciao.

Dovrei:

1) controllare che nella colonna ANNO di una tbl access non ci siano records con anni precedenti (-2) a quello corrente (cioè 2006 e 2005) ;

2) In caso di mancanza degli anni 2006 e 2005 nella colonna ANNO, devo inserire una serie di 4 records con valore zero nella colonna VALORE per ciascuno degli anni 2006 (4 records) e 2005 (4 records).

Come mi consigliate di fare?

Ho scritto così:

 AnnoPrecedente = Year(Now()) - 2
 AnnoCorrente = Year(Now()) - 1
 cod = request.form("ID")

Set rec = Server.CreateObject("ADODB.Recordset")
SQL = "SELECT * FROM tbl WHERE ID = "& Cod  
rec.Open SQL, cn, 3, 3

If Not rec.EOF Then
Do While Not rec.EOF

response.write rec("anno") &"
"

if rec("anno") <> AnnoPrecedente OR rec("anno") <> AnnoCorrente then

'QUI COSA DEVO PREVEDERE?

rec.MoveNext
End If
Loop
End If

rec.Close
set rec = nothing

Cn.Close
set Cn = nothing

Grazie.

[Mems]

AnnoPrecedente = Year(Now()) - 2
AnnoCorrente = Year(Now()) - 1
cod = request.form("ID")

Set rec = Server.CreateObject("ADODB.Recordset")
SQL = "SELECT * FROM tbl WHERE ID = " & Cod  & " AND (ANNO = " & AnnoPrecedente & " OR ANNO = " & AnnoCorrente & ")"

rec.Open SQL, cn, 3, 3

If rec.EOF Then

cn.execute("INSERT INTO tbl... eccetera...)
cn.execute("INSERT INTO tbl... eccetera...)
eccetera...

Else

response.write "I dati ci sono già!"

End If

rec.Close
set rec = nothing

Cn.Close
set Cn = nothing

[orcim]

grazie mille per la risposta.

Solo una curiosità: ma devo prevedere 8 query di inserimento per inserire i 4 records per ciascun anno o esiste un modo più rapido?

Per ogni record cambia soltanto l'anno ed il quadrimestre tutti gli altri valori sono pari a zero...

[Mems]

Devi scrivere 4 cn.execute con tra parentesi l'INSERT INTO con i parametri necessari.

[orcim]

Grazie, il tuo aiuto è stato determinante !!!