Inserir multiplos registros no banco de dados

[4.b 0]

Olá,

 

tenho numa pagina uma lista com 150 emails cada um em uma linha...

esses emails foram extraidos de um arquivo .TXT que foi upado.

 

Agora como fazer para cadastrar cada email em um campo do banco de dados? Access.

Tentei ler o txt e ao faze ro loop cadastrar os registros porem da muito erro...

 

Alguem pode ajudar?

[hargon 64]

Posta o código e os erros.

[4.b 0]

'Loop no txte para pegar um email em cada linha 
	Do while f.AtEndOfStream = false
		
		Set objRS= Server.CreateObject("ADODB.Recordset")
		objRS.CursorLocation = 3
		objRS.CursorType = 0
		objRS.LockType = 3
		strQ = "SELECT * FROM assinantes Where 1 <> 1"
		objRS.Open strQ, Conexao
		objRS.Addnew()
	
		objRS("email") = (f.ReadLine)
	
		objRS.Update
		objRS.Close
		Set objRS = Nothing
		
	Loop
	f.Close

esse codigo ta pulando, ele grava so metade, pula uns emails...

e na metadade da lista retorna o erro

 

Tipo de erro:

Erro de tempo de execução do Microsoft VBScript (0x800A0009)

Subscrito fora do intervalo: '[number: 1]'

[Vinicius Ianni 189]

É para ler de um bd ou de um txt ?

Se for em txt é fso

 

A clausula sql não está errada não ?

 

Abraços,

Vinicius Ianni

[NaPraia 12]

strQ = "SELECT * FROM assinantes Where 1 <> 1"

para quê serve????

 

Do while f.AtEndOfStream = false

Set objRS= Server.CreateObject("ADODB.Recordset")

você faz uma conexão para cada e-mail??