<%@ Language='VBScript' %> <% Dim PieChart, FileName Set PieChart = Server.CreateObject("WCP.WCPCharts") FileName = PieChart.CreatePieChart(arrChartData) %> ##

##

<%@ Language='PerlScript' %>

<%
  my $return;
  my $labels = "first,second,third";
  my $averages = "3,4,5";
  my $maxes = "6,7,8";
  my $mins = "1,2,3";

  my $ChartObject = $Server->CreateObject("WCP.WCPCharts")
  $ChartObject->CreateBarChart($return, $labels, $averages);
%>

<%=$return%>