Salve a tutti ho questo Problema:

devo creare un pdf con fpdf dal cui estraggo i dati presenti un db di tipo access, però, mettendo una header ed un footer mi da il seguente errore:

Errore di compilazione di Microsoft JScript (0x800A03EC)
Previsto ';'
/test/magazzino/articoli/pdf_header.asp, line 59, column 4
Set Conn=Server.CreateObject("ADODB.Connection")
---^

Ecco il Codice della Pagina pdf_header.asp:

<%@language=javascript%>

<%
// Creazione dell'oggetto
pdf=new FPDF();

// Ridefinizione delle funzioni
pdf.Header=function Header()
{

this.Image('foto.jpg',15,12,80,40);
this.SetFont('Arial','B',20);
this.Cell(80);
this.Cell(0,10,'Onoranze Funebri Dolermo',0,0,'C');
this.Ln(6);
this.SetFont('Arial','B',14);
this.Cell(80);
this.Cell(0,10,'di Dolermo Roberto',0,0,'C');
this.Ln(5);
this.SetFont('Arial','B',8);
this.Cell(80);
this.Cell(0,10,'via M. Ferraris n. 26 - Tel. 0144.325192',0,0,'C');
this.Ln(5);
this.SetFont('Arial','B',8);
this.Cell(80);
this.Cell(0,10,'15011 Acqui Terme (AL)',0,0,'C');
this.Ln(5);
this.SetFont('Arial','B',8);
this.Cell(80);
this.Cell(0,10,'P.IVA 01866690066',0,0,'C');
this.Ln(5);
this.SetFont('Arial','B',8);
this.Cell(80);
this.Cell(0,10,'cat.13.b/2000amm.va del 27.3.2000 rilasciata da Questura AL.',0,0,'C');
this.Ln(5);
this.SetFont('Arial','B',8);
this.Cell(80);
this.Cell(0,10,'Aut. Comunale n. 685n del 9.3.2000',0,0,'C');
this.Ln(5);
this.SetFont('Arial','B',8);
this.Cell(80);
this.Cell(0,10,'Reg. Imprese Albo Artig. n. 61231',0,0,'C');
this.Ln(20);
}

pdf.Footer=function Footer()
{
this.SetY(-15);
this.SetFont('Arial','I',8);
this.Cell(0,10,'Page '+ this.PageNo()+ '/{nb}',0,0,'C');
}

// Main
pdf.CreatePDF()
pdf.SetPath("fpdf/")
pdf.Open()
pdf.AddPage()

Set Conn=Server.CreateObject("ADODB.Connection")
strConn="driver={Microsoft Access Driver (*.mdb)}; "
strConn=strConn & " DBQ=" & Server.MapPath("../Database/db.mdb")
strConn=strConn & ";pwd=" & strCode
Conn.Open strConn
sql = "SELECT * FROM articoli"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, conn ,3,3

do while not(rs.eof)

// Valorizzazione variabili
codice_articolo = rs.Fields("codice_articolo")
articolo = rs.Fields("articolo")
descrizione = rs.Fields("descrizione")
catalogo = rs.Fields("catalogo")
fornitore = rs.Fields("fornitore")

pdf.SetFont "Arial","",8
pdf.Cell 10,2," "&codice_articolo&" ",0
pdf.Cell 50,2," "&articolo&" ",0
pdf.Cell 30,2," "&descrizione&" ",0
pdf.Cell 30,2," "&catalogo&" ",0
pdf.Cell 30,2," "&fornitore&" ",0
pdf.Ln(5)


rs.movenext
i=i+1
Loop


rs.close

pdf.Close()

pdf.Output()
%>


Chi mi sa aiutare?.

Se scrivo il seguente codice mi funziona però non ho ne l'eader e ne il footer:

<%@language=vbscript%>



<%
' 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 (16)
pdf.SetFont "Arial","B",10

' Creo un nuovo documento PDF
pdf.Open()

' Aggiungo una pagina al documento PDF
pdf.AddPage()
{
' Imposta il font
pdf.SetFont "Arial","B",16
' Muove a 8 cm dalla destra
pdf.Cell(80);
' Testo centrato in una cella di 20*10 mm e interruzione di linea
pdf.Cell(20,10,"Title",1,1,"C");
}
Set Conn=Server.CreateObject("ADODB.Connection")
strConn="driver={Microsoft Access Driver (*.mdb)}; "
strConn=strConn & " DBQ=" & Server.MapPath("../Database/db.mdb")
strConn=strConn & ";pwd=" & strCode
Conn.Open strConn
sql = "SELECT * FROM articoli"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, conn ,3,3

do while not(rs.eof)

'## Valorizzazione variabili
prodotto = rs.Fields("codice_articolo")
totale = rs.Fields("articolo")
quantita = rs.Fields("descrizione")
pippo = rs.Fields("catalogo")
peppo = rs.Fields("fornitore")

pdf.SetFont "Arial","",8
pdf.Cell 10,2," "&prodotto&" ",0
pdf.Cell 50,2," "&totale&" ",0
pdf.Cell 30,2," "&quantita&" ",0
pdf.Cell 30,2," "&catalogo&" ",0
pdf.Cell 30,2," "&fornitore&" ",0
pdf.Ln(5)


rs.movenext
i=i+1
Loop


rs.close

' Chiudo il documento
pdf.Close()

' Stampo il documento
pdf.Output()
%>

Grazie mille