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:
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>
la pagina export-print.asp contiene il ciclo sul db per l'estrazione:
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
ed infine la pagina export_print contiene il codice html che viene restituito e convertito in rtf:
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%>
Ora perchè mi restituisce il download e non salva il file nella cartella PRINT???