Working in InterDev problem with RecordSet

Code listed below works till I attempt to bring in a record set,  I have no idea what is wrong.  This is my first attempt developing in InterDev.  Any ideas and help would be great.  I need the recordset to come in and populate a bubble chart.
****************CODE******************

<Script Language=VBScript RUNAT=Server>
 '  DTCSetSession sets how the system handles delection of files.
    'Const ktKillFile = False
    'Const ktSession = True
    Const ktTIME = 2
      If Not IsObject(TimeGraph) Then
            Set TimeGraph = Server.CreateObject("GSServer.GSServerProp")
      End If
'    an Expiration for this HTML file on the User's end
      'Response.Expires = 0
'      By setting the session to ktPUSH, we are indicating that the
'      file delection will be handled by the GSServerImage class in conjuction
'      with the Image.ASP file.  The number in the 4th parameter of the
'      SendImage() function is passed directly to the Response.Expires setting
'      for the image.    
      TimeGraph.DTCSetSession = ktTime            'Valid setting of 0, 1, 2
      TimeGraph.URL = "Images/"
      TimeGraph.Path = Server.MapPath(TimeGraph.URL)

      rstTime.moveFirst
      i = 1
      While Not rstTime.EOF
            rstTime.moveNext
            i = i+1
      Wend
      
    With TimeGraph
      .NumSets = 2                          'Required
      .NumPoints = i                                    'Number of Bubbles desired 'Number of records
      .graphType = 12                       'Bubble graph
        rstTime.moveFirst
        
      For i = 1 To .NumPoints
         .ThisSet = 1
         .Data(i) = rstTime(AvgUnits)       'Diameter 'CDbl(rs("NumberOfContracts").Value)
         .XPos(i) = rstTime(AvgTime)            'X Position 'CDbl(rs("BuildAmount").Value)
         .ThisSet = 2
         .XPos(i) = rstTime(AvgROI)                  'Y Position 'CDbl(rs("NumberOfUnits").Value)
         .Color(i) = i
         .Legend(i) = CStrrstTime(TimePeriod)
         rstTime.moveNext
      Next  
      .NewLineChar = 126                              'Set the line return so graph can have you line labels
      .Background = 15                                    'Set the Background color to White
      .Palette = 9                                          'Set the Color Palette for the Bubble to default
      '.SDKPaint = 1
      '.DrawMode = 3
      .Output = ".PNG"  'Determines type of image fie outputted
      .Height = 300
      .Width = 300
      TimeGraph_Filename = .DrawGraph() 'Returns a randomly generated filename
        .MapFormat = 0
        TimeGraph_Width = TimeGraph.Width
        TimeGraph_Height = TimeGraph.Height
        TimeGraph.TraceClass = True
        TimeGraph_File = TimeGraph.DrawGraph()
        TimeGraph.TraceClass = False
        TimeGraph_Ext = TimeGraph.Output
        If TimeGraph.MapFormat = 0 then
            TimeGraph_Map = TimeGraph.GetMap(Server.MapPath(TimeGraph_File + ".map"))
        End If

   End With
</Script>

<BODY>

<!--METADATA TYPE="DesignerControl" startspan
<OBJECT classid="clsid:9CF5D7C2-EC10-11D0-9862-0000F8027CA0" id=rstTime style="LEFT: 0px; TOP: 0px">
      <PARAM NAME="ExtentX" VALUE="12197">
      <PARAM NAME="ExtentY" VALUE="2090">
      <PARAM NAME="State" VALUE="(TCConn=\qcnnTime\q,TCDBObject=\qDE\sCommands\q,TCDBObjectName=\qTime\q,TCControlID_Unmatched=\qrstTime\q,TCPPConn=\qcnnTime\q,RCDBObject=\qRCDBObject\q,TCPPDBObject=\qDE\sCommands\q,TCPPDBObjectName=\qTime\q,TCCursorType=\q3\s-\sStatic\q,TCCursorLocation=\q3\s-\sUse\sclient-side\scursors\q,TCLockType=\q3\s-\sOptimistic\q,TCCacheSize_Unmatched=\q100\q,TCCommTimeout_Unmatched=\q30\q,CCPrepared=0,CCAllRecords=1,TCNRecords_Unmatched=\q10\q,TCODBCSyntax_Unmatched=\q\q,TCHTargetPlatform=\q\q,TCHTargetBrowser_Unmatched=\qServer\s(ASP)\q,TCTargetPlatform=\qInherit\sfrom\spage\q,RCCache=\qRCBookPage\q,CCOpen=1,GCParameters=(Rows=0))"></OBJECT>
-->
<!--#INCLUDE FILE="_ScriptLibrary/Recordset.ASP"-->
<SCRIPT LANGUAGE="JavaScript" RUNAT="server">
function _initrstTime()
{
      thisPage.createDE();
      var rsTmp = DE.Recordsets('Time');
      rstTime.setRecordSource(rsTmp);
      rstTime.open();
      if (thisPage.getState('pb_rstTime') != null)
            rstTime.setBookmark(thisPage.getState('pb_rstTime'));
}
function _rstTime_ctor()
{
      CreateRecordset('rstTime', _initrstTime, null);
}
function _rstTime_dtor()
{
      rstTime._preserveState();
      thisPage.setState('pb_rstTime', rstTime.getBookmark());
}
</SCRIPT>

<!--METADATA TYPE="DesignerControl" endspan-->

      <img src="Image.asp?Image=<% = TimeGraph_File + TimeGraph_Ext%>" border="0" width="<% = TimeGraph_Width %>" height="<% = TimeGraph_Height %>"></a><br>

</BODY>
</HTML>
akeyesAsked:
Who is Participating?
I wear a lot of hats...

"The solutions and answers provided on Experts Exchange have been extremely helpful to me over the last few years. I wear a lot of hats - Developer, Database Administrator, Help Desk, etc., so I know a lot of things but not a lot about one thing. Experts Exchange gives me answers from people who do know a lot about one thing, in a easy to use platform." -Todd S.

robbertCommented:
Where does the error occur?

Hopefully not in _ScriptLibrary/RECORDSET.ASP - as always, line 476?
0
jamestthomasCommented:
where does rstTime come from.  I dont see it initialized or loaded???
0
akeyesAuthor Commented:
To Robert:
Line 20 just as I start to use the Data.
rstTime.moveFirst

To jamestthomas:
I am using a DE Connection thur the InterDev program.  Since this is my first program with InterDev that may not be the right.

0
Get your problem seen by more experts

Be seen. Boost your question’s priority for more expert views and faster solutions

larry_chaseCommented:
to get the recordset:

dim cn
dim rsTime
dim rsString

set cn = createobject("ADODB.Connection")
cn.open "dsn=<your dsn>"

set rsObj = createobject("ADODB.Recordset")
rsString = "Select * from <tablename>"
rsTime.open rsString, cn

now you have the rsTime to work with.

don't forget to add this att the end

rsTime.Close
set rsTime = nothing
rscn.Close
set rscn = nothing
0

Experts Exchange Solution brought to you by

Your issues matter to us.

Facing a tech roadblock? Get the help and guidance you need from experienced professionals who care. Ask your question anytime, anywhere, with no hassle.

Start your 7-day free trial
jamestthomasCommented:
The "answer" is the basic thing everyone does all the time.  That's why i was asking where you loaded the recordset.  I would keep the question open to get some feedback on what you were trying to do with the DE connection. Otherwise, get a book on ASP, WROX has some good ones or go online and do some research. Good luck.
0
HencahCommented:
Make sure you've enabled scripting object model, by the way how did you create the DE Connection? I hope you had understood how to create such a data command in Interdev.
0
It's more than this solution.Get answers and train to solve all your tech problems - anytime, anywhere.Try it for free Edge Out The Competitionfor your dream job with proven skills and certifications.Get started today Stand Outas the employee with proven skills.Start learning today for free Move Your Career Forwardwith certification training in the latest technologies.Start your trial today
ASP

From novice to tech pro — start learning today.