Oversættelse fra VBscript til Jscript

Jeg skal have oversat de her 2 stykker til VBscript. Nu er det kokset nok gange for mig...
Det er en kalender, og jeg har udeladt alt hvad angår tabellen...


1. Del

<%
  dtmDate = Request.QueryString("date");
  dtmToday = Date();

  If (dtmDate == "")
  dtmDate = Date;
  Else
  dtmDate = CDate(dtmDate);

  intYear = Year(dtmDate)
  strMonth = MonthName(Month(dtmDate))
  intDayOfMonth = Day(dtmDate)
  dtmFirstDate = DateAdd("d", (-intDayOfMonth)+1, dtmDate)
  intFirstDay = Weekday(dtmFirstDate, vbMonday)
%>


2. Del


<%
        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=2>"
            intLoopDay = intLoopDay + 1
            If intLoopDay >= intFirstDay Then
                dtmCurDate = DateAdd("d", intLoopDay-intFirstDay, dtmFirstDate)
                If Month(dtmCurDate) = Month(dtmFirstDate) Then
                    If dtmCurDate = dtmToday Then
                        Response.Write "<strong><font color=#ff0000>"
                    End If
                    Response.Write Day(dtmCurDate)
                    Response.Write "</strong></td>"
                    blnLast = False
                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>"
%>