problema con paging

**hugheshi** · 20-12-2004, 16:31

da un form creo un recordset ma non riesco a impaginarlo , nels enso che dopo la prima pagina mi perde i dati e mi ritorna alla form di partenza.

**superesse** · 20-12-2004, 16:33

codice please....

**willybit** · 20-12-2004, 16:33

o tieni i parametri in sessione o li ripassi ogni volta che cambi pagina

**hugheshi** · 20-12-2004, 16:43

ecco il codice :

codice:

<%
corso = Replace(Trim(Request.Form("corso")), "'", "''")%>
<body>
<form name="info">
<%
CNN=Application("CNN")

set conn=Server.CreateObject("ADODB.Connection")
conn.open CNN

set rs=Server.CreateObject("ADODB.RecordSet")
'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^paging

perpage=15
rs.cachesize=perpage
rs.cursorlocation=3


'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^paging

qry="SELECT * FROM iscritti  WHERE corso = '"& corso &"' order by  edizioni, settore desc;"

rs.Open qry,conn
if rs.eof then
%>
Nessun   record disponibile.

  <%
else
%>
ISCRIZIONI AI CORSI: per il corso <%=rs.fields("corso")%>
<%

<%
'********************************************************************************************************paging
rs.pagesize=perpage
dim ltot: ltot=rs.recordcount
dim lpagine: lpagine=rs.pagecount
dim ipg: ipg=cint(request.querystring("pg"))
if ipg=0 then ipg=1
if ipg>lpagine then ipg=lpagine
rs.absolutepage=ipg
dim rowcount: rowcount=perpage

'********************************************************************************************************paging

	while not rs.EOF AND rowcount >0
	%>
    <tr> 
      <td width="17%><%=rs.fields("iper")%></td>
      <td width="17%"><%=rs.fields("edizioni")%></td>
      <td width="17%"><div align="left"><%=rs.fields("settore")%></td>
       <td width="14%"> <a href="javascript:cancella('<%=rs.fields("id")%>' , '<%=replace(rs.fields("nome"),"'"," \'")%>')">Cancella Datoa></td>
    </tr>
    <%
	rowcount=rowcount-1
	rs.MoveNext
	wend


'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
	%>
    <tr> 
      <td height="33" colspan=7 align=center > <div align="center"><font color="#0000FF" face="Verdana, Arial, Helvetica, sans-serif">Pag: 
          <%
		dim a
		for a=1 to ipg -1
		%>
          "><%=a%> 
          <%
		next
		response.write "" & ipg & ""
		for a=ipg + 1 to lpagine
		%>
          "><%=a%> 
          <%
		next
		

'********************************************************************************************************paging
%>
          </font></div></td>
    </tr>
    <tr> 
       
      </td>
      <td colspan="4" align=center >STAMPA</td>
    </tr>
    <%
'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
%>
  </table>
<%
end if

rs.close
set rs=nothing

conn.close
set conn=nothing
%>
</form>

</body>

**willybit** · 20-12-2004, 17:13

o usi una variabile di sessione

codice:

if Request.Form<>"" then
  corso = Replace(Trim(Request.Form("corso")), "'", "''")
  Session("corso")=corso
else
  corso = Session("corso")
end if

oppure non usi il POST ma il GET

codice:

xcorso = Request("corso")
corso = Replace(Trim(xcorso), "'", "''")

e la paginazione la fai così

codice:

<a href="anomalie_exe.asp?corso=<%=corso%>&pg=<%=a%>"

**hugheshi** · 20-12-2004, 17:34

grazie 1000

funziona (uso il get )

Discussione: problema con paging

Strumenti discussione

Ricerca discussione

Visualizza

problema con paging

Permessi di invio