inserire record in automatico

[Subroutine72]

ciao,
dovrei inserire 3300 record in un database Access, c'è un modo per farlo in automatico?
Ogni record dovrebbe avere i stessi valori per tutti i campi ma cambia la data relativa ai 5 prossimi mesi e il nome dell'aula da prenotare.
Dovrei avere ogni giorno associato ad un aula, quindi circa 150 giorni, ci sono 20 aule quindi 150*20= 3000 record.
Grazie.

[lufo5]

qualcosa di simile?

Sub insRighe(datainizio, datafine)
  
  For dd = 0 To DateDiff("d", datainizio, datafine)
    For aa = 1 To 20
      Sql = "INSERT INTO tabella (data, aula) VALUES (#" & DateAdd("d", dd, datainizio) & "#, '" & aa & "');"
      oConn.Execute Sql
      
    Next
  Next
End Sub

[Subroutine72]

<%
Data1=request.form("Data1")
Data2=request.form("Data2")

Set OBJdbConnection = Server.CreateObject("ADODB.Connection")
OBJdbConnection.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("didattica.mdb")
Set RS=Server.CreateObject("ADODB.Recordset")
RS.Open "tblPrenotaP",OBJdbConnection,3,3

for DataCi=Data1 to Data2
insert into tblPrenotaP (DataC) values (DataCi)
next

RS.Close
OBJdbConnection.Close
%>

ma non funziona!
Cosa c'è di sbagliato?

[dizionario]

Che questo è un codice di SQL non di asp:
insert into tblPrenotaP (DataC) values (DataCi)

un altro errore sta qui:
for DataCi=Data1 to Data2

nei cicli for ci devi mettere dei numeri, non delle date

Fai come ti ha detto lufo