Da mdb a txt

[Corwin]

<%
Set Rs = Server.CreateObject("ADODB.Recordset")
Set conn = Server.CreateObject("ADODB.Connection")
conn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("db.mdb")
Set FSO = Server.CreateObject("Scripting.FileSystemObject")
Set f = FSO.CreateTextFile(Server.MapPath("miofile.txt"),true)
sql = "SELECT * FROM TABELLA"
Rs.Open sql, conn
While not rs.Eof
s = ""
For x = 0 to rs.Fields.Count -1
If x = rs.fields.count -1 Then
s = s & rs(x) 
else
s = s & rs(x) & "|"
end if
Next
f.WriteLine s
rs.Movenext
Wend
f.close
%>