Base de Datos

[dimoito]

Para eso necesitas el FSO (FileSystemObject):

set oFSO = server.CreateObject("Scripting.FileSystemObje ct")
set oFile = oFSO.GetFile(Server.MapPath("mifichero.txt&qu ot;))

set oLectura = oFile.OpenAsTextStream
strDatos = oLectura.ReadAll

Ahora en strDatos tienes el contenido del fichero, pero si lo quieres cargar en usa base de datos, supongo que el fichero de texto estará formateado de alguna manera separando los campos, por ejemplo con ;
Para cargarlo en una base de datos, puede controlar el separador de campos (; por ejemplo) y los caracteres chr(13) y chr(10) para contar los registros (son los caracteres del salto de línea)

Ahora cambiamos los caracteres citados en algo legible para la cadena, con unos caracteres cualquiera:
strDatos = replace(strDatos,chr(13),".*")
strDatos = replace(strDatos,chr(10),"*.")
strLinea = Split(strDatos,".**.")
redim Datos([Numero_de_campos],UBound(strLinea))
for i=0 to UBound(strLinea)
'separamos los campos
Campos = Split(strLinea(i), ";")
for j=0 to UBound(Campos)
Datos(j,i) = Campos(j)
next
sSQL = "INSERT into tabla values (" & Datos(0,i) & " .....
next

Espero que no te lies ;)