下标越界: '[number: 1]' ，请高手指点。感谢
一、目的把txt文件导入ACcess。
二、出错
执行以下文件test.asp后，报出以下错误：
Microsoft VBScript 运行时错误 错误 '800a0009'
下标越界: '[number: 1]'
/qfsfdr.asp，行 19
————————————————————————————————————————————
三、txt文档内容：
已核销落地业务明细清单
日期：2010年02月24日 第1页
-------------------------------------------------------------------------------------------------------------------------------------------------------------------------
开户日期 挂账流水号 销账序号 付款人名称 付款人账号 汇路 金额 收款人名称 收款人账号 收款行名 用途 销账日期 销账流水号 销账授权柜员
20100223 000121610211 30301100223000061 广东省888彩票管理中心 03888488810002670 人行支付系统 500.00
云浮市体育彩票管理发行中心 44088888888853000564 云浮|105|广东云浮建行天平分理处
20100224 030005880001
20100223 030101270064 30301100223000057 冯权 030100178882134 人行支付系统 1200.00
王波 04444441355608 佛山顺德|AAA|佛山顺德农信联社北JIAO营业部
20100224 030005880005
四、程序内容：
test.asp的内容，
<!--#include file="dbconn.asp"-->
<%
'连接ACCESS数据库
sql="select * from hexiao88"
set rs=server.createobject("adodb.recordset")
Rs.open sql,conn,3,2
'打开文本文件
Dim LogFileName
LogFileName = "hexiao.txt"
set MyFileObject=server.CreateObject("Scripting.FileSystemObject")
set MyLogFile=MyFileObject.OpenTextFile(server.MapPath(LogFileName),1)
'逐行处理
while not MyLogFile.AtEndOfStream
LogMessage=Trim(MyLogFile.readline)
if LogMessage<>"" then
LogArr = split(LogMessage," ")
Rs.AddNew
Rs("开户日期")=Trim(LogArr(0))
Rs("挂账流水号")=Trim(LogArr(1))
Rs("核销序号")=Trim(LogArr(2))
Rs("付款人名称")=Trim(LogArr(3))
Rs("付款人账号")=Trim(LogArr(4))
Rs("汇路")=Trim(LogArr(5))
Rs("金额")=Trim(LogArr(6))
Rs("收款人名称")=Trim(LogArr(7))
Rs("收款人账号")=Trim(LogArr(8))
Rs("收款行名")=Trim(LogArr(9))
Rs("用途")=Trim(LogArr(10))
Rs("销账日期")=Trim(LogArr(11))
Rs("销账流水号")=Trim(LogArr(12))
Rs("销账授权柜员")=Trim(LogArr(13))
Rs.Update
end if
wend
'关闭文件
MyLogFile.close
Rs.Close
Set Rs=nothing
response.write "写入成功！"
%>
split(LogMessage," ")