Erro desconhecido..

galera... tenho um codigo que deveria se conectar com o BD access e gerar um TXT

só que ta dando um erro doido aki.. o codigo ta assim

<%
Option Explicit
%>
<!--#include file="conex.inc"-->
<%
DIM Conexaodb, filial, DI,MI,AI,DF,MF,AF,select2, StringDeConexao, Conexao, nomedapagina
DIM strNRegistros, rsNRegistros, strlivros, rslivros, fu ,anterior, proximo, contador,registros, mostrafilial
DIM rsCat, strCat, numCat, intrec, intpagina, bfim, binicio, pagina, nr, np, paginaurl
DIM rs, Texto, ObjFSO, TextoStr, rsbusca

strLivros = "SELECT * FROM Livros"
Set rsLivros = conexaodb.execute(strLivros)

Set fso = CreateObject("Scripting.FileSystemObject")
Set textStreamObject = fso.CreateTextFile(Server.Mappath("rao.txt"),true,false)

While NOT rs.EOF
textStreamObject.WriteLine (rs("Nf") & rs("Ctrc") & rs("Manifesto") & rs("DataEntrega"))
textStreamObject.Close
Set textStreamObject = Nothing
Set fso = Nothing
rs.movenext
Wend
response.redirect "categoria.asp"
%>
o include file é do arquivo de conexão com o bd... funciona com todas as outras paginas e na hora que ele acessa essa pagina o erro é o

Microsoft VBScript runtime error '800a01a8'

Object required: ''

/romaneios/exporta_txt.asp, line 12

alguem pode me ajudar?