<%
  
  If objRS.EOF  Then  
     'no records returned
  Else    
     Do  While Not objRS.EOF  
         Call objGraph.AddRowData(objRS("ProductName") & "",  _  
             ParseDbl(objRS("Weight") & ""))  
        objRS.MoveNext  
     Loop  
     objRS.Close  
      
     With ObjGraph  
          'Add some variables
          objGraph.XScaleValues = "Product"
          objGraph.xALign = "center"
          objGraph.yLabel = "Weight"
          objGraph.Title = "Product Weights"
     End  With  
     objGraph.Draw  
    'or  
    'Response.Write(objGraph.GetGraph)  
  End  If  
  
  Function ParseDbl(ByVal s)  
     If  IsNumeric(s)  Then ParseDbl=CDbl(s)  Else ParseDbl=0  
  End  Function  
  
%>