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