Imaginate que tienes que leer el contenido de una base de datos y introducir las lineas en un fichero.
<%
'Añadir lineas a un fichero
set oFich = FSO.OpenTextFile(Server.MapPath("prueba.txt"), 8)
'8=ForAppending Abre un archivo y escribe al final del mismo.
'declaramos la conexion, el recordset y la SQL
set oConn=Server.CreateObject("ADODB.Connection")
set rs=Server.CreateObject("ADODB.Recordset")
oConn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("tubase.mdb")
SQL="SELECT * FROM tutabla where campo="&valor&""
rs.Open SQL, oConn,1,2
'comenzamos el bucle
do while not rs.eof
oFich.WriteLine (rs("campo"))
rs.movenext
loop
'cerramos el recordset y la conexion
rs.close
oConn.close
'cerramos el FSO
oFich.Close
set oFich = nothing
%>
Si necesitas mas info sobre el FSO:
http://aspfacil.com/articulos/verarticulo.asp?id=56