Lægge sammen??

Mit script vil pludselig ikke lægge sammen?
Det er meningen det skal trække topscoren ud fra igår og idag og lægge dem sammen til Ialt. Det ville det for noget tid siden men jeg tror jeg har fået rodet for meget :)
<%

    function adz(sText)
        \'Adds a zero to the beginning
        if isNull(sText) then exit function
        if len(sText) > 2 then exit function
        adz = string(2 - len(sText), \"0\") & sText
    end function
   
    function FormatTime(dtTime)
        FormatTime = adz(hour(dtTime)) & \" t \" & adz(minute(dtTime)) & \" min \" & adz(second(dtTime)) & \" sek \"
    end function

    OpenDB sConnStats
   
    sSQL = \"SELECT COUNT(StatID) AS Total FROM Stats\"
    rs.Open sSQL,,,adCmdTable
    lPageViewsTotal = rs(\"Total\")
    rs.close
   
    sToday = month(date) & \"/\" & day(date) & \"/\" & year(date)
    sSQL = \"SELECT COUNT(StatID) AS Total FROM Stats WHERE Date = #\" & sToday & \"#\"
    rs.Open sSQL,,,adCmdTable
    lPageViewsToday = rs(\"Total\")
    rs.close

    dtYesterday = dateserial(year(date), month(date), day(date) - 1)
    sYesterday = month(dtYesterday) & \"/\" & day(dtYesterday) & \"/\" & year(dtYesterday)
    sSQL = \"SELECT COUNT(StatID) AS Total FROM Stats WHERE Date = #\" & sYesterday & \"#\"
    rs.Open sSQL,,,adCmdTable
    lPageViewsYesterday = rs(\"Total\")
    rs.close

    sSQL = \"SELECT IP FROM Stats GROUP BY IP\"
    rs.Open sSQL,,,adCmdTable
    lVisitorsTotal = rs.recordcount
    rs.close
   
    sToday = month(date) & \"/\" & day(date) & \"/\" & year(date)
    sSQL = \"SELECT IP FROM Stats WHERE Date = #\" & sToday & \"# GROUP BY IP\"
    rs.Open sSQL,,,adCmdTable
    lVisitorsToday = rs.recordcount
    rs.close

    sSQL = \"SELECT IP FROM Stats WHERE Date = #\" & sYesterday & \"# GROUP BY IP\"
    rs.Open sSQL,,,adCmdTable
    lVisitorsYesterday = rs.recordcount
    rs.close

    sSQL = \"SELECT COUNT(StatID) AS PageViews FROM Stats GROUP By SessionID\"
    rs.Open sSQL,,,adCmdTable
    do while not rs.eof
        lCount = lCount + 1
        lPageViews = lPageViews + rs(\"PageViews\")
        rs.movenext
    loop
    if lCount then lPageViewsPerSession = CInt(lPageViews / lCount)
    rs.close
   
   
    sSQL = \"SELECT MAX(LeaveTime) - MIN(Time) AS AvgStay FROM Stats GROUP By SessionID\"
    rs.Open sSQL,,,adCmdTable
    do while not rs.eof
        if isNumeric(rs(\"AvgStay\")) then
            dTime = dTime + rs(\"AvgStay\")
            lRec = lRec + 1
        end if
        rs.movenext
    loop
    dtTime = dTime / lRec
    sAvgStayPerSession = FormatTime(dtTime)
    rs.close
   
    dtTime = dtTime / lPageViewsPerSession
    sAvgStayPerPage = FormatTime(dtTime)
   
   
    sPageViewsToday = formatnumber(lPageViewsToday, 0)
    sPageViewsYesterday = formatnumber(lPageViewsYesterday, 0)
    sPageViewsTotal = formatnumber(lPageViewsTotal, 0)

    sVisitorsToday = formatnumber(lVisitorsToday, 0)
    sVisitorsYesterday = formatnumber(lVisitorsYesterday, 0)
    sVisitorsTotal = formatnumber(lVisitorsTotal, 0)

\'TO DO : Change the start date of your site
    dtBegin = #24/11/2001 20:20#
    sOnline = \"<strong>\" & DateDiff(\"d\", dtBegin, Now) -1 & \"</strong> dage og <strong>\" & DateDiff(\"h\", dtBegin, Now) mod 24 & \"</strong> timer\"
    iDays = DateDiff(\"d\", application(\"ServerStart\"), Now) -1
    if iDays > 0 then
        sUpTime = \"<strong>\" & iDays & \"</strong> dage og <strong>\" & DateDiff(\"h\", application(\"ServerStart\"), Now) mod 24 & \"</strong> timer\"
    else
        sUpTime = \"<strong>\" & DateDiff(\"h\", application(\"ServerStart\"), Now) mod 24 & \"</strong> timer\"
    end if

%>

      <p class=\"smallertext\"> Denne statistik har kørt i <%=sOnline%><br><br>
        Serveren har været online i <%=sUptime%><br><br>
        Serverens ur : <%=formatdatetime(date, 0) & \" - \" & formatdatetime(time, 0)%><BR><BR>
</p>


<table border=0 cellspacing=1 class=\"sides\" width=300>
    <tr>
        <td class=\"navheader\"></td>
          <td align=right class=\"navheader\">Sidevisninger</td>
          <td align=right class=\"navheader\">Besøgende</td>
    </tr>
    <tr>
          <td class=\"sides\">Idag</td>
        <td align=right class=\"sides\"><%=sPageViewsToday%></td>
        <td align=right class=\"sides\"><%=sVisitorsToday%></td>
    </tr>
    <tr  class=\"sides\">
          <td class=\"sides\">Igår</td>
        <td align=right class=\"sides\"><%=sPageViewsYesterday%></td>
        <td align=right class=\"sides\"><%=sVisitorsYesterday%></td>
    </tr>
    <tr>
          <td class=\"sides\"><b>Ialt</b></td>
        <td align=right class=\"navheader\"><%=sPageViewsTotal%></td>
        <td align=right class=\"navheader\"><%=sVisitorsTotal%></td>
    </tr>
</table>
      <p>De besøgende bruger <b><%=sAvgStayPerSession%></b> i gennemsnit på Counselor.dk før de forlader
        sitet igen.</p>
      <p>De læser gennemsnitlig <b><%=lPageViewsPerSession%></b> sider under deres besøg og de bruger <b><%=sAvgStayPerPage%></b> i gennemsnit på hver af dem.<br>
      </p>