recorset in javascript

[Luca1317]

devo stampare la lista dei record che ho in una tabella (purtroppo devo farlo in javascript) ma mi stampa solo il primo record

<%@language=javascript%>


<%
var Rec=Server.CreateObject("Adodb.Recordset")
var SQL="SELECT * FROM tabella1"
Rec.Open(SQL,Conn,3,3)


Rec.MoveFirst();


var Cod1=Rec("Cod1");

var valore=Rec("valore");

var pdf=new FPDF();

pdf.CreatePDF()
pdf.SetPath("print/fpdf/");

pdf.LoadModels('intestazioneNumPagina');

pdf.Open();
pdf.AddPage()
pdf.SetDisplayMode("fullpage");

pdf.SetFont ("arial",'',9);

pdf.SetFont ("arial",'',9);
pdf.Cell (20,5,valore,0,"L");

Rec.MoveNext(); 

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

[maximum]

Vedo il "movenext" ma non vedo il ciclo "Do While......Loop".

[Luca1317]

nel codice supra l'ho eliminato perchè quando metto

Rec.MoveFirst();
do while not(rec.eof)

mi dice:

Errore di compilazione di Microsoft JScript error '800a03ed' 

Previsto '(' 

/stampa.asp, line 11 

do while not(rec.eof)

non so come muovermi in javascript :master:

[maximum]

Usa VBScript, se non ti è troppo difficile cambiare il codice.

E? più semplice.

[Luca1317]

non posso cambiare purtroppo...le stampe devo farle per forza in javascript.

ma è proprio così complicato?

[maximum]

Ad ogni modo il Do While...Loop devi lasciarlo (correggendone l'errore della parentesi), altrimenti , prenderai sempre e solo il primo record.

P.S.:Solo che io con ASP/JScript non sono una cima, mi spiace...

[Luca1317]

ok...ora provo a tentativi

grazie

[agenti]

forse ti può essere utile.

http://javascript.html.it/guide/lezione/900/dowhile/

[Luca1317]

sto provando a farlo in vbscript:

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

do 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
Loop

pdf.Close()
pdf.Output()

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

%>

ma mi restituisce sempre 1 record

[agenti]

sinceramente sembra ok...

ma non so se "pdf.Cell 40,10,valore1"

possa stampare il recordset