高手来帮忙了。超级难的问题。
<!--#include   file= "conn.asp "   -->
<%
Height=200     '//图表高度
Width=600       '//图表宽度
posX=390-Width/2     '//相对浏览器的X位置
posY=70                       '//相对浏览器的Y位置
scaleX=50     '//最好为Width值的倍数
scaleY=50     '//最好为Height值的倍数
countX=Cint(Width/scaleX)
countY=Cint(Height/scaleY)
set   rs=server.createobject( "adodb.recordset ")
exec= "select   *   from   table "       '//从table中读出数据，一共有3组，表中有2列x和y
rs.open   exec,conn,1,1
data= "100,100|200,200|300|300 "         '//这里是主要的问题，我想把这里的数据换成我的数据库里的那三组。要怎么写啊
TempData=Split(data, "| ")
TempDataCount=UBound(TempData)+1
%>


------解决方案--------------------
rs.open exec,conn,1,1
Dim data : data = " "
Do While Not Rs.Eof
data = Data & "| "& Rs( "x ")& ", "&Rs( "y ")
Rs.MoveNext
Loop
Rs.Close
Set Rs=Nothing
Data = right(Data,Len(Data)-1)