Probleme de boucle

[fatmart]

Bonjour tout le monde. J'ai ecris un script et ca avancait bien mais maintenant je bloque. Je veux que a chaque fois que l'on insere une nouvelle "news" un nouveau tableau (ici sous la forme de div) apparait. Ce script le fait tres bien sauf que je veux classer mes tableau par date (date inscrit dans la base de donnee) La date est automatiquement entrer dans la base de donner selon la date actuelle. Pour le tester, j'ai eter dans ma base de donnee et changer la date de quelque news. Mais voila comme je dis plus haut, sa ne me les classe pas par date sa ne fait qu'ajouter d'autre tableau.
Quelqu'un peux m'aider ?

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
<%
set conn = server.CreateObject("ADODB.Connection")
strCx = "PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE=" & server.mappath("db/news.mdb")
conn.open strCx
sql = "SELECT * FROM news WHERE IdLien"
set rs = conn.Execute(sql)
%>
 
<div class="ar_newsroom_title"><% = date %></div>
<div class="ar_newsroom_body">
<ul class="ar_newsroom_ul spaced">
<%	
	While Not RS.EOF
	if rs.fields("date") = date then
%>
  <li><a href="index_admin_eng.asp?page=del&amp;IdLien=<% = RS ("IdLien") %>"><% = RS ("Titre") %></a></li>
  <% 
  end if
 
  RS.MoveNext
Wend
%>
</ul>
</div>
<br />
<%
set conn = server.CreateObject("ADODB.Connection")
strCx = "PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE=" & server.mappath("db/news.mdb")
conn.open strCx
sql = "SELECT * FROM news WHERE IdLien"
set rs = conn.Execute(sql)
%>
<%	
	While rs.fields("date") <> date
%>
<div class="ar_newsroom_title"><% = RS ("Date") %></div>
<div class="ar_newsroom_body">
<ul class="ar_newsroom_ul spaced">
 
  <li><a href="index_admin_eng.asp?page=del&amp;IdLien=<% = RS ("IdLien") %>"><% = RS ("Titre") %></a></li>
 
</ul>
</div>
  <% 
    RS.MoveNext
Wend	
RS.Close
Set RS = Nothing	
%>
<h3 class="BlueUnderline"><strong>Add news </strong></h3>
<table border="0" cellspacing="0" cellpadding="0">
	<tr>
		<td>
<form action="send_eng.asp" method="post">
<table width="338" border="0" cellpadding="0" cellspacing="0">		
	<tr>
		<td width="59" align="right"><div align="right"><strong>Title :&nbsp;</strong></div></td>
		<td width="279"> <input type="text" name="titre" size="20" maxlength="50" /></td>
	</tr>
	<tr>
		<td align="right"><strong>News :&nbsp;</strong></td>
		<td> <textarea name="description" rows="5" cols="40"></textarea>
		</td>
	</tr>
	<tr>
		<td colspan="2" align="center"><input type="submit" value="Add"/>&nbsp;<input type="reset" value="Erase" /></td>
	</tr>	
</table>		
</form>
	  </td>
	</tr>
</table>

Ce qui donne sa :

[Immobilis]

Salut,

Voici un code qui devrait te donner des idées. Il faut l'adapter:

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
Public Sub DisplayStats(frm)
    Dim rs, date1, date2    
        Set rs = Server.Create("ADODB.Recordset")
            rs.open ("SELECT * FROM ...", Provider)
            date1 = ""
            date2 = ""
            if not rs.eof then
                date1 = rs("COMS_STARTDATE")
                Response.Write "<ul style=""margin: 3px;"">" & vbcrlf & _
                    "<li style=""text-align: left; display: inline; width: 100px;"">" & _
                    rs("COMS_STARTDATE") & "</a></li>" & vbcrlf
                do while not rs.eof
                    Response.Write "<li style=""text-align: center; display: inline; width: 50px;"">" & _
                        "<a href=""afficheComRapport.asp?id=" & rs("COMS_ID") & "&tieid=" & g_objPart.Id & """>" & rs("VERSION_CODE_COURT") & "</a>" & _
                        "</li>" & vbcrlf
                    date2 = date1
 
                    rs.movenext
 
                    If not rs.eof then
                        date1 = rs("COMS_STARTDATE")
                        if strcomp(date1, date2) <> 0 then
                            Response.Write "</ul><ul style=""margin: 3px;""><li style=""text-align: left; display: inline; width: 100px;"">" & _
                                rs("COMS_STARTDATE") & "</a></li>" & vbcrlf
                        end if
                    else
                        Response.Write "</ul>"
                    End if
                loop
            else
                Response.Write "Pas de données"
            end if 
End Sub

L'idée c'est de prendre deux fois la date et de comparer leurs valeurs à chaque tour.
A+