Stampare una lista di Rec senza paginare

[zeweb]

Dovrei stampare in una sola pagina senza paginazione dei Rec

Ho questo script cosa devo togliere? Grazie!

<%
    Set oCon = Server.CreateObject ("ADODB.Connection")
    Set Rec = Server.CreateObject ("ADODB.Recordset")
    oCon.Open strCon
    sql = "Select * from comuni order by id ASC"
    Rec.Open sql, oCon,3,3
    recordsperpage=8
    Rec.pagesize=recordsperpage
    Pages=request.querystring("pagina")
    if (len (Pages)>0 and isnumeric(Pages)) then
    Pages=clng(Pages)
    else
    Pages=1
    end if
%>
        <%   
    if not Rec.eof then
    Rec.pagesize=recordsperpage
    Rec.absolutepage=Pages
    'qui inserisce le pagine
    response.write "<div align='right'>"
    for i=1 to Rec.pagecount
    if i=1 then response.write "Pagine: "
    if i=Pages then
    response.write "("&i&") "
    else
    response.Write(""&i&" ")
    end if
    next
    response.write "</div>"
    'fine pagine
    for x=1 to recordsperpage
    if not Rec.eof then
%>
<%
    end if
    if not Rec.EOF then Rec.movenext
    next
    set Rec=nothing
    set oCon=nothing
    end if
%>

[Mems]

Vuoi tutti i record in una sola pagina?

[lufo5]

    Set oCon = Server.CreateObject ("ADODB.Connection")
    Set Rec = Server.CreateObject ("ADODB.Recordset")
    oCon.Open strCon
    sql = "Select * from comuni order by id ASC"
    Rec.Open sql, oCon,3,3
    

    do until rec.eof
			%>
			metti qui il codice html e response che vuoi
			<%
    	Rec.movenext
    loop
    rec.Close
    oCon.Close
    set Rec=nothing
    set oCon=nothing

[Mems]

Originariamente inviato da lufo5

    Set oCon = Server.CreateObject ("ADODB.Connection")
    Set Rec = Server.CreateObject ("ADODB.Recordset")
    oCon.Open strCon
    sql = "Select * from comuni order by id ASC"
    Rec.Open sql, oCon,3,3
    

    do until rec.eof
			%>
			metti qui il codice html e response che vuoi
			<%
    	Rec.movenext
    loop
    rec.Close
    oCon.Close
    set Rec=nothing
    set oCon=nothing

Set oCon = Server.CreateObject ("ADODB.Connection")
    Set Rec = Server.CreateObject ("ADODB.Recordset")
    oCon.Open strCon
    sql = "Select * from comuni order by id ASC"
    Rec.Open sql, oCon,3,3
    
    if not rec.eof then
    do until rec.eof
			%>
			metti qui il codice html e response che vuoi
			<%
    	Rec.movenext
    loop
    end if
    rec.Close
    oCon.Close
    set Rec=nothing
    set oCon=nothing

[zeweb]

Perfetto, grazie 1000!

[lufo5]

Originariamente inviato da Mems

Set oCon = Server.CreateObject ("ADODB.Connection")
    Set Rec = Server.CreateObject ("ADODB.Recordset")
    oCon.Open strCon
    sql = "Select * from comuni order by id ASC"
    Rec.Open sql, oCon,3,3
    
    if not rec.eof then
    do until rec.eof
			%>
			metti qui il codice html e response che vuoi
			<%
    	Rec.movenext
    loop
    end if
    rec.Close
    oCon.Close
    set Rec=nothing
    set oCon=nothing

e a che serve sto controllo in più? :master:

[Mems]

Originariamente inviato da lufo5
e a che serve sto controllo in più? :master:

Serve a non fare andare in errore la pagina qualora il recordset è vuoto.

[lufo5]

Originariamente inviato da Mems
Serve a non fare andare in errore la pagina qualora il recordset è vuoto.

lo fa già qui: do until rec.eof

[Mems]

fai una prova
crea una tabella vuota, fai una select e parti subito con il do until rs.eof
poi mi dici.

[lufo5]

Originariamente inviato da Mems
fai una prova
crea una tabella vuota, fai una select e parti subito con il do until rs.eof
poi mi dici.

http://www.lufonet.com/redirect_new.asp

dire che non ci sono problemi...