Sorter via dato

Jeg gætter på at du henter data fra en Access DB eller lignende. Du behøver i det tilfælde ikke at ændre på dit udtræk.

I stedet gør du det at du hele tiden kigge på om den nuværende data er forskellige fra næste dato. Hvis den er, skal du lave en ny overskrift. Det gøres alt sammen i ASP.

hvordan vil du tjekke det?

if rs_nyhed("dato") <> ????

hele tiden smide nuværende dato ind i prev_dato f.eks. og så kontrollere

If rs_nyhed("dato") <> prev_dato Then
  Response.Write("Nyhedsoverskrift d. xx.xx.xx")
Else
  Response.Write(item)
End If

prev_dato ??? Hvordan henter du den? Det er da ik en funktion er det??

Jeg var sikkert ikke klar nok i mit eksempel:
While "ting i rs"
  If rs_nyhed("dato") <> prev_dato Then
    Response.Write("Nyhedsoverskrift d. xx.xx.xx")
  Else
    Response.Write(item)
    prev_dato = rs_nyhed("dato")
  End If
Loop

If rs_nyhed("dato") <> PREV_DATO Then

PREV_DATO??

Jeg har prøvet og det virker ikke

husker du at opdatere prev_dato hele tiden ? Det er bare en variabel, som skal indeholde den sidste dato, som du hentede ind fra recordsættet.

har du mulighed for at skrive det hele i kode?
indtil videre har jeg:
-----------------------------
Set rs_nyheder = Server.CreateObject("ADODB.RecordSet")
rs_nyheder.open "Select * From [nyheder] order by id desc", Conn

do while not rs_nyheder.eof
dato_nyheder = rs_nyheder("dato")
prev_dato = ????

If dato_nyheder <> prev_dato Then
Response.Write("Nyhedsoverskrift d. xx.xx.xx")
Else
Response.Write(item)
prev_dato = rs_nyhed("dato")
End If


rs_nyheder.MoveNext
Loop

Set rs_nyheder = Server.CreateObject("ADODB.RecordSet")
rs_nyheder.open "Select * From [nyheder] order by id desc", Conn

do while not rs_nyheder.eof
dato_nyheder = rs_nyheder("dato")
prev_dato = #1900/01/01#

If dato_nyheder <> prev_dato Then
Response.Write("Nyhedsoverskrift d. xx.xx.xx")
Else
Response.Write(item)
End If

prev_dato = rs_nyhed("dato")

rs_nyheder.MoveNext
Loop

Du kunne gøre sådan her:

<%
strSQL = "SELECT * FROM Tablenavn WHERE Datokolonne='" & Date & "' ORDER BY id DESC"

set rs = Server.CreateObject("ADODB.RecordSet")
rs.open strSQL, Conn

Do until rs.eof
%>

<%=rs("NYHEDS-OVERSKRIFTS-KOLONNEN")%>

<%
rs.movenext
loop
%>

Øhm... Kan du ik bare skrive det som det skal skrives?

#1900/01/01# Hvad er det for noget?

Prøv dette styk kode:
Dog skal du måske lige rette dette kolonnenavn rs_nyheder("overskift") jeg gætter på den kolonne somindeholder overskiften på nyheden hedder det. Eller så skift rs_nyheder("overskift") ud med rs_nyheder("id") så kan du se hvordan der ser ud.

<%
Set rs_nyheder = Server.CreateObject("ADODB.RecordSet")
rs_nyheder.open "Select * From [nyheder] order by id desc", Conn

do while not rs_nyheder.eof
  if strDato <> rs_nyheder("dato") then
    response.Write rs_nyheder("dato") & "<br>"
    strDato = rs_nyheder("dato")
  end if

  Response.Write rs_nyheder("overskift") & "<br>"

  rs_nyheder.MoveNext
Loop
%>

Eagleeye - Jeg tror jeg elsker dig ;o)

Fantastisk, som du bare kan lave scripts der bare er til at sætte ind, uden særlig meget tilpasning :o)

Glædelig jul til dig...

//Bruhn