I forum Ricerca FAQ
Fai una domanda
Ultimo messaggio
PITAGORA
PITAGORA
il 27 luglio 2001 alle 15:30
274 messaggi dal 21 luglio 2001
ragazzi ho un prb con la mia paginazione...il problema e' che nn mi da errori ma non funziona...nn mi conteggia le pagine e nn va avanti e non mi mette i 10 record per pagina....

se qualcuno mi puo' aiutare gli posto il codice qui sotto....

e' un po' lungo...me solo perche' ci sono delle tabelle.....niente di grave


fatemi sapere !!!!
grazie claudio!!!

BELLA A TUTTI !!!
:-)
RispondiQuoting
danichan
danichan
il 27 luglio 2001 alle 16:29
6 messaggi dal 18 luglio 2001
il codice???

danichan
danichan
RispondiQuoting
PITAGORA
PITAGORA
il 27 luglio 2001 alle 16:44
274 messaggi dal 21 luglio 2001
questo e' quello giusto...quellodi prima no !!!!

grazie

<html>

<head>
<meta HTTP-EQUIV="Content-Type" CONTENT="text/html;charset=windows-1252">
<title>Risultato</title>
</head>

<body>
<%
TT = 12 ' totale delle pagine
XX = request("XP") ' pagina corrente
BP = request("P1")
select case BP
case "Prima Pagina"
XX = 1
case "Pagina Precedente"
XX = XX-1
if XX<1 then XX= 1
case "Pagina Successiva"
XX=XX+1
if XX > TT then XX = TT
case "Ultima Pagina"
XX = TT
end select
if XX = "" then XX = 1
%>

<h3 align="center">Paginazione - Pagina <% = XX %> di <% = TT %></h3>
<%

If IsObject(Session("articoli_conn")) Then
Set conn = Session("articoli_conn")
Else

curDir = Server.MapPath("articoli.mdb")
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open("DBQ=" + curDir + ";Driver={Microsoft Access Driver (*.mdb)};DriverId=25;FIL=MS Access")
Set Session("articoli_conn") = conn
End If


if Request.QueryString("fromUrl") <> "yes" then
y1 = Request.Form("x1")
y2 = Request.Form("x2")
y3 = Request.Form("x3")
else
y1 = Request.QueryString("y1")
y2 = Request.QueryString("y2")
y3 = Request.QueryString("y3")
end if
sql= "SELECT * FROM TOTALE_DEALER WHERE NUMERO='" & y1 & "' AND "
sql= sql + "MESE_INTERO= '" & y2 & "'"

if y3 <> "" then
sql = sql & " AND DESCRIZIONE='" & y3 & "' "
end if
sql =sql & " order by numero"

Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, conn, 3, 3
%>

<p align="center"><font face="Tahoma"><strong>Hai cercato il Numero:</strong> <font
color="#000000">" </font><font color="#FF0000"><%=y1%></font><font color="#000000"> "<strong> 
</font>Nel mese di:</strong>" <font color="#FF0000"><%=y2%></font><font color="#000000"> </font></font><font
color="#000000" face="Tahoma">"<strong> Con tipologia:</strong>" </font><font
face="Tahoma" color="#FF0000"><%=y3%> </font><font color="#000000" face="Tahoma">"<strong><br>
</strong></font><font face="Tahoma"><!--INIZIO DELLO SCRIPT PER STAMPARE LA PAGINA--><script language="Javascript">
var NS = (navigator.appName == "Netscape");
var VERSION = parseInt(navigator.appVersion);
if (VERSION > 3) {
document.write('<form><input type=button value="Stampa questa pagina" name="Print" onClick="printit()"></form>');
}
</script><script
language="Javascript">

function printit(){
if (NS) {
window.print() ;
} else {
var WebBrowser = '<OBJECT ID="WebBrowser1" WIDTH=0 HEIGHT=0 CLASSID="CLSID:8856F961-340A-11D0-A96B-00C04FD705A2"></OBJECT>';
document.body.insertAdjacentHTML('beforeEnd', WebBrowser);
WebBrowser1.ExecWB(6, 2);//Use a 1 vs. a 2 for a prompting dialog box WebBrowser1.outerHTML = "";
}
}
</script><!--FINE DELLO SCRIPT PER STAMPARE LA PAGINA--></font></p>
<!--CREAZIONE DELLA TABELLA-->
<div align="center"><center>

<table border="1" cellspacing="0" width="1042">
<tr align="center" valign="middle" bgcolor="#EEEEEE">
<td width="161" align="center" height="30" valign="middle" bgcolor="#000080"><p
align="center"><font face="Tahoma" color="#FFFFFF"><strong>CHIAMATO</strong></font></td>
<td width="95" align="center" valign="middle" height="30" bgcolor="#000080"><p
align="center"><font face="Tahoma" color="#FFFFFF"><strong>DATA</strong></font></td>
<td width="63" align="center" valign="middle" height="30" bgcolor="#000080"><p
align="center"><font face="Tahoma" color="#FFFFFF"><strong>ORA</strong></font></td>
<td width="177" align="center" height="30" valign="middle" bgcolor="#000080"><p
align="center"><font face="Tahoma" color="#FFFFFF"><strong>IMPORTO</strong></font></td>
<td width="579" align="center" height="30" valign="middle" bgcolor="#000080"><p
align="center"><font face="Tahoma" color="#FFFFFF"><strong>DESCRIZIONE</strong></font></td>
</tr>
<%
'On Error Resume Next
xCount = 1
Do While Not rs.eof
%>
<tr align="center" valign="middle">
<td align="center" width="226" height="1"
style="font-family: Tahoma; font-size: 10pt; color: rgb(0,0,128)"><%=rs("chiamato").Value%>
</td>
<td width="202" align="center" height="1"
style="font-family: Tahoma; font-size: 10pt; color: rgb(0,0,128)"><%=rs("data").Value%>
</td>
<td width="184" align="center" height="1"
style="font-family: Tahoma; font-size: 10pt; color: rgb(0,0,128)"><%=rs("ora_inizio").Value%>
</td>
<td align="center" width="155" height="1"
style="font-family: Tahoma; font-size: 10pt; color: rgb(0,0,128)" valign="middle"><%=Round(RS("IMPORTO"),3)%>
</td>
<td align="center" width="589" height="1"
style="font-family: Tahoma; font-size: 10pt; color: rgb(0,0,128)"><%=rs("descrizione").Value%>
</td>
<%
rs.MoveNext
xCount = xCount + 1
Loop
rs.Close
%>
</tr>
</table>
</center></div>

<form name="FF" method="post" action="cerca.asp">
<input type="hidden" name="XP" value="<% = XX %>"><div align="center"><center><p><input
type="submit" name="P1" value="Prima Pagina"> <input type="submit" name="P1"
value="Pagina Precedente"> <input type="submit" name="P1" value="Pagina Successiva"> <input
type="submit" name="P1" value="Ultima Pagina"> </p>
</center></div>
</form>
</body>
</html>


BELLA A TUTTI !!!
:-)
RispondiQuoting

Torna al forum | Feed RSS

ASPItalia.com non è responsabile per il contenuto dei messaggi presenti su questo servizio, non avendo nessun controllo sui messaggi postati nei propri forum, che rappresentano l'espressione del pensiero degli autori.