ASP读取CSV文件 并添加到数据库

<%
set conn=Server.CreateObject("ADODB.Connection")
   conn.Provider="Microsoft.Jet.OLEDB.4.0"
   dbpath=Server.MapPath("qipu.mdb")
   conn.Open  dbpath
   strFileName = Request.QueryString("file1")  
set rs = Server.CreateObject("ADODB.recordset")
Dim Fso
Dim myFile
Dim titleindex
Dim cateindex
Dim picindex
Dim detailindex
dim arr()
Set Fso = Server.CreateObject("Scripting.FileSystemObject")
Set myFile = Fso.OpenTextFile(Server.MapPath("1111.csv"),1,True,-1)
'A.TXT和ASP程序在同个目录下，如果没在一个目录，可以用绝对路径，把上一行的a.txt改为：d:\a.txt
%>
<table border="1">
<%
myNum=0
While Not myFile.AtEndOfStream
If myNum = 0 Then
row=Split(myFile.ReadLine,"    ")
for i=0 to ubound(row)
MyVar=row(i)
Select   Case   MyVar   
                        Case   "宝贝名称"     titleindex= i      
                        Case   "宝贝类目"    cateindex=i  
                        Case   "新图片"       picindex=i   
                    
                      
              End   Select
              next
End If

row=Split(myFile.ReadLine,"    ")
%>
<tr> 
<%
'for i=0 to ubound(row)
'td=row(i)
title=row(titleindex)
pic=row(picindex)
cate=row(cateindex)
sql="insert into product(title,pic,cate) values('"&title&"','"&pic&"','"&cate&"')"
rs.Open sql, conn

%>
<td ><div style="overflow:hidden; width:200px; height:30px;" ><%=title%></div></td><td ><div style="overflow:hidden; width:200px; height:30px;" ><%=pic%></div></td><td ><div style="overflow:hidden; width:200px; height:30px;" ><%=cate%></div></td>
<%
'next
%>
</tr>
<%
myNum=myNum+1
Wend
myFile.Close
Set myFile = Nothing
Set Fso = Nothing
%>
</table>