sorry

Ecco qua.

Da una pagina asp, leggendo i dati da una base dati (Oracle) estraggo alcuni valori e scrivo n-file di questo tipo (asp/fpdf)

<%
Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject")

Set MyFile = ScriptObject.CreateTextFile(Server.mappath("bollav vifile/"&vc_nomefile))

MyFile.WriteLine("<" & "%@language=vbscript%" & ">")
MyFile.WriteLine("")
MyFile.WriteLine("<" & "%")
MyFile.WriteLine("Set pdf=CreateJsObject(""FPDF"")")
MyFile.WriteLine("pdf.CreatePDF()")
MyFile.WriteLine("pdf.SetPath(""../fpdf/"")")
MyFile.WriteLine(" pdf.LoadExtension(""table"")")
MyFile.WriteLine(" pdf.LoadExtension(""testo"")")
MyFile.WriteLine("")
MyFile.WriteLine("//Imposta il font")
MyFile.WriteLine("")
MyFile.WriteLine("pdf.SetFont ""Times"","""",26")
MyFile.WriteLine("")
MyFile.WriteLine("pdf.Open()")
MyFile.WriteLine("pdf.LoadModels(""NumeroPagina"") ")
MyFile.WriteLine(" Set cnnSearch = Server.CreateObject(""ADODB.Connection"")")
MyFile.WriteLine(" cnnSearch.Open application(""ConnDB"")")
MyFile.WriteLine("")
MyFile.WriteLine("sqlprinci =""SELECT * FROM V_Asp_repoanagbollavvi WHERE CODI_BOLL_AVVI="&vn_codibollavvi&""" ")
MyFile.WriteLine(" Set rsprinci = cnnSearch.Execute(sqlprinci)")
MyFile.WriteLine(" ")
MyFile.WriteLine(" if not rsprinci.EOF then")
MyFile.WriteLine("")
MyFile.WriteLine(" pdf.AddPage()")
MyFile.WriteLine(" ")
MyFile.WriteLine(" pdf.SetFont ""Times"",""B"",30")
MyFile.WriteLine(" pdf.Cell 60,50,""SIAG"",0,0")
MyFile.WriteLine("")
MyFile.WriteLine(" pdf.Table.Border.Width = 0.1")
MyFile.WriteLine(" pdf.Table.Border.Color=""CC0000""")
MyFile.WriteLine(" ' pdf.Table.Fill.Color=""C9C8C0""")
MyFile.WriteLine(" pdf.Table.TextAlign = ""L""")
MyFile.WriteLine("")
MyFile.WriteLine(" pdf.SetColumns 50")

... istruzioni varie...

MyFile.WriteLine(" ")
MyFile.WriteLine(" ")
MyFile.WriteLine(" ")
MyFile.WriteLine(" i=0")
MyFile.WriteLine(" end if")
MyFile.WriteLine(" ")
MyFile.WriteLine(" Loop")
MyFile.WriteLine(" ")
MyFile.WriteLine(" end if ")
MyFile.WriteLine("")
MyFile.WriteLine("pdf.Output(""c:\www.xxxx\bollavvifile\bollavvi_"&vc_nomefilepdf&".pdf"")")
MyFile.WriteLine("")
MyFile.WriteLine(" cnnSearch.Close")
MyFile.WriteLine(" Set cnnSearch = Nothing")
MyFile.WriteLine("")
MyFile.WriteLine("%" & ">")


MyFile.Close



%>
(Nota questo è un file esterno che richiamo dal file report.asp nel seguente modo

Quindi creato il file .asp/fpdf, scrivo questa istruzione nel file report.asp (ho incluso anche l'istruzione di loop


<%
response.write vc_listcodiavvi
' Prima di passare al prossimo cliente scrivo il file relativo
%>


<script> javascript:f_aprichiudi('bollavvifile/<%=vc_nomefile%>');</script>
<%
' Prossimo cliente
rsrelaservazie.MoveNext
Loop

end if

rsrelaservazie.Close
Set rsrelaservazie = Nothing
%>
dove la funzione (banale) javascript è scritta così


<head>
<link rel="stylesheet" href="CSS/stampe.css" type="text/css" id="fogliodistile">
</head>

<SCRIPT LANGUAGE="JavaScript">
function f_aprichiudi(url)
{
opener.location.href=url;
}

</SCRIPT>

Spero che qualcuno mi possa dare un'aiutino