Scheduling a report to run right now (VB)

This example retrieves the first report named MyReport.rpt, and schedules it to run every two months, starting immediately.

<%

On Error Resume Next

'Retrieve InfoStore.

Set IStore = Session("IStore")

'The following line queries for a report named ScheduledReport.rpt.

'Change the value of SI_NAME to the name of a report that has been scheduled.

Set Result=IStore.Query("Select SI_SCHEDULEINFO From CI_INFOOBJECTS Where SI_NAME='ScheduledReport.rpt'")

Dim ReportObject

'Retrieve the first report.

Set ReportObject=Result.Item(1)

Dim SchInfo

'Create an interface to the scheduling options for the report.

Set SchInfo = ReportObject.SchedulingInfo

'Use the scheduling object to set the scheduling options

'Schedule is monthly.

SchInfo.Type=4

SchInfo.IntervalMonths = 2

SchInfo.RightNow = 1

'Schedule the report.

'The line below is commented out in this example to ensure that the report

'is not changed. For this example to work correctly, however, this line must run.

'IStore.Schedule Result

Response.Write "The report has been scheduled to run right now."

%>