tentando gerar arquivo txt

[rafa-martin 2]

pessoal estou tenatndo gerar um arquivo txt dessa forma:<%@Language=VBScript%><%' *********** DEFINE AS VARIÁVEIS DE CONEXÃO *************Option ExplicitDim SucessoDim path, arqtxt, objFSO, Cont_TXT%><!-- #Include File="Conexao.asp" --><%String_SQL = "SELECT data, cnpj_farmacia, codigo_brick, situacao, obs FROM VisitasRealizadas"Set Conj_Registros = Banco.Execute(String_SQL)%><%'Conecta com o BDSet objFSO = Server.CreateObject("Scripting.FileSystemObject")path = "C:\arquivo.txt"Set arqtxt = objFSO.OpenTextFile(path, 8, true)while not Conj_Registros.EOF arqtxt.WriteLine(Conj_Registros("data")) arqtxt.WriteLine(Conj_Registros("cnpj_farmacia")) arqtxt.WriteLine(Conj_Registros("codigo_brick")) arqtxt.WriteLine(Conj_Registros("situacao")) arqtxt.WriteLine(Conj_Registros("obs")) Conj_Registros.movenextresponse.write Conj_registros("cnpj_farmacia")wendarqtxt.close%>porém, está dando erro nessa linha: arqtxt.WriteLine(Conj_Registros("situacao"))o erro é:Tipos incompatíveis: 'WriteLine'/ArquivoTxtGerado.asp, line 25o que pode ser esse erro? Porque que nas linhas acima que tem o mesmo comando não dá erro?

[Mário Monteiro 179]

qual é a linha do erro??

[rafa-martin 2]

cara descobri que o erro é o seguinte:o writeline só mostra campos onde existe registro. porém alguns campos meu estão em branco. só que os campos não são obrigatórios na hora do cadastrado.como posso gerar esse arquivo mesmo os campos estando em branco?

[dark0 0]

fazendo um if se o campo esta vazio, nao resolve?