<%
Sub PaList(max)
' Extrait les infos vers un fichier
' -----------------------------------------------------------------------------
Set Od = CreateObject("Scripting.FileSystemObject")
Set f=Od.createTextFile(server.mappath("paextract.txt"))
mn=date-90
'sql = "SELECT email,nom,CP,ville,pays,date from parm_01 where parm_01.date > #" & mn &"# ORDER by date"
sql = "SELECT email,nom,CP from parm_01 ORDER by date DESC"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, conn, 3, 3
nb=1
max=int(max)
Do While Not rs.eof
anemail=lcase(rs("Email"))
anCP=rs("Cp")
annom=rs("nom")
response.write(nb & " " & anemail & "
")
f.writeline(anemail &","& annom &","& ancp )
if nb>max then exit do
nb=nb+1
rs.MoveNext
Loop
rs.close
f.close %>
Extraction terminée, le fichier se trouve ici
<%
End Sub
' MAIN --------------------------------------------------------------------------
mode=100
if request.querystring("max")<>"" then mode=request.querystring("max")
Server.ScriptTimeOut =200
response.write("
Menu
")
response.write("
vous avez demandé : " & mode & " adresses
")
Set conn = Server.CreateObject("ADODB.Connection")
conn.open "PASP","PASP","PASP"
call PaList(mode)
conn.close
%>