Using ASP to generate two-dimensional puzzle

<%@ Language=vbscript%>
<HTML>
<HEAD>
<meta name= "generator" content= "Microsoft Visual Studio 6.0" >
</HEAD>
<BODY>
<object classid= "clsid:3a2b370c-ba0a-11d1-b137-0000f8753f5d"
Id=mschart1 style= "left:0px; top:0px "Viewastext height=300 width=300></object>
<script language= "VBScript" >
<%
Set objconn = Server.CreateObject ("ADODB. Connection ")
objconn. ConnectionString = "Dsn=advworks"
objConn.Open
Set objRS = Server.CreateObject ("ADODB. Recordset ")
Objrs.activeconnection = objconn
Objrs.cursorlocation = 3
Objrs.open ("Select Orderdetailid,unitprice from Order_Details")
I=1
Response.Write "Const num =" & objRS. RecordCount & vbcr
Response.Write "Dim ID (" & objRS. RecordCount & ")" & vbcr
Response.Write "Dim Details" & objRS. RecordCount & ")" & vbcr
Do as Not objrs.eof
Response.Write ("ID (" & I & ") =" "" & objRS (0) & "" "" & Chr (13))
Response.Write ("Details" ("& I &") = "" & objRS (1) & "" "" & Chr (13))
I=i+1
Objrs.movenext
Loop
%>
Mschart1.titletext = "Example"
Mschart1.rowcount = 1
Mschart1.columncount = num
For i = 1 to num
Mschart1.column = i
Mschart1.columnlabel = ID (i)
Next
Mschart1.charttype = 14 ' 14 is a two-dimensional pie chart, fitting curve I don't know how to draw yet.
Mschart1.showlegend = True
Mschart1.chartdata = Details
</SCRIPT>
</BODY>
</HTML>