generare CSV

[enigma_79]

Sto creando una pagina che genera un csv quotidianamente...

Il funzionamento al momento prevede che qualcuno entri in area riservata e lanci la pagina per creare il mio csv...

Esiste una procedura per automatizzare il processo? ovvero se volessi che in automatico mi venisse esportato il CSV ogni giorno alle 23.59 senza che io acceda all'area riservata come faccio... ?

Grazie a tutti.

[enigma_79]

Chi mi aiuta...? in locale mi crea il mio file csv...

problema...

1) il primo record lo inserisce 2 volte.... e vorrei evitare questo...
2) il pulsante di input per aprire il documento non funziona...
mi restituisce un errore di sintasssi qualcuno può darmi una dritta su dove sbaglio?

<%
Const adOpenKeyset = 1
Const adLockReadOnly = 1
DataR=request.QueryString("DataR")
%>




<%
function mettisla(p)
dim out
out=Trim(Replace(p, "-", "/"))
mettisla = out
end function

' Selezioni dalla tabella 

SQL = "SELECT * FROM TabCSV where DataR like '"& mettisla(DataR) &"' "


' Creo il RECORD SET che contiene tutti i dati selezionati dal Data base
Set rs = Server.CreateObject("ADODB.RecordSet")
rs.Open SQL, conn, adOpenKeyset,adLockReadOnly


function cambiasla(p)
dim out
out=Trim(Replace(p, "/", "-"))
cambiasla = out
end function

Dim objFso, objFile
Set objFso=Server.CreateObject("scripting.FileSystemObject")

nomefile="MV-"& cambiasla(request.QueryString("DataR"))&""

path = Server.MapPath(".")
path = path & "\public\" & nomefile  & ".csv"

If objFso.FileExists(path) then
	objFso.DeleteFile path,true
end if

objFso.CreateTextFile (path)
Set Ogg = objFso.GetFile (path)
Set OggText = Ogg.OpenAsTextStream(2)


testo_csv = "MV;"& DataR &";"


' Eseguo un ciclo su tutti i dati del Recod set e creo il documento  in output

Do while not rs.eof 
                                                     

testo_csv = testo_csv & rs("Nome") & ";" & rs("Cognome") & ";" & rs("Email") & ";" & rs("Telefono") & ";" & rs("DataNascita") & ";" & rs("ComuneNascita") & ";" & rs("ProvinciaNascita") & ";" & rs("StatoNascita") & ";" & rs("ComuneDomicilio") & ";" & rs("ProvinciaDomicilio") & ";" & rs("StatoCivile") & ";" & rs("NumeroFamiliari") & ";" & rs("CatReddituale") & ";" & rs("Occupazione") & ";" & rs("Anzianita") & ";" & rs("Redditi") & ";" & rs("Mensilita") & ";" & rs("FinanziamentiImporto") & ";" & rs("FinanziamentiRata") & ";" & rs("FinanziamentiDebito") & ";" & rs("FinanziamentiImporto1") & ";" & rs("FinanziamentiRata1") & ";" & rs("FinanziamentiDebito1") & ";" & rs("FinanziamentiImporto2") & ";" & rs("FinanziamentiRata2") & ";" & rs("FinanziamentiDebito2") & ";" & rs("Finalita") & ";" & rs("Rata") & ";" & rs("ProvinciaImmobile") & ";" & rs("ImportoMutuo") & ";" & rs("PeriodicitaRate") & ";" & rs("DurataMutuo") & ";" & rs("TipoTasso") & ";" & rs("ValoreImmobile") & ";" & rs("stato_ricerca_immobile") & ";" & rs("DataAttoMutuo") & ";" & rs("TipoImmobile") & ";" 
OggText.WriteLine testo_csv 


rs.movenext
Loop


'risposta di avvenuta creazione e possibilità download
response.write "<center>file esportato nella cartella public con il nome "&nomefile&"

<input type=button name=apri id=apri value=Apri onClick='window.open('"&path&")'>

Indietro</center>"


rs.close
set rs=nothing
Conn.Close
set conn=nothing

%>

[enigma_79]

il problema 2)

lo ho risolto semplicemente in questo modo...

'risposta di avvenuta creazione e possibilità download
response.write "<center>file esportato nella cartella public con il nome "&nomefile&"

<a href=public/"&nomefile&".csv>Download</a>

Indietro</center>"

rimane il problema 1 del primo record scritto 2 volte...
e anche il problema che mi si sta verificando è che spostando in produzione server register mi crea il file vuoto .. se testo in locale o su un altro server il file viene creato in maniera corretta...

qualcuno sa cosa portebbe essere???

[lucalicc]

prova il servizio webcron
http://www.webcron.org/
io lo uso da un paio d'anni per automatizzare l'esecuzione
di pagine web dinamiche (come la tua) su diversi siti
in hosting che non permettono una gestione degli eventi cron.
Il costo per ogni evento è di 0,01 centesimo, con ricarica
minima del credito prepagato di 3 euro.
Se programmi un evento ogni minuto, ti costa 4,38 euro all'anno.
se devi farlo una volta al giorno ti dimentichi della ricarica di 3 euro.
E' possibile impostare un avviso automatico in caso di errore
dell'esecuzione del job (al costo di 0,01 centesimo se per email, 0,1 euro per sms).
E' possibile usufruire di una prova gratuita di una settimana.
Inoltre una volta ho dovuto chiedere supporto per degli
errori con dei job su un server aruba e ho avuto un'ottima assistenza
con personale tecnico molto qualificato e disponibile.
A questi costi, con questa qualità del servizio
e per la flessibilità delle impostazioni credo
non si sia qualcosa di meglio.
PS Ovviamente non lavoro per loro
Luca