58 messaggi dal 12 luglio 2002
Ciao a tutti,
Ho questo script che impagina i record di un db.
Non riesco a fargli mettere il numero dei record da far vedere in una unica tabella, li mette sempre in un numero di tabelle uguali al numero di record.
Mi dite per favore dove ho sbagliato.
Grazie
Posto lo script
<% Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq="&Server.MapPath("../Database_d.mdb")
Set rs = Server.CreateObject("ADODB.Recordset")
'conn.open
sqlquery ="SELECT * FROM prenotazioni ORDER BY arrivo"
paginamia=request("whichpage")
If paginamia="" then
paginamia=1
end if
numrecpag=request("pagesize")
If numrecpag="" then
numrecpag=3
end if
mySQL=request("SQLquery")
IF mySQL="" THEN
mySQL=sqlquery
END IF
rs.cursorlocation=3
rs.cachesize=5
sqlquery=lcase(mySQL)
rs.Open sqlquery,conn
if rs.EOF then 'vediamo se ci sono record
Response.redirect("nodati.asp")
else
rs.movefirst
rs.pagesize=numrecpag
maxpagine=cint(rs.pagecount)
maxrecords=cint(rs.pagesize)
rs.absolutepage=paginamia
cisono=0
%>
<body bgcolor="#FFFFFF">
<tr bordercolor="#000000">
<%DO UNTIL rs.eof OR cisono>=maxrecords%>
<table border="1" cellpadding="1" width="650" cellspacing="2" bgcolor="#0098FF" height="90" bordercolor="#000000" align="center">
<center>
<tr bordercolor="#000000">
<td width="17" valign="middle" align="center" bgcolor="#0099FF" height="29"><b><font size="1" face="Verdana, Arial, Helvetica, sans-serif">Cancella</font></b></td>
<td width="17" valign="middle" align="center" bgcolor="#0099FF" height="29"><b><font size="1" face="Verdana, Arial, Helvetica, sans-serif">Modifica</font></b></td>
<td width="210" bgcolor="#0099FF" height="29">
<div align="center"><font size="1" face="Verdana"><b>Nome</b></font></div>
</td>
<td width="210" bgcolor="#0099FF" height="29">
<div align="center"><font size="1" face="Verdana"><b>Cognome</b></font></div>
</td>
<td width="210" bgcolor="#0099FF" height="29">
<p align="center"><font size="1" face="Verdana"><b>Email</b></font>
</td>
<td width="210" bgcolor="#0099FF" height="29">
<p align="center"><font size="1" face="Verdana"><b>Arrivo</b></font>
</td>
<td width="210" bgcolor="#0099FF" height="29">
<p align="center"><font size="1" face="Verdana"><b>Partenza</b></font>
</td>
</tr>
<tr>
<td width="17" valign="middle" align="center" bgcolor="#FFCC33" height="30"><input type="image" src="cancella.gif" border="0" alt="cancella il record numero <%=rs("id")%>" onclick=" Javascript: if (window.confirm('Si è sicuri di voler cancellare questa prenotazione?')) document.location.href='del.asp?cod=<%=rs("id")%>'" id="image1" name="image1" >
<td width="17" valign="middle" align="center" bgcolor="#FFCC33" height="30"><a href="edit.asp?cod=<%=rs("id")%>"><img border="0" src="modifica.gif" alt="modifica il record numero <%=rs("id")%>"></a></td>
<td width="210" bgcolor="#FFCC33" height="30">
<div align="center"><font size="2" face="Verdana"><%=rs("nome")%></font></div>
</td>
<td width="210" bgcolor="#FFCC33" height="30">
<div align="center"><font size="2" face="Verdana"><%=rs("cognome")%></font></div>
</td>
<td width="210" bgcolor="#FFCC33" height="30">
<div align="center"><font size="2" face="Verdana"><a href="mailto:<%=rs("email")%>"><%=rs("email")%></font></div>
</td>
<td width="210" bgcolor="#FFCC33" height="30">
<div align="center"><font size="2" face="Verdana"><%=rs("arrivo")%></font></div>
</td>
<td width="210" bgcolor="#FFCC33" height="30">
<div align="center"><font size="2" face="Verdana"><%=rs("partenza")%></font></div>
</td>
</tr>
</center>
<td width="267" valign="middle" align="right" bgcolor="#0099FF" height="21" bordercolor="#000000">
<div align="left">
<table width="100%" border="0">
<tr>
<td width="15%"><a href="add.asp"><img src="../tolink.gif" width="18" height="11" border="0"></a></td>
<td width="85%"><font size="1" face="Verdana, Arial, Helvetica, sans-serif" color="#983468">Aggiungi
prenotazione</font></td>
</tr>
</table>
</div>
</td>
<td width="324" bgcolor="#FFCC30">
<div align="right"><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><a href="logout.asp"><font color="#993366">Esci</font></a></font></div></td>
</tr>
</table>
<% rs.MoveNext
cisono=cisono+1
loop %>

<%end if
Call PageNavBar
sub PageNavBar()
pad=""
scriptname=request.servervariables("script_name")
response.write "<table rows='1' cols='1' width='550' border=0 align=center ><tr>"
response.write "<td align=center>"
response.write "<font size='1' color='black' face='Verdana,Helvetica, sans-serif'>Pagina " & paginamia & " di " & maxpagine & "</font> "
response.write "<font size='1' color='black' face='Verdana,Helvetica, sans-serif'>"
if (paginamia mod 10) = 0 then
counterstart = paginamia - 9
else
counterstart = paginamia - (paginamia mod 10) + 1
end if
counterend = counterstart + 9
if counterend > maxpagine then counterend = maxpagine
if counterstart <> 1 then
ref="<a href='" & scriptname
ref=ref & "?whichpage=" & 1
ref=ref & "&pagesize=" & numrecpag
ref=ref & "&sqlQuery=" & server.URLencode(mySQL)
ref=ref & "'>Prima</a>&nbsp;:&nbsp;"
Response.Write ref


ref="<a href='" & scriptname
ref=ref & "?whichpage=" & (counterstart - 1)
ref=ref & "&pagesize=" & numrecpag
ref=ref & "&sqlQuery=" & server.URLencode(mySQL)
ref=ref & "'>Precedente</a>&nbsp;"
Response.Write ref
end if
Response.Write "["
for counter=counterstart to counterend
If counter>=10 then
pad=""
end if
if cstr(counter) <> paginamia then
ref="<a href='" & scriptname
ref=ref & "?whichpage=" & counter
ref=ref & "&pagesize=" & numrecpag
ref=ref & "&sqlQuery=" & server.URLencode(mySQL)
ref=ref & "'>" & pad & counter & "</a>"
else
ref="<b>" & pad & counter & "</b>"
end if
response.write ref
if counter <> counterend then response.write " "
next
Response.Write "]"
if counterend <> maxpagine then
ref="&nbsp;<a href='" & scriptname
ref=ref & "?whichpage=" & (counterend + 1)
ref=ref & "&pagesize=" & numrecpag
ref=ref & "&sqlQuery=" & server.URLencode(mySQL)
ref=ref & "'>Successiva</a>"
Response.Write ref


ref="&nbsp;:&nbsp;<a href='" & scriptname
ref=ref & "?whichpage=" & maxpagine
ref=ref & "&pagesize=" & numrecpag
ref=ref & "&sqlQuery=" & server.URLencode(mySQL)
ref=ref & "'>Ultima</a>"
Response.Write ref
end if
response.write "<br></font>"
response.write "</td>"
response.write "</table>"
end sub %>

<% rs.close
set rs = Nothing
conn.close
set conn = Nothing %>
<table width="78%" cellspacing="0" cellpadding="0" align="center" border="0">
</table>
<br>
<table WIDTH="75%" BORDER="0" CELLSPACING="0" CELLPADDING="0" align="center">
<tr>
<td align="center" height="30" colspan="2"><font style="font-size:11px;font-family:verdana"><a HREF="javascript:window.history.back();">Pagina Precedente</a></font></td>
</tr>
</table>
</div>
</body>
</html>
Non ti basta togliere il border dalla tabella cosi' non vedi più le tabelle e le celle interne? O ho capito male io?

Ciao

Alberto Biancardo

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.