rispondi alle seguenti domande:
1)la pagina elenco.asp e quella postata? SI
2)tu vorresti meno risultati per pagina? NO
3)cosa significa vorrei ritornare alla pagina riferita a quell'id preciso!!!!!!
Esempio inizialmente vado aprire questo elenco con tutti questi ris. x pag. vado alla pagina 10 su 14 e clicco modifica per entrare sulla pagina di modifica scheda riferimento - faccio le mie modifiche salvo e salvando mi deve ritornare a quella pagina 10 su 14 e non 1 su 14
4)nel body della pagina vi sono altre informazioni che potrebbero esse utili alla soluzione della tua richiesta?
ti do tutto il contenuto del body
<table height="79" cellSpacing="2" cellPadding="0" width="716" align="center" border="0">
<tr>
<td width="25%" height="75"><map name="FPMap1">
<area href="../index.htm" shape="rect" coords="0, 50, 54, 74"></map>[img]../index_file/01.jpg[/img]</td>
<td width="27%">
<div align="center">
<map name="FPMap0">
<area href="mailto:info@raffaellodocenti.it" shape="rect" coords="0, 54, 54, 74"></map>[img]../index_file/02.gif[/img]
</div>
</td>
<td width="8%">
<object codeBase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,29,0" height="75" width="125" classid="clsid
27CDB6E-AE6D-11cf-96B8-444553540000">
<param NAME="movie" VALUE="../banner.swf">
<param NAME="quality" VALUE="high"><embed src="../banner.swf" quality="high" pluginspage="http://www.macromedia.com/go/getflashplayer" type="application/x-shockwave-flash" width="125" height="75">
</object>
</td>
<td width="40%">
<div align="right">
[img]../index_file/04.jpg[/img]
</div>
</td>
</tr>
</table>
<table width="716" border="0" align="center" cellpadding="1" cellspacing="0" bgcolor="#0302B6">
<tr>
<td><table width="100%" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">
<tr>
<td width="1" bgcolor="#003366">[img]../1pixel.gif[/img]</td>
<td width="498" bgcolor="#003366">[img]../1pixel.gif[/img]</td>
<td width="1" bgcolor="#003366">[img]../1pixel.gif[/img]</td>
</tr>
<tr>
<td bgcolor="#003366">[img]../1pixel.gif[/img]</td>
<td><table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td class="normale" colspan="2"><h4 align="center">GESTIONE UTENTI</h4></td>
</tr>
<tr align="center">
<td width="356" align="right" class="normale"><FORM method="post" action="add.asp">
<input type="submit" class="normale" value="NUOVO">
</form></td>
<td width="355" align="left" class="normale"><FORM method="post" action="riservatoadmin.asp">
<input type="submit" class="normale" size="6" value="TORNA ALL'ELENCO">
</form></td>
</tr>
</table>
<table border="0" cellpadding="0" cellspacing="0" width="100%">
<tr>
<td><table border="0" cellpadding="0" cellspacing="0" width="100%">
<tr width="660">
<td width="50" class="normale"></td>
<td width="120" class="normale">NOME</td>
<td width="120" class="normale">COGNOME</td>
<td width="100" class="normale">PASSWORD</td>
<td width="60" class="normale">ACCESSO</td>
<td width="80" class="normale">DOCENTE</td>
<td width="80" class="normale">DATA ISCR.</td>
<td width="50" class="normale">MATERIALE</td>
</tr>
</table></td>
</tr>
</table>
<table border="0" cellpadding="0" cellspacing="0" width="500">
<tr>
<td><table border="0" cellpadding="0" cellspacing="0" width="500">
<tr width="400">
<td width="500" height="9" class="normale"></td>
</tr>
</table></td>
</tr>
</table>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td><%
Dim strSQL, rec, boolFound, intPageNum, intNumRows, intCount, intLinks, intPagina
Const RECORDSPERPAGE = 100
strSQL = "SELECT * FROM utenti ORDER BY password DESC"
Set rec = Server.CreateObject("ADODB.Recordset")
rec.CursorLocation = adUseClient
rec.Open strSQL, Conn, adOpenStatic, adLockReadOnly, adCmdText
rec.PageSize = RECORDSPERPAGE
If ( Request("pn") <> "" ) Then
intPageNum = CInt(Request("pn"))
Else
intPageNum = 1
End If
'Conteggio delle righe
intNumRows = rec.RecordCount
If (intNumRows <> 0) Then
rec.AbsolutePage = intPageNum
'Esposizione dati
For intCount = 1 To rec.PageSize %>
<table border="0" cellpadding="0" cellspacing="0" width="100%">
<tr width="660">
<td width="50" class="normale"><div align="center">
"><font color="#000000">Modifica</font></div></td>
<td width="120" class="normale"><%=rec("nome")%></td>
<td width="120" class="normale"><%=rec("cognome")%></td>
<td width="100" class="normale"><%=rec("password")%></td>
<td width="60" class="normale"><%=rec("accesso")%></td>
<td width="80" class="normale"><%=rec("docente")%></td>
<td width="80" class="normale"><%=rec("iscrizione")%></td>
<td width="50" class="normale"><%=rec("nfilescaricati")%></td>
</tr>
</table>
<% rec.MoveNext
If ( rec.EOF ) Then Exit For
Next
End If %>
</table>
<table border="0" cellpadding="0" cellspacing="0" width="500">
<tr width="400">
<td width="500" height="9" class="normale"></td>
</tr>
</table>
<table width="100%" border="0">
<tr>
<td align="center"><% 'Navigazione sulle pagine
If ( intNumRows > 0 ) Then
Response.Write("<font size='1' face='Arial'>")
Response.Write "Pagina " & intPageNum & " di " & rec.PageCount & "
"
'Pagina precedente
If ( intPageNum > 1 ) Then
Response.Write "
«"
End If
'Numeri di pagina
For intLinks = 1 To rec.PageCount
intPagina = intPagina + 1
If intPagina > 20 Then
intPagina = 1
Response.Write("
")
End If
If intLinks = intPageNum Then
Response.Write "<font color='black'>
" & intLinks & "</font>"
Else
Response.Write "
" & intLinks & ""
End If
Next
'Pagina successiva
If ( intPageNum < rec.PageCount ) Then
Response.Write "
»"
End If
Response.Write("</font>")
'Fine navigazione sulle pagine
End If
'Chiusura recordset
rec.Close
Set rec = Nothing
%></td>
</tr>
</table>
</td>
</tr>
</table></td>
</tr>
</table>
spero di essere stato preciso
ciao
Rispondi quotando
