Insertar varios registros en una BD

[sala202]

Hola, quisiera saber como puedo insertar varios registros en una BD. Se trata de pasar ciertas cadenas de texto de cada linea de un fichero de texto a un registro de la BD. Me gustaria saber como tengo que definir la BD y como inserto los registros. El código que he definido es:
Set Ob_Conn = Server.CreateObject("ADODB.Connection")
Ob_Conn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("/RegistroUsuarios/bd/registros.mdb"))

Set Ob_RS = Server.CreateObject("ADODB.RecordSet")
Ob_RS.Open "Registro", Ob_Conn, adOpenStatic, adCmdTable
Ob_RS.AddNew
linea = TS.ReadLine
Do While not TS.AtEndOfStream
SacarDatosLinea()
'Esta funcion nos saca los datos de la linea del fichero de texto y lo guarda en un vector vlinea(4)
Ob_RS("IP") = vLinea(0)
Ob_RS("NbUsuario") = vLinea(1)
Ob_RS("Fecha") = vLinea(2)
Ob_RS("HoraInicio") = vLinea(3)
Ob_RS("Pagina") = vLinea(4)
Ob_RS.MoveNext

linea = TS.ReadLine
loop

[Nochero]

Hola, a ver si esto te ayuda y es lo que necesitas :

SacarDatosLinea()
sql = "INSERT INTO Registro (Ip,NbUsuario,Fecha,HoraInicio,Pagina) VALUES ( "
sql = sql & vlinea(0) & ","
sql = sql & vlinea(1) & ","
sql = sql & vlinea(2) & ","
sql = sql & vlinea(3) & ","
sql = sql & vlinea(4) & " )"
ob_conn.Execute(sql)
ob_conn.Close

En SacarDatosLinea no olvides reemplazar las comillas simples por dos comillas simples con Replace(cadena,"'","''") para no confundir la cadena sql final.

Saludos !