真心………求解………！asp记录集放入数组的问题！各位大大帮忙一下！

我是这样几步运行代码的。
先运行读取数据库这段代码是没有出错，但是记录集放入到RadiusArray，AngleArray和font时就报错。

<%?

set?conn=server.createobject("adodb.connection")

conn.open?"driver={microsoft?access?driver?(*.mdb)};dbq="&server.mappath("tongbao.mdb")

set?rs=server.CreateObject("adodb.recordset")

rs.open"SELECT?fw&'|'&fw1&'|'&fw2&'|'&fw3,jl&'|'&jl1&'|'&jl2&'|'&jl3,sj&'|'&sj1&'|'&sj2&'|'&sj3?FROM?jjjj?ORDER?BY?id?DESC",conn,3,2



Dim?JPEG

Set?JPEG?=?Server.CreateObject("Persits.JPEG")'这个是个画图软件

With?JPEG

????.Open?Server.MapPath("DrawPoint.jpg")

?????

????Dim?Width,?Height

????Width?=?JPEG.OriginalWidth

????Height?=?JPEG.OriginalHeight

?????

????Dim?i

????Dim?PI????????????????????'圆周率

????Dim?RadiusArray????????????'半径数组

????Dim?AngleArray????????????'角度数组

????Dim?XArray????????????????'计算后的X坐标

????Dim?YArray????????????????'计算后的Y坐标

????Dim?Length????????????????'

????dim?font

?????

????PI?=?3.1416

??RadiusArray?=?Split(rs(0),"|")        '这里是这样放记录集的

??AngleArray?=?Split(rs(1),"|")          '这里是这样放记录集的

??font=Split(rs(2),"|")                        '这里是这样放记录集的

?????????????

????XArray?=?Array()

????YArray?=?Array()

?????

????If?UBound(RadiusArray)?<>?UBound(AngleArray)?Then

????????Response.End

????End?If

?????

????For?i?=?0?To?UBound(RadiusArray)

????????Length?=?UBound(XArray)

????????ReDim?Preserve?XArray(Length?+?1)

????????ReDim?Preserve?YArray(Length?+?1)

?????????

????????XArray(Length?+?1)?=?Width/?2?+?RadiusArray(i)?*?Cos(((360?-?AngleArray(i)?+?90)?*?PI?/?180))/2

????????YArray(Length?+?1)?=?Height?/?2?-?RadiusArray(i)?*?Sin(((360?-?AngleArray(i)?+?90)?*?PI?/?180))/2

????Next

?????

????For?i?=?0?To?UBound(XArray)

????????If?i?<?UBound(XArray)?Then

????????????.Canvas.DrawLine?XArray(i),?YArray(i),?XArray(i?+?1),?YArray(i?+?1)

????????????.Canvas.Circle?XArray(i),?YArray(i),5

????????????.Canvas.Pen.Color=&HFFCC00

????????????.Canvas.Print?XArray(i),?YArray(i),?font(i),12

?

?

????????End?If

????Next

?????

????.Save?Server.MapPath("DrawPoint2.jpg")

End?With

response.Write?"<img?width='500'?height='500'?src='DrawPoint2.jpg'>"

Set?JPEG?=?Nothing

%>

错误是这样的：
请尝试执行下列操作：
单击刷新按钮，或稍后重试。
HTTP?错误?500.100?-?内部服务器错误?-?ASP?错误
Internet?信息服务
技术信息（用于支持人员）
错误类型：
Microsoft?VBScript?运行时错误?(0x800A000D)
类型不匹配:?'[string:?""]'
/gjjjj.asp,?第?58?行