"Kodeknækkere søges" - Kalenderproblem

Hjææælp..

Jeg er gået i selvsving med nedenstående kode..

Jeg har modificeret kalenderen så jeg ved et klik på selve datoen kan gå til en anden side der modtager Request.QueryString(og aktuel dato)Det virker fint EFTER jeg har brugt linkene (frem eller tilbage) - MEN..

Mit problem er at når jeg starter siden op, så bliver den indeværende måneds link angivet med en værdi der ligger 2 datoer over..

Har for at løse problemet lavet en værdi på HREF'en (frem og tilbage) der skulle bruges til at sige: Hvis den er tom så gør.. osv..
Nu er der efterhånden gået koldbrand i min hjerne så hvis nogen kan hjælpe med at få styr på koden så det virker både ved start, og brug af frem og tilbage linkene - ville jeg og min hjerne blive utroligt glade.. Koden kommer her:



<%
dtmDate = Request.QueryString("date")
Linkset = Request.QueryString("Linkok")
Response.Write Linkset
dtmToday = Date
'vdato = Date - 1


If dtmDate = "" Then
    dtmDate = Date
    'vdato = Date - 1
   
Else
    dtmDate = CDate(dtmDate)
    'vdato = dtmDate - 1   

           
End if
'--------------hvis linkset er tom så træk en fra i datoen....
if Linkset = "" Then
vdato = CDate(dtmDate)
Else
vdato = CDate(dtmDate)-1
End If
'------------------------------------



Response.Write vdato
intYear = Year(dtmDate)
strMonth = MonthName(Month(dtmDate))
intDayOfMonth = Day(dtmDate)
dtmFirstDate = DateAdd("d", (-intDayOfMonth)+1, dtmDate)
intFirstDay = Weekday(dtmFirstDate, vbMonday)
%>
      <table cellspacing="0" cellpadding="2" border="0" valign="top"
style="border: 1px solid rgb(0,0,0)" align="left">
        <tr bgcolor="#006699">
          <td colspan="7" align="center" valign="middle"><font face="Verdana"
size="2" color="#ffffff"><strong><font size="1"><%=strMonth%>&nbsp;<%=intYear%></font></strong></font></td>
        </tr>
        <tr>
          <td align="center"><b><font face="verdana" size="1">Man</font></b></td>
          <td align="center"><b><font face="verdana" size="1">Tir</font></b></td>
          <td align="center"><b><font face="verdana" size="1">Ons</font></b></td>
          <td align="center"><b><font face="verdana" size="1">Tor</font></b></td>
          <td align="center"><b><font face="verdana" size="1">Fre</font></b></td>
          <td align="center"><b><font face="verdana" size="1">Lør</font></b></td>
          <td align="center"><b><font face="verdana" size="1">Søn</font></b></td>
        </tr>
        <%
For y = 1 to 6
    If blnLast <> True Then
        Response.Write "<tr>"
        For x = 1 to 7
            Response.Write "<td align=center><font face=verdana size=1>"
            intLoopDay = intLoopDay + 1
            If intLoopDay >= intFirstDay Then
                dtmCurDate = DateAdd("d", intLoopDay-intFirstDay, dtmFirstDate)
                If Month(dtmCurDate) = Month(dtmFirstDate) Then
                    If dtmCurDate = dtmToday Then
                        vdato = vdato + 1
                        Response.Write "<a href='addon2.asp?vaerdi="& vdato &"' style='text-decoration:none; color:red'><strong>" & Day(dtmCurDate) & "</strong></a>"
                    Else
                      vdato= vdato + 1
                    Response.Write "<a href='addon2.asp?vaerdi=" & vdato & "' style='text-decoration:none; color:black'>" & Day(dtmCurDate) & "</a>"
                    Response.Write "</td>"
                    blnLast = False
                    End If
                Else
                    Response.Write "</td>"
                    blnLast = True
                End If
            Else
                Response.Write "</td>"
                blnLast = True
            End if
        Next
    End If
Next
Response.Write "</font></td></tr>"
'----------------------------------------

%>
        <tr>
          <td bgcolor="#006699" colspan="3"><font face="verdana" size="2"><b><a
href="default.asp?date=<%=DateAdd("m",-1,dtmFirstDate)%>&Linkok=<%=vdato%>">
           
            Tilbage</a></b></font></td>
          <td bgcolor="#006699">&nbsp;</td>
          <td bgcolor="#006699" colspan="3" align="right"><font face="verdana" size="2"><b><a
href="default.asp?date=<%=DateAdd("m",1,dtmFirstDate)%>&Linkok=<%=vdato%>">
       
            Frem</a></b></font></td>
        </tr>
      </table>
      </u></font></b></td>