ok scusa

<%
strconn = ""

Set objconn = Server.CreateObject("ADODB.Connection")
Set objrs = Server.CreateObject("ADODB.Recordset")
objconn.open strconn

sql_0 = "SELECT * from FANS"

nomefile = "export_iscritti_FansClub_" & year(now) & right("00" & month(now),2) & right("00" & day(now),2) & right("00" & hour(now),2) & right("00" & minute(now),2) & right("00" & second(now),2) & ".csv"
intestazione = "NOME; COGNOME; TELEFONO; CELLULARE; E-MAIL; INDIRIZZO; CAP; CITTA'; PROVINCIA; PAESE; FASCIA ETA'; SESSO; CODICE PRODOTTO; TAGLIA; COLORE; DATA ACQUISTO; LUOGO; DA CONTATTARE VIA; DATA ISCRIZIONE"
arrayCampi = Array("FANS_NOME", "FANS_COGN", "FANS_TELE", "FANS_CELL", "FANS_MAIL", "FANS_INDI", "FANS_CAP", "FANS_CITT", "FANS_PROV", "FANS_PAES", "FANS_ETA", "FANS_SEX", "FANS_CODI", "FANS_TAGL", "FANS_COLO", "FANS_ACQU", "FANS_LUOG", "FANS_CONT","FANS_DATA")

set objrs = objconn.execute(sql_0)

if not(objrs.eof or objrs.bof) then
set objFso = Server.CreateObject("Scripting.FileSystemObject")
set objText = objFso.CreateTextFile(Server.MapPath("/temp/" & nomefile),true,false)
objText.WriteLine(intestazione)

do while not(objrs.eof or objrs.bof)
myString = ""
for i = 0 to Ubound(ArrayCampi)
myString = myString & ";" & strRevert(objrs.fields(arrayCampi(i)).value)
next
myString = Right(myString,(Len(myString)-1))

objText.WriteLine(myString)
objrs.movenext
loop

objText.close
Set objText = Nothing
Set objFso = Nothing
End If

dim objStream, myFILE, fname
Const adTypeBinary = 1
Const adReadAll = -1
fname = request("nomefile")
myFILE = Server.MapPath("/temp/" & nomefile)
set objStream = Server.CreateObject("ADODB.Stream")
objStream.Type = adTypeBinary
objStream.Open
objStream.LoadFromFile myFILE
Response.Expires = 0
Response.Buffer = true
Response.ContentType = "application/octet-stream"
Response.Addheader "Content-Disposition", "attachment; filename=" & nomefile
Response.Addheader "Content-Length", objStream.size
Response.BinaryWrite(objStream.Read(adReadAll))
objStream.Close
set objStream = nothing
Response.End
%>

ecco il codice