pdf da daabase...

[giangarotto]

Salve a tutti, ho un problema che non ho trovato già postato, allora io ho un database con delle news e vorrei che queste news, possano essere trasformate-visualizzate anche nel formato pdf.
Il mio problema sta nel come recuperare le informazione presenti nel database.
Utilizzo la classe FPDF del bravissimo BAOL74.

<%@language=javascript%>


<%

var pdf=new FPDF();
pdf.CreatePDF();
pdf.SetPath("fpdf/");
pdf.SetFont("Arial","",16);
pdf.Open();
pdf.AddPage();
pdf.Cell(40,10,"Hallo!");
pdf.Close();
pdf.Output();
%>

grazie 1000

[Fichico]

le news van recuperate come lo fai normalmente in asp ...

[giangarotto]

<%@LANGUAGE = JScript%>

<%
var quanti = 6;
var Mostra_News = new ActiveXObject("ADODB.Recordset");
Mostra_News.Open("SELECT * FROM news ORDER BY id DESC",Cn,1);
var id = parseInt(Request.QueryString("id"));
if (isNaN(id) || id < 1) id = 1;
if (!Mostra_News.EOF)
{
Mostra_News.PageSize = quanti;
Mostra_News.AbsolutePage = id;
}
var i_News = 0;
var c_News = 0;
%>

e questo per la visualizzazione

<%
var pagina = parseInt(Request.QueryString("p"));
if (isNaN(pagina) || pagina<1) pagina = 1;


var Mostra_News = new ActiveXObject("ADODB.Recordset");
//Mostra_News.Open(sql,ADOConnection,3,1);
Mostra_News.Open("SELECT * FROM news ORDER BY id DESC",Cn,1);

if (!Mostra_News.EOF) {
Mostra_News.PageSize = quanti;
Mostra_News.AbsolutePage = pagina;
i = 0;
%>
<%
while (i<quanti && !Mostra_News.EOF) {
%>
<%=Mostra_News("titolo")%>
<%
var Cn = new ActiveXObject("ADODB.Connection");
Cn.Open("driver={Microsoft Access Driver (*.mdb)};dbq=" + Server.MapPath("/mdb-database/news.mdb"));

var Mostra = Cn.Execute("SELECT * FROM news");
// Converto il record che mi interessa in stringa
var Stringa = String(Mostra_News("Autore"));

// e ne calcolo la lunghezza che, se superiore a TOT
if (Stringa.length >= 36)
{
// creo una sottostringa ed aggiungo tre puntini...
Response.Write(Stringa.substr(0,35) + " ...");
}
else
{
// altrimenti lo stampo per intero omettendo i tre puntini!
Response.Write(Stringa);
}
Cn.Close();
%>
<%=Mostra_News("data")%>
<%
var Cn = new ActiveXObject("ADODB.Connection");
Cn.Open("driver={Microsoft Access Driver (*.mdb)};dbq=" + Server.MapPath("/mdb-database/news.mdb"));

var Mostra = Cn.Execute("SELECT * FROM news");
// Converto il record che mi interessa in stringa
var Stringa = String(Mostra_News("sottotitolo"));

// e ne calcolo la lunghezza che, se superiore a TOT
if (Stringa.length >= 136)
{
// creo una sottostringa ed aggiungo tre puntini...
Response.Write(Stringa.substr(0,135) + " ...");
}
else
{
// altrimenti lo stampo per intero omettendo i tre puntini!
Response.Write(Stringa);
}
Cn.Close();
%>
<%
Mostra_News.MoveNext();
i++;
}
%>
<% } %>

[giangarotto]

qualcuno sa darmi un piccolo aiutino???