recorset in javascript

[Luca1317]

Ho anche cambiato metodo ma niente...mi da solo il primo record

<%@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?

[agenti]

mi viene un dubbio:

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()

effettui la chiamata all'oggetto Set pdf=CreateJsObject("FPDF")
all'interno del ciclo.
ma lo chiudi al di fuori del ciclo...

Rec.MoveNext
Wend

pdf.Close()
pdf.Output()

[Luca1317]

grazie al tuo suggerimento ho fatto progressi...ora mi restituisce tutti i ercord che ho nel database ma sempre il primo (me lo ripete tante volte quanti record ho):

<%@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



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

While Not rec.EOF

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

pdf.Close()
pdf.Output()

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

%>

[santino83]

embè...

While Not rec.EOF

             valore1=rec("valore1") 

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