从服务器端的数据库中读取一条记录，将记录内容写到数组中，然后将该数组的内容写到客户端的数组

Question

我从服务器端的数据库中读取一条记录，将记录内容写到数组中，然后将该数组的内容写到客户端的数组中，以便在客户端的代码中调用。但是程序运行中提示：“Response.Write "MyArray[" & i & "]=" & FormatNumber(MyArray(i,0),2,-1) & ";" & VbCrLf”这句代码有问题，不知道为什么，请各位帮助看看。
数据库
字段:A     B     C     D    E     F     G     H     I     J     
内容:1.01  1.02  1.03  1.04 1.05  +0.10 +0.04 -0.03 -0.30 +0.31
错误信息：
• 错误类型：
Microsoft VBScript 运行时错误 (0x800A000D)
类型不匹配: 'FormatNumber'
/检定校准测试记录/从数据库中提取记录写入到数组中1.asp, 第 15 行
• 浏览器类型：
Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; .NET CLR 1.1.4322; .NET CLR 2.0.50727; .NET CLR 3.0.04506.30) 
• 网页：
GET /检定校准测试记录/从数据库中提取记录写入到数组中1.asp 
• 时间：
2007年7月29日, 16:41:22 
• 详细信息：
Microsoft 支持 代码：
<!--#include file="conn.asp" -->
<%
set rs=server.CreateObject("ADODB.recordset")
'sql="select * from 标准器 where clsbmc='"&Session("bzqmc1")&"' And sbbh='"Session("bzqbh1")&"'"
sql="select * from 标准器 where clsbmc='量块' And sbbh='69-3022'"
rs.open sql,connchang,1,1
Dim MyArray
MyArray = rs.GetRows(1)
%>
<script language="JavaScript" >
var MyArray = new Array();<%
For i=1 To 20
  Response.Write "MyArray[" & i & "]=" & FormatNumber(MyArray(i,0),2,-1) & ";" & VbCrLf Next
%><form id="form1" name="form1" method="post" action="">
  <table width="842" border="1">
    <tr>
      <td width="353"><label>
        <input type="text" name="textfield1" id="textfield1" onblur="change(1)"/>
      </label></td>
      <td width="473"><input name="textfield7" type="text" id="textfield7" /></td>
    </tr>
    <tr>
      <td><input name="textfield2" type="text" id="textfield2" onblur="change(2)" /></td>
      <td><input name="textfield8" type="text" id="textfield8" /></td>
    </tr>
    <tr>
      <td><input name="textfield3" type="text" id="textfield3" onblur="change(3)" /></td>
      <td><input name="textfield9" type="text" id="textfield9" /></td>
    </tr>
    <tr>
      <td><input name="textfield4" type="text" id="textfield4" onblur="change(4)" /></td>
      <td><input name="textfield10" type="text" id="textfield10" /></td>
    </tr>
    <tr>
      <td><input name="textfield5" type="text" id="textfield5" onblur="change(5)" /></td>
      <td><input name="textfield11" type="text" id="textfield11" /></td>
    </tr>
  </table>
</form>

Answer 1

试试看
For i=0 To UBound(MyArray,1)
  Response.Write "MyArray[" & i & "]=" & FormatNumber(CDbl(MyArray(i,0)),2,-1) & ";" & VbCrLf
Next

Answer 2

还是不行，显示如下：
无法显示网页
试图访问的网页出现问题，无法显示。
请尝试执行下列操作：
&#8226; 单击刷新按钮，或稍后重试。
&#8226; 打开 localhost 主页，然后查找与所需信息相关的链接。 
HTTP 错误 500.100 - 内部服务器错误 - ASP 错误
Internet 信息服务
技术信息（用于支持人员）
&#8226; 错误类型：
Microsoft VBScript 运行时错误 (0x800A000D)
类型不匹配: 'CDbl'
/检定校准测试记录/从数据库中提取记录写入到数组中1.asp, 第 15 行
&#8226; 浏览器类型：
Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; .NET CLR 1.1.4322; .NET CLR 2.0.50727; .NET CLR 3.0.04506.30) 
&#8226; 网页：
GET /检定校准测试记录/从数据库中提取记录写入到数组中1.asp 
&#8226; 时间：
2007年7月30日, 9:13:12 
详细信息：
Microsoft 支持
请各位高手帮我看看，问题出在什么地方，我编程急需，谢谢