Ho anche cambiato metodo ma niente...mi da solo il primo record
codice:
<%@language=vbscript%>


<%




//E creo il recordset
Set Rec = Server.CreateObject ("ADODB.Recordset")
//Scrivo la mia query sql
sql = "SELECT * FROM tab order by ID DESC"
Rec.Open sql, Conn, 3, 3

While Not rec.EOF

Dim i,pdf

	valore1= Rec("valore1")
	

Set pdf=CreateJsObject("FPDF")
pdf.CreatePDF()
pdf.SetPath("stampa/fpdf/")

pdf.Open()

pdf.AddPage()
pdf.SetDisplayMode("fullpage")
pdf.SetFont "Times","",12

	pdf.Cell 40,10,valore1
	
Rec.MoveNext
Wend

pdf.Close()
pdf.Output()

Rec.Close
set Rec = Nothing
conn.Close 
set conn = Nothing

%>
dov'è che sbaglio?