Markera dagens

Ja det kan man

If objRS("datum") = Date() Then
  strColor = "#FF0000"
Else
  strColor = "#000000"
End If

Response.Write "<span style=""color:" & strColor & """>"

objRS är det recordset i vilket du har läst in dina datum.

Hur du nu väljer att skriva ut detta är ju helt upp till dig... ;)

HEJ!

Klart du kan.

Den enkla varianten:
if datum=dagens then r.w färgen (css-class?)

Den bästa:
call rubrik(rs("datum")

Rubrik tar sedan emot datumet, kollar om den är rätt, och är den det, sätt färgen.
Vill man skoja till det kan man köra else-satser och olika färger för olika datum/intervall :P

Engine^ skrev:

Ja det kan man

If objRS("datum") = Date() Then
  strColor = "#FF0000"
Else
  strColor = "#000000"
End If

Response.Write "<span style=""color:" & strColor & """>"

objRS är det recordset i vilket du har läst in dina datum.

Hur du nu väljer att skriva ut detta är ju helt upp till dig... ;)

hur menar du? det funkar inte vad jag än skriver ist för "objRS" och sen är väl inte denna funktionen intregrerad med bara "Rubrik" utan med hela posten?

Hur skriver du ut dina poster?

Like this

  <tr height="20">
    <td align="left" width="25"><img src="bilder/ico_<%=RecSet("iconid")%>.gif" width="15" height="15"></td>
    <td align="left" width="150"><b><a href="opgave.asp?ID=<%=RecSet("ID")%>"><%If Len(RecSet("opgave")) > 20 Then%><%=Left(RecSet("opgave"),20)%>...<%Else%><%=RecSet("opgave")%><%End If%></a></b></td>
    <td align="left" width="150<%=FormatDateTime(RecSet("datum"),2)%> (<%=FormatDateTime(RecSet("datum"),4)%>)</td>
    <td align="left" width="60"><%=RecSet("til")%></td>
    <td align="left" width="60"><%If Len(RecSet("vem")) > 6 Then%><%=Left(RecSet("vem"),6)%>...<%Else%><%=RecSet("vem")%><%End If%></td>
    <td align="left" width="60"><%If Len(RecSet("placering")) > 5 Then%><%=Left(RecSet("placering"),5)%>...<%Else%><%=RecSet("placering")%><%End If%></td>
    <td align="left" width="150"><%If Len(RecSet("info2")) > 20 Then%><%=Left(RecSet("info2"),20)%>...<%Else%><%=RecSet("info2")%><%End If%></td>
    <td align="center" valign="middle" width="50"><img src="bilder/prioritet_<%=RecSet("prioritet")%>.gif" width="26" height="7"></td>
    <td align="center" width="40"><img src="bilder/status_<%=RecSet("status")%>.gif" width="17" height="17"></td>
  </tr>

Lägg till min lilla funktion innan du skriver ut posten och lägg till följande för dom <td> som utgör rubriken

<td align="left" width="xx" style="color:<%=strColor%>">

Och för att If-satsen ska fungera byter du objRS("datum") mot RecSet("datum")... och nu verkar ditt datum ha med klockslag också, så If-satsen blir såhär

If FormatDateTime(RecSet("datum"), 2) = Date() Then

<%

If RecSet("datum") = Date() Then
  strColor = "#FF0000"
Else
  strColor = "#000000"
End If

Response.Write "<span style=""color:" & strColor & """>"

%>
  <tr height="20">
    <td align="left" width="25"><img src="bilder/ico_<%=RecSet("iconid")%>.gif" width="15" height="15"></td>
    <td align="left" width="200" style="color:<%=strColor%>"><b><a href="opgave.asp?ID=<%=RecSet("ID")%>"><%If Len(RecSet("opgave")) > 33 Then%><%=Left(RecSet("opgave"),33)%>...<%Else%><%=RecSet("opgave")%><%End If%></a></b></td>
    <td align="left" width="100"><%response.write Day(recset("datum")) & " " & Monthname(Month(recset("datum")),true) & " (" & formatdatetime(recset("datum"),4) & ")"%></td>
    <td align="left" width="60"><%=RecSet("til")%></td>
    <td align="left" width="60"><%If Len(RecSet("vem")) > 6 Then%><%=Left(RecSet("vem"),6)%>...<%Else%><%=RecSet("vem")%><%End If%></td>
    <td align="left" width="60"><%If Len(RecSet("placering")) > 5 Then%><%=Left(RecSet("placering"),5)%>...<%Else%><%=RecSet("placering")%><%End If%></td>
    <td align="left" width="150"><%If Len(RecSet("info2")) > 20 Then%><%=Left(RecSet("info2"),20)%>...<%Else%><%=RecSet("info2")%><%End If%></td>
    <td align="center" valign="middle" width="50"><img src="bilder/prioritet_<%=RecSet("prioritet")%>.gif" width="26" height="7"></td>
    <td align="center" width="40"><img src="bilder/status_<%=RecSet("status")%>.gif" width="17" height="17"></td>
      </tr>

Har ingen effekt alls...

Inte heller med

If FormatDateTime(RecSet("datum"), 2) = Date() Then

<%
If FormatDateTime(RecSet("datum"), 2) = Date() Then
  strColor = "#ff0000"
Else
  strColor = "#000000"
End If
%>

<tr height="20">
  <td style="color:<%=strColor%>">Denna text är röd om <%=RecSet("datum")%> är idag.</td>
</tr>

Som så tänkte jag och den metoden fungerar. Men om du stoppar in en länk i din <td> så är det nog så att du får stoppa in styletaggen i din <a>. Mixtra på... :)

Allså din kod fungerar inte eftersom när jag bara skriver <td style="color:#FF0000"> så blir länken röd...

Kolla bilden, där används din kod.. och lägga den i <a> funkar inte heller.

Då verkar det bli fel i If-satsen, eftersom annars ska det ju helt enkelt fungera.

Om du testar att skriva ut FormatDateTime(RecSet("datum"), 2) och Date() så kan du ju se om det är samma eller inte.

Har redan testat =) verkar som den överhuvudtaget inte läser funktionen....

har lekt lite mer med koden nu, den fattar att den ska gå på "Else" allså att i dettafallet posten är mer än en dag gammal och är svart men den verkar inte fatta när posten är från idag att den då skall vara röd. Alltså måste felet ligga här:

If FormatDateTime(RecSet("datum"), 2) = Date() Then

Vad betyder denna koden helt exakt?

FormatDateTime Function

Just detta sätt gör om ett datum i formatet yyyy-mm-dd hh:mm:ss till yyyy-mm-dd.