Suponiendo un archivo de texto ("datos.txt") que contenga, separados por comas, en cada línea los datos "Nombre, Apellido, Email" y una tabla llamada "tabla" con los mismos campos (nombre, apellido, email), el siguiente script te serviría a manera de ejemplo (estoy suponiendo tambiñén que la conexión a la BD está hecha y se llama objConn):
Código:
<%
'Instancio el FSO
Set FSO=Server.CreateObject("Scripting.FileSystemObject")
' Le digo qué archivo leer
Set Archivo = FSO.GetFile(Server.MapPath("datos.txt"))
Set f = archivo.OpenAsTextStream
'Leo el contenido
Contenido = f.ReadAll
' Cierro todo
f.Close
set f=nothing
Set Archivo = Nothing
Set FSO = Nothing
'Creo un array con cada línea del archivo
Registros = Split(Contenido, VBCrLf)
'Recorro el array para generar una sentencia de INSERT por cada línea
For i = 0 to UBound(Registros)
' Separo cada registro en campos por la coma
Campos = Split(Registros(i), ", ")
'finalmente armo la sentencia
SQL = "INSERT INTO tabla (nombre, apellido, email) VALUES ('" & Campos(0) & "', '" & Campos(1) & "', '" & Campos(2) & "')"
' y la ejecuto
objConn.Execute SQL
next
%>
Editando: coincidimos con yag en la respuesta
