jeg har dette hvor jeg kan hente de 2 nyeste nyheder ud men
hvordan kan jeg gøre så den vil hente de 2 nyeste nyheder ud fra
hver månede per år.
code.
min del af coden er:
Set rs = Server.CreateObject("ADODB.RecordSet")
sql = "SELECT top 2 * FROM news ORDER BY [id] DESC"
rs.Open sql, cn, 3, 4
Function MyDateFormat(thedate)
Dim m, d, y, mdArr
mdArr =
Split("Januar,Februar,Marts,April,Maj,Juni,Juli,August,September,
Oktober,November,December",",")
m = mdArr(Month(CDate(thedate))-1)
d = day(Cdate(thedate))
y = year(Cdate(thedate))
MyDateFormat = m & " " & d & ". " & y
End Function
If Not (rs.BOF Or rs.EOF) Then
response.write "nyheder<br /><br />"
i = 0
Do While Not rs.EOF
strForfatter = rs("Forfatter")
strOverskrift = rs("Overskrift")
strTekst = rs("Tekst")
strDate = rs("Dato")
if month(strDate) = maaned then
if not i = 1 then
response.write "<b>" & MyDateFormat(strDate) & " - " &
strOverskrift & "<b/><br /><br />" & _
strTekst & "<br /><br />" & _
"Skrevet af " & strForfatter & ".<br /><br />"
i = 1
end if
else
mdArr =
Split("Januar,Februar,Marts,April,Maj,Juni,Juli,August,September,
Oktober,November,December",",")
response.write mdArr(month(strDate)-1)
response.write "<br /><b>" & MyDateFormat(strDate) & " - " &
strOverskrift & "<b/><br /><br />" & _
strTekst & "<br /><br />" & _
"Skrevet af " & strForfatter & ".<br /><br />"
i = 0
End If
maaned = month(strDate)
rs.MoveNext
Loop
Response.Write ""
else
Response.Write "Der er endnu ikke nogle Nyheder"
end if
--
Vil du lære at kode HTML, XHTML, CSS, SSI eller ASP?
- Pædagogiske tutorials på dansk
- Kom godt i gang med koderne
KLIK HER! =>
http://www.html.dk/tutorials