"Kenneth Auchenberg" <kenneth@thefatman.dk> wrote in message
news:bbodlb$pft$1@sunsite.dk...
> heyza
>
> Jeg vil udskrive mine nyheder på denne måde:
> -
http://www.hol.dk/nyheder.asp
>
> Men hvordan gør jeg det? Den udskriver jo dato'en og de nyheder
> som er blevet posted på den dato...
<SNIP en hel masse>
Prøv noget i retning af dette:
<%
Dim strDato
strDato = ""
strSelectNewsSQL = "SELECT * From news order by ID desc;"
Set objNewsRS = Conn.Execute(strSelectNewsSQL)
WHILE NOT objNewsRS.EOF
'## Hvis strDato er forskellig fra den record der indlæses
'## udskrives en ny dato
If objNewsRS("dato") <> strDato Then
Response.Write "<br><br><font size=""2"" face=""Verdana, Arial, Helvetica,
sans-serif""><strong><u>"
Response.Write "Nyheder fra " & objNewsRS("dato")
Response.Write "</u></strong></font><br>"
Response.Write "<font size=""2"" face=""Verdana, Arial, Helvetica,
sans-serif"">"
Response.Write objNewsRS("headline")
Response.Write "</font><br>"
'## Ellers udskrives overskrifter fra den givne dato
Else
Response.Write "<font size=""2"" face=""Verdana, Arial, Helvetica,
sans-serif"">"
Response.Write objNewsRS("headline")
Response.Write "</font><br>"
End If
strDato = objNewsRS("dato")
objNewsRS.MoveNext
WEND
%>
Råb op hvis det ikke giver mening..
Mvh. Jacob