Spec. efter datum

Detta skriptet får alla poster från idag att byta färg.

	<%
	 If Year(RecSet("datum")) = Year(Date) And Month(RecSet("datum")) = Month(Date) And Day(RecSet("datum")) = Day(Date) Then
	  strColor = "#FF3939"
	Else
	  strColor = "#9E0056"
	End If
	%>

Hur gör jag så alla poster som är 2 år och över 2 år gamla byter färg?

Jag tror väl detta kan fungera.

If DateDiff("d", Date(), RecSet("datum")) < -730 Then strColor = "red"

730 är alltså antalet dagar på två år.

Funkade jätte bra ju =) tack, nu behöver jag bara en sida som bara öppnar de poster som är över 2 år gamla, hur løser jag det?

If Request.QueryString("sortby") = "" and Request.QueryString("form") = "" Then
	Set dok=Conn.Execute("Select * From dok ORDER BY navn ASC")
Else
	Set dok=Conn.Execute("Select * From dok ORDER BY " & Request.QueryString("sortby") & " " & Request.QueryString("form") & "")
End If

På samma sätt ungefär...

dteTwoYearsAgo = DateAdd("yyyy", -2, Date())

strSql = "SELECT * FROM dok WHERE datum < #" & dteTwoYearsAgo & "#"