Importar ficheros txt

[Juansan]

<%@ Language=VBScript %>

<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.open "Provider=SQLOLEDB; Data Source=soft; Initial Catalog=tnaranja; User Id=servicios; Password=servicios2002;"
Set Rs = Server.CreateObject("ADODB.Recordset")
cantarchivos=0 ' cantidad de archivos encontrados en la carpeta
cantregistros=0 ' cantidad de registros totales.
cantnoimportados=0 ' cantidad de registros no importados dado que van a ION o BUE
canterror=0
noexist=0
fecha=date()
set Fso = Server.CreateObject("Scripting.FileSystemObje ct")
If not (fso.FileExists(Server.MapPath("\XXXXXX\tar.t xt"))) Then
cantarchivos = 0
Else
cantarchivos = 1
set archivo= fso.Getfile(Server.MapPath("\XXXXXX\tar.txt&q uot;))

'set CarpetaOrigen = fso.GetFolder (Server.MapPath("\xxxx"))'carpeta de donde buscar los archivos
'set archivos = CarpetaOrigen.files 'obtengo los archivos que estan en esa carpeta

Response.Write ("Descripcion de archivos importados")&"<BR>"

'for each archivo in archivos ' por cada archivo(variable)en el set anterior
nombrearchivo=archivo.name ' nombre de cada archivo
response.write ("Nombre Archivo:  ") & nombrearchivo &"<br>" ' muestro el nombre del archivo
set archivo=archivo.openastextstream(1) ' abro el archivo para lectura

Do While archivo.AtEndOfStream <> True ' hago mientras fin del archivo sea falso
linea= archivo.ReadLine ' Leo la primera linea (cuando pase por el loop mostrara la segunda)
response.write linea &"<br>" ' la muestro
nombre=mid(linea,24,40)
domi = mid(linea,64,40)
loca=mid(linea,104,40)
cod = mid(linea,145,4)
pieza = mid(linea,155,8)

campo1=mid(linea,1,154)
pieza1=mid(linea,155,8)
campo2=mid(linea,163,18)
marca=mid(linea,181,1)
motivo=mid(linea,182,2)
campo3=mid(linea,184,48)
'Agrego los registros a base
Continua...