farfadet
-------------------------------
Réponse au message :
-------------------------------
> farfadet
>
> bonjour,
> j'ai installer le forum hassanvb que j'ai trouvé dans les sources.
> mais j'ai un probleme de pagination, il ne marque pas le 10 eme sujet, il ne marque que 9 sujet sur la premiere pages.
> je crois que le code pour la pagination c'est ça:
> <%MyRs.movefirst%>
> <%for i=1 to (page*10)-10%>
> <%MyRs.movenext%>
> <%next%>
> <%do while not MyRs.EOF and i<>10%>
>
> <%
> if i mod 2=0 then
> cole="#FF9999"
> else
> cole="#FFCCCC"
> end if
> %>
> si quelqu'un pouvais m'aider
> Merci
> A+
pour que ça soie plus clair je met la page en entiere
<%
Page=cint(Request.QueryString("Page"))
if isnumeric(Page)=false then
Page=1
end if
if page="" or Page=0 then
Page =1
end if
%>
<%
Mega7 = "DBQ=" & Server.Mappath("Mega007.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};Driverld=25"
'-------création de la connection et du recordset-----------
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open Mega7
Set MyRs = Server.CreateObject("ADODB.Recordset")
'-------définition et exécution de la requête---------------
'***************************************************************************
req="select count (tabforum.frm_nume)as Tous from tabforum"
MyRs.Open req,Conn
Tous=MyRs("Tous")
NbrPage=Tous/10
If NbrPage>Tous\10 then
NbrPage=Tous\10 + 1
end if
if NbrPage=0 then
NbrPage=1
end if
MyRs.close
if Page>Nbrpage then
Page=1
end if
'***************************************************************************
req="select * from tabforum order by frm_date and frm_heur desc"
MyRs.Open req,Conn
if MyRs.EOF then
MyRs.close
conn.close
response.redirect "AjoutFRM.asp"
end if
%>
<html>
<head>
<script language="javascript" src="scripts\VerifCon.js"></script>
<script language="javascript">
function makeWindow(loc,pwidth,pheight) {
var myURL = loc;
var myWindow = "mega7";
var mywidth = pwidth;
var myheight = pheight;
var propertyWindow = "toolbar=no,location=no,directories=no,status=no,menubar=no,scrollbars=yes,resizable=no,width=" + pwidth + ",height=" + pheight;
var newWindow = window.open(myURL,myWindow,propertyWindow);
}
</script>
<title>Forum HassanVB</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<style>
/* -- SNF2 Welcome Page STYLE SHEET home_styles_win_ie.css VERSION 1.2--*/
A:hover {
COLOR: #990033; TEXT-DECORATION: underline; background-color=#DBDBDB;
BODY
{ font-family: Verdana, Helvetica, Arial, Sans-serif;
; background-repeat: repeat-x; font-size: 8pt }
TD { font-family: Verdana, Helvetica,
Arial, Sans-serif; font-size: 8pt; } A.bold { font-family: Verdana, Helvetica,
Arial, Sans-serif; font-size: 8pt; font-weight: bold; color: #003366; text-decoration:none;
} A.arrow { font-family: Verdana, Helvetica, Arial, Sans-serif; font-size: 8pt;
color: #003366; text-decoration: none; margin-left:3px; } A.hmlogText { font-family:
Verdana, Helvetica, Arial, Sans-serif; font-size: 10pt; text-decoration:none; color:
#660033; } A.hmlogText:visited {color: #ffffff;} IMG.hmlogArrow { margin-top:
4px; margin-right: 3px; } IMG.hmnavArrow { margin-top: 7px; margin-right: 3px;
} A.footerlink { font-family: Verdana, Helvetica, Arial, Sans-serif; color: #336699;
text-decoration:none; } A.footerlink:visited {color: #336699;} .footer { font-family:
Verdana, Helvetica, Arial, Sans-serif; color: #666666; } .highlights { font-family:
Verdana, Helvetica, Arial, Sans-serif; font-size: 10pt; color: #000000; font-weight:bold;
text-decoration:none; } .hmlogName { font-family: Verdana, Helvetica, Arial, Sans-serif;
font-size: 7pt; color: #ffffff; } .hmSelectedLanguage { font-family: Verdana,
Helvetica, Arial, Sans-serif; font-size: 9pt; text-decoration:none; color: #FFFFFF;
} TH.subheadNoLinkWhite { font-family: Verdana, Helvetica, Arial, Sans-serif;
color: #FFFFFF; font-size: 10pt; font-weight: bold; }
.formstyle { font-family: Arial, Helvetica, sans-serif; font-size: 11px; font-style: normal; font-weight: normal; color: #660000; background-color: #FFD9D9; border: 1px #660000 solid}
.bouttonstyle { border-left:1px solid solid; border-right:1px solid solid; border-top:1px solid #FFDDDD; border-bottom:1px solid #FFDDDD; font-family: Arial, Helvetica, sans-serif; font-size: 11px; font-style: normal; font-weight: bold; color: #FFDDDD; background-color: #990000; cursor: hand}
.gobtt { font-family: Arial, Helvetica, sans-serif; font-size: 10pt; font-style: normal; color: #660033; background-color: #CC9999; border: #660033; border-style: solid; border-top-width: 1px; border-right-width: 1px; border-bottom-width: 1px; border-left-width: 1px; font-weight: bold; cursor: hand}
.pied { font-family: Arial, Helvetica, sans-serif; font-size: 11px; font-style: normal; font-weight: bold; font-variant: normal; color: #660000; line-height: normale}
</style>
</head>
<body bgcolor="#FFFFFF" leftmargin="0" topmargin="0" >
<table width="90%" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td colspan="3">
<table border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td width="230"> </td>
<td align="center" rowspan="2" width="622"> </td>
</tr>
<tr>
<td width="230" valign="middle" align="center">
<p><span class="hmlogName"><font color="#660000"><b> <%=FormatDateTime(now(),1)%>
</b></font></span></p>
</td>
</tr>
</table>
</td>
</tr>
<tr>
<td width="680"> </td>
<td width="23"> </td>
<td valign="top" width="200"> </td>
</tr>
<tr>
<td height="49" width="680">
<div align=justify><br>
Voici la liste des messages postés, triés par date et heure
d'envoi de chaque message, avec le nombre de réponses.<br>
Cliquez sur le nom de l'émetteur pour pouvoir lire son message
et envoyez ensuite une réponse si vous le souhaitez.<br>
<br>
</div>
</td>
<td height="49" width="23"> </td>
<td valign="top" rowspan="5">
<div align=justify> <br>
<br>
<table border="0" cellspacing="0" cellpadding="0" align="right" width="100%">
<tr bgcolor="#77003C">
<td width="14%"><span class="highlights"><img src="Images/Angle1.gif" width="20" height="20"></span></td>
<td width="71%" class="hmlogName" nowrap>
<div align="center"><b><font class="hmlogName" color="#FFFFFF">Rechercher</font></b></div>
</td>
<td width="15%">
<div align="right"><img src="Images/Angle2.gif" width="20" height="19"></div>
</td>
</tr>
<tr>
<td colspan="3" bgcolor="#DAB19E" class="footerlink" height="7" valign="middle" align="center">
<form method="post" action="search.asp" name="recherche">
Trouver :
<input type="text" name="motcle" size="20" class="formstyle">
<br>
<input type="button" name="envoi" value="GO" class="gobtt" onClick=rech()>
<br>
</form>
</td>
</tr>
<tr bgcolor="#DAB19E">
<td width="14%" height="2"><img src="Images/Anglebas1.gif" width="20" height="20"></td>
<td width="71%" height="2"> </td>
<td width="15%" height="2">
<div align="right"><img src="Images/Anglebas2.gif" width="20" height="20"></div>
</td>
</tr>
</table>
<br>
<br>
<br>
<br>
<br>
<br>
<br>
<br>
<br>
<br>
<br>
</div>
</td>
</tr>
<tr>
<td rowspan="4" align="center" valign="top">
<div align=justify></div>
<div align="center"> <br>
<table border="0" cellspacing="0" cellpadding="0" width="98%" >
<tr bgcolor="#CC3333" valign="top">
<td width="1%" height="9">
<div align="left"><span class="highlights"><img src="Images/Angle1.gif" width="15" height="20"></span></div>
</td>
<td width="28%" valign="middle" height="9" class="boredertable1" bgcolor="#CC3333">
<div align="center"><span class="hmlogName"><b>Par</b></span></div>
</td>
<td valign="middle" width="29%" height="9" class="boredertable1">
<div align="center"><span class="hmlogName"><b>Sujet</b></span></div>
</td>
<td valign="middle" width="23%" height="9" class="boredertable1">
<div align="center"><span class="hmlogName"><b>Date et heure</b></span></div>
</td>
<td width="18%" valign="middle" height="9">
<div align="center"><span class="hmlogName"><b>Nbr réponses</b></span></div>
</td>
<td width="1%" height="9">
<div align="right"><img src="Images/Angle2.gif" width="15" height="20"></div>
</td>
</tr>
<%MyRs.movefirst%> <%for i=1 to (page*10)-10%> <%MyRs.movenext%> <%next%>
<%do while not MyRs.EOF and i<>10%> <%
if i mod 2 =0 then
cole="#FF9999"
else
cole="#FFCCCC"
end if
%>
<tr bgcolor="<%=cole%>" valign="top" class="bordertable">
<td width="1%" valign="bottom" class="noborder" height="11"></td>
<td width="28%" class="boredertable1" height="11" valign="middle">
<a href="lirefrm.asp?ID=<%=MyRs("Frm_nume")%>&Page=<%=Page%>" target="_parent">
<img border="0" src="Images/Fleche1.gif" width="9" height="8"></a>
<a href =lirefrm.asp?ID=<%=MyRs("Frm_nume")%>&Page=<%=Page%> class="footerlink">
<%=MyRs("Frm_par")%></a></td>
<td width="29%" class="boredertable1" height="11" valign="middle"> <%=MyRs("Frm_sujet")%></td>
<td width="23%" nowrap class="boredertable1" height="11" valign="middle"> <%=MyRs("Frm_date")%>
<%=MyRs("Frm_heur")%></td>
<td width="18%" height="11" valign="middle">
<div align="center"> <%
Set Rs = Server.CreateObject("ADODB.Recordset")
'-------définition et exécution de la requête---------------
req="select count(rep_nume) as compte from tabrepfrm where rep_nfrm=clng('" & MyRs("frm_nume") & "')"
Rs.Open req,Conn
if rs.eof then
compte=0
else
compte=rs("compte")
end if
%> <%=compte%> </div>
</td>
<td width="1%" class="noborder" height="11"> </td>
</tr>
<%i=i+1%> <%MyRs.movenext%> <%loop%>
<tr bgcolor="#FF9999" valign="top">
<td colspan="6" valign="middle" height="16" bgcolor="#FFEAEA" class="noborder">
<div align="center"><b>Page : <%for i=1 to NbrPage%> < <%if i=page then%>
<%=i%> <%else%> <a href =forum.asp?Page=<%=i%> class="footerlink"><%=i%></a>
<%end if%> > <%next%> </b></div>
</td>
</tr>
<tr bgcolor="#FF9999" valign="top">
<td colspan="6" valign="middle" height="13" bgcolor="#FFEAEA" class="noborder">
<div align="right"><font color="#CC3333">Page <%=Page%>/<%=NbrPage%></font></div>
</td>
</tr>
</table>
<br>
<br>
<b><a href="ajoutfrm.asp" class="footerlink"><img src="Images/ajoutfrm.gif" width="24" height="24" border="0">Ajouter
un message</a></b></div>
</td>
<td rowspan="4" width="23"> </td>
</tr>
<tr> </tr>
<tr> </tr>
<tr> </tr>
<tr>
<td colspan="3" valign="top" align="center"> </td>
</tr>
<tr>
<td colspan="3" valign="top" align="center"> </td>
</tr>
<tr>
<td colspan="3" valign="top" align="center"><b><font color="#660000">HassanVB
:</font></b> e-mail : hassanvb@caramail.com</td>
</tr>
</table>
</body>
</html>
merci
A+