Ciao oliweb76,
poresti risolvere il problema come segue.
Crea una pagina con un form dove inserire i dati: TitoloFilm, DataIniziale, DataFinale.
In un'altra pagina (o la stessa) che riceve i dati puoi creare un ciclo while dove incrementi la data iniziale fino ad arrivare alla data finale e ad ogni ciclo fai un insert.
Ovvero all'incirca:

<%
' inizializzazione recordset rsProgrammazione
Dim rsProgrammazione

Set rsProgrammazione = CreateObject ...
...
...
rsProgrammazione.Open()

DataIniziale = Request("DataIniziale")
DataFinale = Request("DataFinale")
GiornoIniziale = Day(DataIniziale)
MeseIniziale = Month(DataIniziale)
AnnoIniziale = Year(DataIniziale)

While (DateDiff("d", DateSerial(AnnoIniziale, MeseIniziale, GiornoIniziale), DataFinale) >= 0)
rsProgrammazione.AddNew()
rsProgrammazione.Fields.Item("TitoloFilm").Value = Request("TitoloFilm")
rsProgrammazione.Fields.Item("DataProgrammazione").Value = DateSerial(AnnoIniziale, MeseIniziale, GiornoIniziale)
rsProgrammazione.UpDate()

GiornoIniziale = GiornoIniziale + 1
Wend

rsProgrammazione.Close()
Set rsProgrammazione = Nothing
%>

... tieni conto che l'ho scritto di getto e quindi potrebbero esserci degli errori !
Spero comunque di esserti stato di aiuto.

Fammi sapere, ciao.

Umb