Problem setting ADO datasource and Unbound fields from ASP

[lwatanabe]

I have created a report with unbound fields with the Crystal 8 RDC in VB6 (the only possible way I know how to create a report with unbound fields aside from creating a new report at runtime) and am having some problems. The report is a template that has no database set. The report has a bunch of static text objects and a few unbound fields. I want to create an ADO recordset in ASP and set it as the report data source at run-time, then bind the unbound fields to fields in my recordset.

I am completely stumped. I get an 'index out of bounds' error when calling the SetDataSource method.

Here is the general gist of what I have been doing...

Dim dbCONN
Dim rsPriceSurvey
Dim strSQL

If Not IsObject(session("oApp&quot) Then
Set session("oApp&quot = Server.CreateObject("CrystalRuntime.Application&quot
End If

If IsObject(session("oRpt&quot) Then
Set session("oRpt&quot = Nothing
End If
Set session("oRpt&quot = session("oApp&quot.OpenReport("f:\

http://www\starnet\reports\pricesurvey.rpt",1)

session("oRpt&quot.MorePrintEngineErrorMessages = False
session("oRpt&quot.EnableParameterPrompting = False

Set dbCONN = Server.CreateObject("ADODB.Connection&quot
dbCONN.ConnectionString = "Driver={SQL Server};" & _
"Server=Server;" & _
"Uid=Uid;" & _
"Pwd=Pwd;" & _
"Database=Database;"
dbCONN.Open

strSQL = &quot;select upc from starnet.warehouse.dbo.authorized where statuscode<3 and authorized=1 and storeid<4 and keyfield>700000&quot;

Set rsPriceSurvey = Server.CreateObject(&quot;ADODB.Recordset&quot
rsPriceSurvey.Open strSQL, dbCONN, 3

session(&quot;oRpt&quot.Database.SetDataSource rsPriceSurvey, 3, 1
session(&quot;oRpt&quot.DTLUPC.SetUnboundFieldSource &quot;{rsPriceSurvey.upc}&quot;

If IsObject(session(&quot;oPageEngine&quot) Then
Set session(&quot;oPageEngine&quot = Nothing
End If
Set session(&quot;oPageEngine&quot = session(&quot;oRpt&quot.PageEngine

rsPriceSurvey.Close
dbCONN.Close
Set rsPriceSurvey = Nothing
Set dbConn = Nothing

I'm really dying, here, and any help would be so greatly appreciated.

Lance