<%
Set rs=Server.Createobject("adodb.recordset")
Set fso = server.CreateObject("scripting.filesystemobject")
Set f1 = fso.OpenTextFile(server.MapPath("mail11.txt"), 2, true)
sql="select * from mail order by id desc"
rs.open sql,conn,1,1
Do WHILE Not rs.EOF
f1.Write(rs("mail"))
rs.Movenext
LOOP
f1.Close
Set fso = Nothing
rs.close
Set rs=nothing
%>