Online Kalender, Et lille problem.

Har følgende kode:

<%
  'Array's til browsing / paging i kalender
  VarMonths = "Blank,January,Febuary,March,April,May,June,July,August,September,October,November,December"
  VarDays  = "0,31,28,31,30,31,30,31,31,30,31,30,31"
  VarWDays  = "Blank,Sun,Mon,Tue,Wed,Thu,Fri,Sat"
  ArrMonths = Split(VarMonths,",")
  ArrDays  = Split(VarDays,",")
  ArrWDays  = Split(VarWDays,",")
 
  If Request.QueryString("month") = false Then
    CurrentMonth = Month(date)
  Else
    CurrentMonth = Request.QueryString("month")
  End If

  If Request.QueryString("year") = false Then
    CurrentYear = Year(date)
  Else
    CurrentYear = Request.QueryString("year")
  End If
 
  If Request.QueryString("month") = "0" Then
    CurrentYear = CurrentYear-1
    CurrentMonth = "12"
  End If

  If Request.QueryString("month") = "13" Then
    CurrentYear = CurrentYear+1
    CurrentMonth = "1"
  End If
 
  CurrentDay = Day(date)
 
  'Til Gennemløb af dage
  Days2Month    = int(ArrDays(CurrentMonth))
  FirstDay      = Weekday(DateValue(CurrentYear&"-"&CurrentMonth&"-1"))
 
  If IsDate(CurrentYear&"-2-29") = True And CurrentMonth = 2 Then
    Days2Month = Days2Month + 1
  End If 
 
  If FirstDay = 1 Then
    MoveDateSquare = 6
  Elseif FirstDay = 2 Then
    MoveDateSquare = 0
  Elseif FirstDay = 3 Then
    MoveDateSquare = 1
  Elseif FirstDay = 4 Then
    MoveDateSquare = 2
  Elseif FirstDay = 5 Then
    MoveDateSquare = 3
  Elseif FirstDay = 6 Then
    MoveDateSquare = 4
  Elseif FirstDay = 7 Then
    MoveDateSquare = 5
  End If
%>
<h3>Spamfighter Calendar 1.0</h3>
<!-- Måned og paging deraf :) -->
<table width="100%" cellpadding="2" cellspacing="5" border="0">
  <tr>
    <td bgcolor="EAE9DC" width="10%" style="cursor:Pointer; font-weight:bold; border:1px solid black;" onclick="window.location='?month=<%=CurrentMonth-1%>&year=<%=CurrentYear%>'" >
      <center>
        <<
      </center>
    </td>
    <td bgcolor="#5F5F4B" style="color:#FFFFFF; font-weight:bold; border:1px solid black;">
      <center>
        <%=ArrMonths(CurrentMonth)%>&nbsp;-&nbsp;<%=CurrentYear%>&nbsp;<%=FirstDay%>&nbsp;<%=MoveDateSquare%>
      </center>
    </td>
    <td bgcolor="EAE9DC" width="10%" style="cursor:Pointer; font-weight:bold; border:1px solid black;" onclick="window.location='?month=<%=CurrentMonth+1%>&year=<%=CurrentYear%>'">
      <center>
        >>
      </center>
    </td>
  </tr>
</table>
<!-- Dage i aktuel måned -->
<table width="100%" cellpadding="2" cellspacing="5" border="0">
  <tr>
    <td bgcolor="#CFCBB2" width="10%" style="cursor:Pointer; font-weight:bold; border:1px solid black;">
      <center>
      Mon.
      </center>
    </td>
    <td bgcolor="#CFCBB2" width="10%" style="cursor:Pointer; font-weight:bold; border:1px solid black;">
      <center>
      Tue.
      </center>
    </td>
    <td bgcolor="#CFCBB2" width="10%" style="cursor:Pointer; font-weight:bold; border:1px solid black;">
      <center>
      Wed.
      </center>
    </td>
    <td bgcolor="#CFCBB2" width="10%" style="cursor:Pointer; font-weight:bold; border:1px solid black;">
      <center>
      Thu.
      </center>
    </td>
    <td bgcolor="#CFCBB2" width="10%" style="cursor:Pointer; font-weight:bold; border:1px solid black;">
      <center>
      Fri.
      </center>
    </td>
    <td bgcolor="#CFCBB2" width="10%" style="cursor:Pointer; font-weight:bold; border:1px solid black;">
      <center>
      Sat.
      </center>
    </td>
    <td bgcolor="#CFCBB2" width="10%" style="cursor:Pointer; font-weight:bold; border:1px solid black;">
      <center>
      Sun.
      </center>
    </td>
  </tr>
<%
i = 1
x = 0
TRcount = 1

Do while not i-1 = Days2Month+MoveDateSquare
 
 
  'Den reelle dato for kolonne
  RealDate = DateValue(CurrentYear&"-"&CurrentMonth&"-"&i)
  'Uge dagen
  CurrentWDay = int(Weekday(CurrentYear&"-"&CurrentMonth&"-"&i))

  If TRcount = 1 Then
    Response.Write("<tr>")
  End if
 
  If CurrentDay = i And Int(CurrentMonth) = Int(Month(date)) Then
    BGcolor = "#CFCBB2"
  Else
    BGcolor = "#EAE9DC"
  End If
 
  If MoveDateSquare > x Then
%>
  <td bgcolor="<%=BGcolor%>">
    &nbsp;
  </td>
<%
  Else
%>
  <td bgcolor="<%=BGcolor%>"  style="cursor:Pointer; font-weight:bold; border:1px solid black;" onclick="window.location='?'" >
      <center>
        <%=i%>
        <br>
        <%=ArrWDays(CurrentWDay)%>
        <br>
        <%=RealDate%>
        <br>
        <%=CurrentWDay%>
      </center>
  </td>
<%
  End If

  If TRcount = 7 Then
    Response.Write("</tr>")
    TRcount = 0
  End if

TRcount = TRcount+1
i = i+1
x = x+1
Loop
%>
</table>

Der giver denne fejl:

Microsoft VBScript runtime  error '800a000d'

Type mismatch: 'DateValue'

/planner.asp, line 131

Nu har jeg kæmpet med et i to dage, så hvis der er en ekspert herinde der kan gennemskue hvad der går galt og hvordan det omgås, ville jeg være dybt taknemmelig :)

(Koden skal nok lige rykkes ind i en ASP-fil før det giver nogen mening)