Type mismatch

[daniloprates 0]

Pessoal, beleza?

 

Uma página aqui tá dando um erro q n entendo.

Ela deveria pegar os dados do BD e colocar no TXT.

O Código tá assim:

strQuery = "SELECT * FROM Mail Where News LIKE -1"Set ObjRs = objConexao.Execute(strQuery)If objRS.EOF thenset Lista=ObjFS.CreateTextFile( strLista , true )do while not objRS.EOFLista.WriteLine(ObjRs("Email"))ObjRs.Movenextloop

Mas tá dando esse erro:

Microsoft VBScript runtime error '800a000d' Type mismatch: 'Lista.WriteLine'

Alguém sabe como posso fazer? Será que o problema está no servidor, que não permite criar o arquivo?

Valeu antecipadamente.

[daniloprates 0]

HA! Consegui!Criei um StrEmail = objRs("Email") aí funcionou!!!

[daniloprates 0]

Putz,Deu esse erro de novo em outro lugar.Alguém sabe me dizer por que é que ele acontece?