Consulta sobre Importar archivo a DB

[Alert]

Buenas como estan, tengo un pequeño problema , principalmente estube buscando por todo el foro y no encontre solucion, (quizas se me pace por alto , sorry)

Paso a explicar mi problema:
Tengo una base de datos con la tabla "INGRESO" con 2 campos , ID | POST

al querer leer todo un fichero X ej: archivo.txt e ingresarlo en la Base, me lee linea x linea y lo ingresa de esa manera , quedando un resultado de:

1 | Mi primer linea
2 | Mi segunda linea
(asi sucesivamente, dependiendo de cuantas lineas tenga el archivo)

el codigo que uso es este

Código:

<% 
nombre_archivo = "archivo.txt" 

Set fs = Server.CreateObject("Scripting.FileSystemObject") 
Set archivo = fs.OpenTextFile(Server.MapPath(nombre_archivo), 1) 

do while not archivo.AtEndOfStream 
    linea = archivo.ReadLine 
'Insertando de la forma abajo escrita , no funciona , no ingresa ningun dato
'linea = archivo.ReadAll 

strSql = "INSERT INTO INGRESO (POST) VALUES ('"& linea &"')"
my_Conn.Execute (strSql)

loop 

archivo.Close 
Set archivo = Nothing 
Set fs = Nothing 
%>

Gracias de todas formas por leer este Post
Alguna sugerencia al respecto ??

[Myakire]

Set fso = CreateObject("Scripting.FileSystemObject")
Set archivo = fso.OpenTextFile(Server.MapPath(nombre_archivo), 1)
Contenido = farchivo.ReadAll
strSql = "INSERT INTO INGRESO (POST) VALUES ('"& Contenido &"')"
my_Conn.Execute (strSql)