query su csv

[iceblu]

<%
  
  set objconn = Server.CreateObject("ADODB.Connection")
  objconn.Provider="Microsoft.Jet.OLEDB.4.0"
  objconn.Open Server.MapPath("csv.mdb")


  mioFileCSV="test_csv.csv"
  set fso = createobject("scripting.filesystemobject")
  set act = fso.opentextfile(server.mappath(mioFileCSV),1,False)

  dim sline
  dim sSeg
  
  Do Until act.AtEndOfStream
  
  sline=act.readline
  sSeg=split(sline,",") 'Qui vedi un po tu come dividerlo

  dim strsql
  strsql="INSERT INTO CSV (IDTab, Nome, Indirizzo, Tel)"
  strsql=strsql & "VALUES('"&sSeg(0)&"', '"&sSeg(1)&"', 
  '"&sSeg(2)"', '"&sSeg(3)&"')"

  objconn.execute strsql
     
  loop
  act.close
  set act=nothing
   
  objconn.close
  set objconn=nothing
%>