Splittet dato sammenlignet med splittet dags dato virker ikke

<%
  TempDateSelect = dateCounter & "-" & navmonth & "-" & navyear
  TempCheckDate = date()
  TempCheckDate = split(TempCheckDate, "-")
  CheckDate = TempCheckDate(0)&"-"&TempCheckDate(1)&"-"&TempCheckDate(2)
  if DateDiff("d",CheckDate, TempDateSelect) = 0 then
  bgcolor="#EFEFEF"
  else
  bgcolor="#FFFFFF"
  End if
%>

//>Rune

Jeg får en rigtig baggrundsfarve, men samtidig en fejl på "if DateDiff("d",CheckDate, TempDateSelect) = 0 then"

Microsoft VBScript runtime error '800a000d'
Type mismatch: 'TempDateSelect'

/kalender.asp, line 128

Skyder du det igennem en løkke eller hvad gør du?

//>Rune

yep

<% Do while dateCounter <= lastDate %>
        <tr>

<% Do while weekCount <= 7
    TempDateSelect = dateCounter & "-" & navmonth & "-" & navyear
    TempCheckDate = date()
    TempCheckDate = split(TempCheckDate, "-")
    CheckDate = TempCheckDate(0)&"-"&TempCheckDate(1)&"-"&TempCheckDate(2)
    if DateDiff("d",CheckDate, TempDateSelect) = 0 then
      bgcolor="#EFEFEF"
    else
      bgcolor="#FFFFFF"
    End if
%>

<% If dateCounter > lastDate Then %>
          <td></td>
<% else %>
          <td height="65" bgcolor="<%=bgcolor%>" valign="top" class="Headline"><%=dateCounter%></td>
<%
dateCounter = dateCounter + 1
end if
weekCount = weekCount + 1
Loop
weekCount = 1
%>
        </tr>
<% Loop %>

Så tjek lige om de data'er du sender gennem altid er af samme syntax, altså fx.

dd-mm-yyyy

//>Rune

Det er de!
Jeg har lavet en response.write på begge felter - og det viser begge samme format

Men hvis det kan betyde noget er TempDateSelect aldrig hevet ud, som dato format, men derimod bygget op ud fra formler

Jamen du kan jo prøve sådan her:

<% Do while dateCounter <= lastDate %>
        <tr>

<% Do while weekCount <= 7
    TempDateSelect = dateCounter & "-" & navmonth & "-" & navyear
    TempCheckDate = date()
    TempCheckDate = split(TempCheckDate, "-")
    CheckDate = TempCheckDate(0)&"-"&TempCheckDate(1)&"-"&TempCheckDate(2)
    if DateDiff("d",CheckDate, CDate(TempDateSelect)) = 0 then
      bgcolor="#EFEFEF"
    else
      bgcolor="#FFFFFF"
    End if
%>

<% If dateCounter > lastDate Then %>
          <td></td>
<% else %>
          <td height="65" bgcolor="<%=bgcolor%>" valign="top" class="Headline"><%=dateCounter%></td>
<%
dateCounter = dateCounter + 1
end if
weekCount = weekCount + 1
Loop
weekCount = 1
%>
        </tr>
<% Loop %>

//>Rune

Prøv med CDate omkring og formatere både Date og TempDateSelect:

<%
  TempDateSelect = dateCounter & "-" & navmonth & "-" & navyear
  if CDate(Date) = CDate(TempDateSelect) then
    bgcolor="#EFEFEF"
  else
    bgcolor="#FFFFFF"
  End if
%>



men DateDiff bør også virke sådan her:
<%
  TempDateSelect = dateCounter & "-" & navmonth & "-" & navyear
  if DateDiff("d",Date,TempDateSelect) = 0 then
    bgcolor="#EFEFEF"
  else
    bgcolor="#FFFFFF"
  End if
%>

hmm - den meder stadig fejlen

hvis jeg kommentere if/then sætningen ud, får jeg ingen fejl:
'if DateDiff("d",CheckDate, CDate(TempDateSelect)) = 0 then
'    bgcolor="#EFEFEF"
'  else
      bgcolor="#FFFFFF"
'  End if

Er det samme fejl?

jeps
Microsoft VBScript runtime error '800a000d'
Type mismatch: 'TempDateSelect'

/kalender.asp, line 128

--> 128:if DateDiff("d",Date,TempDateSelect) = 0 then

og hvis du udskriver TempDateSelect hvordan ser den så ud?
Det lyder som om den ikke er en dato??

Prøv evt at se http://www.provenceweb.dk/kalender.asp
øverste i hvert felt er TempDateSelect
midterste i hvert felt er Checkdate
Sidste tal er DatCounter

Fejlen kommer også i marts, jeg tror den tæller en dag for langt så den forsøge at tjekke den 32-01-2004..
kan det passe??

Det muligt hvis det er koden du har vist der er ikke et tjek på "max" dato man uskriver bare 7 uger. Så kan man tjekke med isDate om det er en valid dato:

    if isDate(TempDateSelect) then
      if DateDiff("d",Date, TempDateSelect) = 0 then
        bgcolor="#EFEFEF"
      else
        bgcolor="#FFFFFF"
      End if
    End if

You never stop to amaze me ....
Tak for hjælpen