importar archivos .txt a BD con ASP

[pepo_pe]

archivo = Server.MapPath("upload/"& archivo )

Set fso = Server.CreateObject("Scripting.FileSystemObject")
Set archivo = fso.OpenTextFile(archivo,1)

cadena = archivo.readline
Response.Write(cadena)

Do While Not archivo.atEndofstream
cadena = archivo.readline
Response.write(cadena & "<br>")
pos = inStr(cadena," ")
id = left(cadena,pos)
Response.Write ("codigo: "&id&"<br>")

cadena = mid(cadena,pos+1,len(cadena))
pos = inStr(cadena," ")
ano = left(cadena,pos)
Response.Write ("año: "&ano&"<br>")

cadena = mid(cadena,pos+1,len(cadena))
pos = inStr(cadena," ")
mes = left(cadena,pos)
Response.Write ("mes: "&mes&"<br>")

cadena = mid(cadena,pos+1,len(cadena))
pos = inStr(cadena," ")
dia = left(cadena,pos)
Response.Write ("dia: "&dia&"<br>")

cadena = mid(cadena,pos+1,len(cadena))
pos = inStr(cadena," ")
hora = left(cadena,pos)
Response.Write ("hora: "&hora&"<br>")

cadena = mid(cadena,pos+1,len(cadena))
pos = inStr(cadena," ")
minuto = left(cadena,pos)
Response.Write ("minutos: "&minuto&"<br>")

cadena = mid(cadena,pos+1,len(cadena))
pos = inStr(cadena," ")
segundo = left(cadena,pos)
Response.Write ("segundo: "&segundo&"<br>")

cadena = mid(cadena,pos+1,len(cadena))
pos = inStr(cadena," ")
latido = left(cadena,pos)
Response.Write ("latido: "&latido&"<br>")

saturacion = mid(cadena,pos+1,len(cadena))
Response.Write ("saturacion: "&saturacion&"<br><hr>")

sql = "INSERT INTO " & "[us9877_us9877_database].[us9877_admin].["&nombreTabla&"]"
sql = sql & " (id, ano, mes, dia, hora, minuto, segundo, latido, saturacion) "
sql = sql & "VALUES(" & id & ", " & ano & ", " & mes & ", " & dia & ", " & hora
sql = sql & ", " & minuto & ", " & segundo & ", " & latido & ", " & saturacion &")"
Response.Write("<br>" & sql & "<br>")

oCone.Execute sql

Loop