Om datum passerat

Så här kanske! :)

<%
     Dim className
     className = "regular"

     If DateDiff("d", Date(), DateSerial(2007,8,4)) >=0 Then
          className = "blackwhite"
     End If

     If DateDiff("d", Date(), DateSerial(2007,8,5)) >=0 Then
          className = "redwhite"
     End If
%>

<style>
.regular {
     background-color: white;
     color: black;
}
.blackwhite {
     background-color: black;
     color: white;
}
.redwhite {
     background-color: red;
     color: white;
}
</style>

<div class="<%= className %>">
     blabla
</div>

<%
     Dim className
     If DateDiff("d", Date(), DateSerial(2007,8,4)) >=0 Then
          className = "blackwhite"
     elseIf DateDiff("d", Date(), DateSerial(2007,8,5)) >=0 Then
          className = "redwhite"
     Else
            className = "regular"
     End If
%>

Onödigt att ha två If Frågor...

'Returns a string
Function dateClassName(myDate) 'myDate as Date()
	Dim diff
	diff = DateDiff("d",Date(),myDate)
	If diff = 0 Then
		dateClassName = "today" 'Its today!
	Elseif diff = -1
		dateClassName = "yesterday" 'The day after
	Elseif diff > 0
		dateClassName = "before" ' Still got time!
	Else
		dateClassName = "old" ' Old Event!
	End If
End Function

<div class="<%= dateClassName(CDate("2007-08-04"))%>">
     blabla
</div>

voigtann1 skrev:

Onödigt att ha två If Frågor...

Nope, för om det är den 5/8 så kommer koden att gå in i första ifsatsen ändå och därmed bli "blackwhite" fast den ska bli "redwhite". :)

Du har gjort en konstig If fråga isåfall ;)

Det är EN brytpunkt. Alltså räcker det med EN if-sats.

<%
     Dim className
     className = "regular"

     If DateDiff("d", Date(), DateSerial(2007,8,5)) >=0 Then
          className = "redwhite"
     ElseIf DateDiff("d", Date(), DateSerial(2007,8,4)) >=0 Then
          className = "blackwhite"
     End If
%>