Sortera efter datum

set rs = connect.execute("select * from news order by newsDate desc")
pDate = ""
while not rs.eof
   if pdate = "" or cdate(pdate) <> cdate(rs("newsDate")) then
     pdate = cdate(rs("newDate"))
     response.write pdate & "<br>"
  end if
  response.write rs("news") & "<br>"
  rs.movenext
wend

i princip alltså

måste erkänna att jag fattade noll där

detta e vad jag har nu:

tabellen innehåller:
newsID, headline, news(nyheten alltså), author, newsDate

<%
	lcid=2057

	Function FixaBR(str)
	  FixaBR = Replace(str, vbCrLf, "<br>" & vbCrLf)
	End function

	Set RS = Server.CreateObject("ADODB.Recordset")
	SQL = "SELECT * FROM news ORDER BY newsDate DESC"
	RS.Open SQL, Connect, 3, 3

	Do Until RS.EOF
%>

<%=RS("headline")%> posted <%=RS("newsDate")%>
 by <%=RS("author")%>
<br />
<%=delaText(FixaBR(RS("news")))%> <br /><br />

<%
RS.MoveNext
Loop
RS.Close
Set RS = Nothing
%>

Jag jämför om nästa nyhet har samma datum som föregående nyhet. Om det är olika så skriver man ut datumet. Det fungerar eftersom nyheterna kommer i datumordning.

Juste va e "wend" som du skrivit ut sist av det du skrev?

wend avslutar en while på samma sätt som loop avslutar en do until

Eftersom mitt datumfält var inlaggt med Now så funkade inte det du skrev o eftersom jag inte e så duktig la jag bara till en till tabell som bara sparade datumet.

Resultatet:

<!-- #include file="delaText.inc" -->
<%
	lcid=2057

	Function FixaBR(str)
	  FixaBR = Replace(str, vbCrLf, "<br>" & vbCrLf)
	End function

	Set RS = Server.CreateObject("ADODB.Recordset")
	SQL = "SELECT * FROM news ORDER BY newsDate DESC"
	RS.Open SQL, Connect, 3, 3

	pDate = "0"
	Do Until RS.EOF
   	If pDate = "0" or cdate(pDate) <> cdate(RS("showDate")) Then
     	pDate = cdate(RS("showDate"))
%>

	<tr><td class="datum"><%=pDate%></td></tr>

	<% end if %>

	<tr><td class="news"><%=RS("news")%></td></tr>
<%
  	rs.movenext
	Loop

	RS.Close
	Set RS = Nothing
%>

Allt funkar nu =)
Tackar