Buona sera!
come posso fare a far generare dei file rtf e a depositarli tutti in una cartella da far zippare e scaricare in un unico file zip?
il processo che sto seguendo è questo
la pagina 1 contiene un piccolo form dove viene inserita la data dalla quale si vogliono estrarre i dati:
la pagina export-print.asp contiene il ciclo sul db per l'estrazione:codice:<form action="export-print.asp" method="post"> Inserisci la data che intendi estrarre: <input name="dataestrazione" type="text" value="" size="10" /><input type="submit" value="Preleva csv" /> </form>
ed infine la pagina export_print contiene il codice html che viene restituito e convertito in rtf:codice:dataestrazione=request.Form("dataestrazione") dataext=year(dataestrazione)&"/"&month(dataestrazione)&"/"&day(dataestrazione) Set cn = Server.CreateObject("ADODB.Connection") cn.Open "DSN=mysql" sql = "select * from tracciato where data_chiamata='"&dataext&"' and id_esito=2 ORDER BY id DESC" Set rs = Server.CreateObject("ADODB.Recordset") Set rs.ActiveConnection = cn rs.Open sql, cn Do Until RS.EOF response.redirect("/test/admin/export_print_word.asp?id_tracciato="&rs("id")&"") rs.MoveNext loop set rs = Nothing cn.Close Set cn = Nothing
Ora perchè mi restituisce il download e non salva il file nella cartella PRINT???codice:<% id_tracciato=request.QueryString("id_tracciato") Set cn = Server.CreateObject("ADODB.Connection") cn.Open "DSN=mysql" sql1="select * from tracciato WHERE id="&id_tracciato Set rec1 = Server.CreateObject("ADODB.Recordset") Set rec1.ActiveConnection = cn rec1.Open sql1, cn Session.LCID=2057 percorso = ("/test/admin/print/") Dim filename filename=id_tracciato Response.Buffer = true Response.ContentType = "application/vnd.ms-word" Response.AddHeader "content-disposition", "inline; filename=" &filename& ".rtf" percorso = ("/test/admin/print/") completo = path & filename& ".rtf" Set fso = CreateObject("Scripting.FileSystemObject") Set f = fso.OpenTextFile(Server.MapPath(completo), 2, True) f.Write Documento f.Close Set f = Nothing Set fso = Nothing %> <link href="http://localhost/test/admin/css/print-ticket.css" rel="stylesheet" type="text/css" /> <body> bla bla bla bla </body> <%Session.CodePage = 1252%>

Rispondi quotando