Отчет о занятости номера

Question

По сути, мне нужно запускать скрипт на каждый день. У меня уже есть сценарий, показывающий мне занятость комнаты, но только на один день, любое предложение о том, как я могу сделать для каждого дня между датами. вот пример скрипта

 cmd = New SqlCommand("SELECT distinct * FROM ROcupancy as R Inner Join Room as S on R.RoomNo=S.RoomNo where R.Active='Yes' and R.RoomNo not in (Select RoomNo from Reservation,Room where Room.R_ID=Reservation.RoomID and Status ='Reserved' and Reservation.DateIn < @d1 AND Reservation.DateOut > @d2 ) and S.Active='Yes' and S.RoomNo not in (SELECT RoomNo FROM Checkin_Room,Room where Room.R_ID=CheckIn_Room.RoomID and Status = 'Check In' and Checkin_Room.DateIn < @d1 AND Checkin_Room.DateOut > @d2)", con)


cmd.Parameters.Add("@d1", SqlDbType.DateTime, 30, "DateOut").Value = DateTimePicker2.Value.Date
cmd.Parameters.Add("@d2", SqlDbType.DateTime, 30, "DateIN").Value = DateTimePicker1.Value
            adp = New SqlDataAdapter(cmd)
            dtable = New DataTable()
            adp.Fill(dtable)
            con.Close()
            ds = New DataSet()
            ds.Tables.Add(dtable)
            ds.WriteXmlSchema("RoomOccupancy987654321.xml")
            Dim rpt As New rptROReport2
            rpt.SetDataSource(ds)
            rpt.SetParameterValue("v1", DateTimePicker2.Value.Date)
            rpt.SetParameterValue("v2", DateTimePicker1.Value.Date)
            frmReport.CrystalReportViewer1.ReportSource = rpt
            frmReport.ShowDialog()