Tri affichage des actualités

[creative69]

Bonjour,

N'ayant pas des connaissances assez poussé en asp, j'aimerai une solution à mon probleme si possible.

Actuellement les actualités sur le site de mon client sont affichés par ordre croissant, j'aimerai les affiché par ordre décroissant.
Le seul souci dans tout ca c'est que je n'ai pas acces à la base de donnée mais juste aux fichiers asp.
A la base il y avait un moteur de recherche pour afficher les news, je suis arrivé à le modifier pour afficher directement les actualités.

Code :

1
2
3
4
5
6
7
8
'déclaration at initialisation
dim nCurrentPage, nCurrentItems, nNbPage, oNews, oNewsCol
nCurrentPage = 1
nNbPage=0
set oNewsCol = Nothing
dim dateValue, strValue
 
nCurrentItems = GetNumeric(oMgr.GetParameter("NB_LINES").value)

Code :

1
2
3
4
5
6
if(request("")="") then
	dateValue = CLng(request("searchDate"))
	strValue = CStr(request("searchString"))
	Set oNewsCol = oMgr.GetNews(cLng(dateValue),CStr(strValue),CLng(nCurrentPage),CLng(nCurrentItems))
	nNbPage = oNewsCol.PageCount
end if

Code :

1
2
3
4
<%
						else
							for each oNews in oNewsCol.result
							%>

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
<%
if Not oMgr Is Nothing then
	Call oMgr.Terminate
end if
 
Function Troncate(str, nLen)
	If len(str) > nLen Then
		str = Mid(str, 1, nLen-3)
		Dim nIndex
		nIndex = InStrRev(str, " ")
		str = Mid(str, 1, nIndex-1) + "..."
	End If
 
	Troncate = str
End Function
%>

Voila quelques bouts de codes, si la solution est la dedans je suis preneur.


Merci de votre aide

[TekP@f]

Tu peux pas leur dire de tourner leur écran ...
Désolé ...

Heu, j'ai un peu de mal à comprendre le code. Tu pourrais l'afficher entièrement et pas par petit bout (juste la boucle).
A mon avis, si tu places ton recordset à la fin et que tu le parcures de la fin au début, ça peut le faire.

[pc75]

Bonjour,

Ton recordset est bien alimenté à partir d'une requête SQL non ?
Il suffit alors d'ajouter une clause order by ___ desc

[creative69]

<%
Option Explicit
response.expires=0

%>
<!--#include file="../inc/fonction.asp"-->
<!--#include file="../inc/connection.asp"-->
<%
'déclaration at initialisation du Manager
dim oMgr
set oMgr = Server.CreateObject("AXCatalog.Manager")
Call oMgr.Init(CStr(g_strDbConnection), "", "")

'déclaration at initialisation
dim nCurrentPage, nCurrentItems, nNbPage, oNews, oNewsCol
nCurrentPage = 1
nNbPage=0
set oNewsCol = Nothing
dim dateValue, strValue

nCurrentItems = GetNumeric(oMgr.GetParameter("NB_LINES").value)

'la page courante
if len(request.QueryString("current_page"))>0 then
nCurrentPage = CInt(request.QueryString("current_page"))
end if

if(request("")="") then
dateValue = CLng(request("searchDate"))
strValue = CStr(request("searchString"))
Set oNewsCol = oMgr.GetNews(cLng(dateValue),CStr(strValue),CLng(nCurrentPage),CLng(nCurrentItems))
nNbPage = oNewsCol.PageCount
end if
%>


<!-- Début du module de résultat -->
<%
if Not oNewsCol Is Nothing then
%>

<div class="liste_actualites">
<ul>
<%
if (oNewsCol.Result.count = 0) then
%>
<li>
<b>Aucune actualité</b>
</li>
<%
else
for each oNews in oNewsCol.result
%>
<li>
<img src="imagesecto/pucebleue.gif" width="7" height="7">&nbsp;<a title="<%=Troncate(oNews.content, 100)%>" href="javascript:showNewsPOPUP(<%=oNews.id%>);"><b><%=oNews.Title%></b></a><br />
<%=Troncate(oNews.content, 100)%>

</li>
<%
next
if nNbPage > 1 then
%>
<tr>
<td align="right" height="20" class="texte11noir">
<%
if nCurrentPage > 1 then
%>
<a href="actualite2.asp?current_page=<%=nCurrentPage-1%>&act=ok&searchDate=<%=dateValue%>&searchString=<%=strValue%>"><img src="imagesecto/retour.gif" width="13" height="16" border="0" align="absmiddle"></a>
<%
end if
response.write(nCurrentPage & " / " & nNbPage)
if nCurrentPage < nNbPage then
%>
<a href="actualite2.asp?current_page=<%=nCurrentPage+1%>&act=ok&searchDate=<%=dateValue%>&searchString=<%=strValue%>"><img src="imagesecto/suite.gif" width="13" height="16" border="0" align="absmiddle"></a>
<%
end if
%>
&nbsp;
</td>
</tr>
<%
end if
end if
%>
</ul>
</div>

<%
end if
%>
<!-- Fin du module de résultat -->

</body>
</html>
<%
if Not oMgr Is Nothing then
Call oMgr.Terminate
end if

Function Troncate(str, nLen)
If len(str) > nLen Then
str = Mid(str, 1, nLen-3)
Dim nIndex
nIndex = InStrRev(str, " ")
str = Mid(str, 1, nIndex-1) + "..."
End If

Troncate = str
End Function
%>

Si ca peut vous aider, je vous avoue sincèrement je suis assez perdu lol

[TekP@f]

pc75 => il n'a pas accès à la requête donc pas possible de faire un order by.

Je ne connais pas AXCatalog.Manager, et c'est introuvable sur le net. Ca te renvoie quoi comme objet ?
Y'a quoi comme propriétés, méthodes ...

[pc75]

Re,

Et en faisant un truc du genre ?

Code :

1
2
 
for i = oNewsCol.Result.count to 0 step - 1

[kaiser59]

Salut,

Petite question,

Comment fais-tu pour afficher les actualités si elle provienne d'une base sans y avoir accès ???

[creative69]

en faite on m'a demandé d'intégrer une nouvelle charte graphique et de présenter de façon plus propre les contenus des pages ou certaines informations sont tirés d'une base dont je n'ai pas acces et auquel il n'y a pas de requetes SQL (meme si ce n'est pas la seule méthode). Et on m'a demandé si je pouvais afficher d'autres informations comme la date ou afficher les actualités dans le sens inverse. Donc je n'a fais à la base que reprendre les bouts de code en asp et les redispatcher dans ma nouvelle charte graphique et la j'essaye de faire ce qu'il m'ont demandé mé ca m'air cause perdu.

Y a-t-il une ligne de code qui pourrait m'afficher tous les champs d'une table comme oNews, genre je veux afficher tous les contenus de tous les champs de la table oNews (perso je pense que oNews doit être une table)

[kaiser59]

Envoyé par creative69

... Et on m'a demandé si je pouvais afficher d'autres informations comme la date ou afficher les actualités dans le sens inverse.

Quand tu dis afficher la date c'est celle du jour ou celle des messages ?

En ce qui concerne le tri j'ai vue une fois, en cherchant sur Google, qu'il était possible de le faire en javascript mais le code était relativement long, regarde de ce côté pour ça.

[creative69]

Afficher la date à laquelle le message a été posté, je pense qu'il y a un champ dans la base qui doit permettre d'afficher la date, car on a dateValue

[TekP@f]

Sinon, tu peux toujours stocker tes actu dans recordset et afficher ce recordset de la fin au début ... Un peu comme propose pc75.