<%@ Language='VBScript' %>

<%
  Dim strReturn
  Dim strLabels
      strLabels = "first,second,third"
  Dim strAverages
      strAverages = "3,4,5"
  Dim strMaxes
      strMaxes = "6,7,8"
  Dim strMins
      strMins = "1,2,3"

  Dim objChart
  Set objChart = Server.CreateObject("WCP.WCPCharts")
  objChart.CreateBarChart strReturn, strLabels, strAverages
%>

<%=strReturn%>