• User

    Problema Asp + Fpdf + Database

    ciao a tutti, ho il seguente problema:

    devo realizzare un pdf che mi estrae i dati da un database; riesco a farlo solo se non inserisco un header ed un footer. altrimenti mi da il seguente errore:

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

    vi posto il codice così magari mi date una mano nel trovare l'errore. grazie

    <%@language=javascript%>
    <!--#include file="fpdf.asp"-->
    <%
    // Creazione dell'oggetto
    pdf=new FPDF();
    // Ridefinizione delle funzioni
    pdf.Header=function Header()
    {
    this.Image('foto.jpg',10,8,80,40);
    this.SetFont('Arial','B',18);
    this.Cell(80);
    this.Cell(0,10,'Nome della Ditta',0,0,'C');
    this.Ln(6);
    this.SetFont('Arial','B',14);
    this.Cell(80);
    this.Cell(0,10,'Nome Cognome Proprietario',0,0,'C');
    this.Ln(5);
    }
    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
    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

    pdf.Close()
    pdf.Output()
    %>


  • Super User

    Perchè non metti i ; come sopra?


  • User Attivo

    secondo me il problema è che stai mischiando i linguaggi usi ASP con javascript e vbscript. Se sei abituato ad usare vbscript usa solo quello, non fa nulla che la pagina che includi fpdf.asp sia stata scritta in javascript. Io creo una pagina con queste specifiche:
    <%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>

    includo il file fpdf.asp e il resto lo scrivo in vbscript, mi funziona tutto.

    prova e fammi sapere.

    P.S. la dichiarazione della connessione in javascript dovrebbe diventare così:
    var Conn = new Server.CreateObject("adodb.connection")