Salve a tutti mi sono letto quasi tutti i 60 post relativi all'argomento fdpf, ma non sono riuscito a trovare neanche un esempio sul mio problema.
Ho una select su db access e nella where ho un campo dataConvocazione, la select restituisce 0 record mentre se tolgo la data dal where e lascio gli altri campi tutto funziona regolarmente.
Inoltre mi piacerebbe inserire nella header un logo, prelevato anche questo da un campo nel db, ma non sono riuscito a capire che cosa e dove inserire all'interno della pagina.
Grazie della collaborazione
Qui sotto il codice:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!--#include file="fpdf.asp"-->
<!--#include file="Connections/conn_app.asp" -->
<!--#include file="Connections/conn.asp" -->
<HTML>
<HEAD>
<TITLE></TITLE>
</HEAD>
<BODY>
<%
Data = request.Form("Dat")
Categoria = request.Form("Cat")
Stagione = request.Form("Sta")
Identificatore = request.Form("P")
' Importo la classe JScript in un file VBScript
Set pdf=CreateJsObject("FPDF")
' Inizializzo la classe
pdf.CreatePDF()
' Imposta il percorso della directory contenente i fonts,
' le estensioni ed i modelli
pdf.SetPath("fpdf/")
' Imposto il font da utilizzare (Arial), lo style (I = Corsivo)
' e la dimensione (10)
pdf.SetFont "Arial","I",28
' Creo un nuovo documento PDF
pdf.Open()
' Aggiungo una pagina al documento PDF
pdf.AddPage()
'pdf.SetCreationDate Now() ' data creazione del documento (puoi inserire anche l'ora)
pdf.SetDisplayMode "real" ' modalità di apertura del documento (real = 100%)
pdf.SetTextColor 0,0,0
dim rs1
Set rs1 = Server.CreateObject("adodb.recordset")
rs1.ActiveConnection = MM_conn_STRING
rs1.source = "SELECT * FROM T_Convocazioni WHERE Stagione='" & Stagione &"' and Categoria='" & Categoria & "' and DataConvocazione=#" & Data & "# and Convocato='" & 1 & "'"
rs1.CursorType = 0
rs1.CursorLocation = 3
rs1.LockType = 3
rs1.Open()
if not rs1.eof then
rs1.movefirst
while not rs1.eof
n = rs1.fields.item("Nome").value
c = rs1.fields.item("Cognome").value
x=pdf.GetX()
y=pdf.GetY()
pdf.SetXY 100,100
'pdf.Cell 0,0, n
pdf.Cell 0,0, rs1.recordcount
pdf.SetXY x,y+25
pdf.Cell 0,0, c
'FINE LOOP RIGHE
rs1.movenext
pdf.SetXY x+6,y
'pdf.addpage()
wend
else
end if
' Chiudo il documento
pdf.Close()
' SE LO VOLESSI SALVARE REALMENTE
'filewrite=server.mappath("public/pdf.pdf")
dim percorso
filewrite=server.mappath("public/pdf.pdf")
pdf.Output(filewrite)
percorso = "public/pdf.pdf"
Response.Redirect(percorso)
' Stampo il documento
'pdf.Output()
%>
</BODY>
</HTML>
<%
response.flush()
%>
Rispondi quotando