Jeg får overflow

Det er linie 86 jeg får fejl på

En mand kom ind til lægen og sagde; Jeg har fået overflow, hvad skal jeg dog gøre ?
Lægen så på manden og sagde, \"du skal bare tage en af dem her\" og så rakte han manden en CDbl.

Udskift linie 86 med \"dtTime = CDbl(CDbl(dTime) / CDbl(lRec))\"

Uden \" selvf\' :)

Det virkede desværre ikke

<!--#include virtual=\"/dev/_db.asp\"-->
<%
    bDontCount = False
    sPageTitle = \"Counselor - Stats\"
    bAdminOnly = False
    lSubjectID = 0
    sTitleBar = \":: <a href=\"\"/dev/index.asp\"\">Start</a> :: statistik\"
%>

<!--#include virtual=\"/dev/_header.asp\"-->

<br>
<p class=\"smallheader\">
    Counselor :: Side Statistik
</p>

<%

    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)) & \":\" & adz(minute(dtTime)) & \":\" & adz(second(dtTime))
    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 = CDbl(CDbl(dTime) / CDbl(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 = #08/10/2001 00:20#
    sOnline = \"<strong>\" & DateDiff(\"d\", dtBegin, Now) -1 & \"</strong> days, <strong>\" & DateDiff(\"h\", dtBegin, Now) mod 24 & \"</strong> hours.\"
    iDays = DateDiff(\"d\", application(\"ServerStart\"), Now) -1
    if iDays > 0 then
        sUpTime = \"<strong>\" & iDays & \"</strong> days, <strong>\" & DateDiff(\"h\", application(\"ServerStart\"), Now) mod 24 & \"</strong> hours.\"
    else
        sUpTime = DateDiff(\"h\", application(\"ServerStart\"), Now) mod 24 & \"</strong> hours.\"
    end if

%>

<p class=\"smallertext\">
Site is online for <%=sOnline%><br><br>
Server is Online for <%=sUptime%><br><br>
Server Time : <%=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\">PageViews</td>
        <td align=right class=\"navheader\">Visitors</td>
    </tr>
    <tr>
        <td class=\"sides\">Today</td>
        <td align=right class=\"sides\"><%=sPageViewsToday%></td>
        <td align=right class=\"sides\"><%=sVisitorsToday%></td>
    </tr>
    <tr  class=\"sides\">
        <td class=\"sides\">Yesterday</td>
        <td align=right class=\"sides\"><%=sPageViewsYesterday%></td>
        <td align=right class=\"sides\"><%=sVisitorsYesterday%></td>
    </tr>
    <tr>
        <td class=\"sides\">Total</td>
        <td align=right class=\"navheader\"><%=sPageViewsTotal%></td>
        <td align=right class=\"navheader\"><%=sVisitorsTotal%></td>
    </tr>
</table>
<br><br>

Average Stay per Session : <%=sAvgStayPerSession%><br><br>
Average Page Views per Session : <%=lPageViewsPerSession%><br><br>
Average Stay per Page : <%=sAvgStayPerPage%>
<br><br>
<!--#include virtual=\"/dev/_footer.asp\"-->

Hmmm myhystihisk.... Jeg gad nok vide hvad de to variabler dTime og lRec indeholder når de bliver divideret...
Prøv evt. med CLng() i stedet for CDbl...

sådan ? dtTime = CLng(CLng(dTime) / CLng(lRec))

:-(

Yep, men uden den første CLng..
dtTime = CLng(dTime) / CLng(lRec)

Ok den var der 1 gang, men ved opdatering forsvandt den og gav samme fejl???

Underligt - prøv at lade den udskrive regnestykket i stedet for...
Response.Write dTime & \" / \" & lRec

Så laver den fejl ved linie 91 dtTime = dtTime / lPageViewsPerSession
Jeg udkommenetrede dem begge. og så kom siden. Nu skal jeg bare have den til at tælle??

Udskrev den ikke noget ?

Du kan se den her: http://www.counselor.dk/dev/stats.asp

Det ser ikke ud til at dTime og lRec indeholder noget... ligger der noget i databasen ?

Nej den er tom lige nu. Jeg prøver at få noget ind i den med det her:
<SCRIPT type=\"text/javascript\" language=\"JavaScript\">
var d=new Date();
var s=d.getSeconds();
var m=d.getMinutes();
var x=s*m;
f=\'\' + escape(document.referrer);
if (navigator.appName==\'Netscape\'){b=\'NS\';}
if (navigator.appName==\'Microsoft Internet Explorer\'){b=\'MSIE\';}
if (navigator.appVersion.indexOf(\'MSIE 3\')>0) {b=\'MSIE\';}
u=\'\' + escape(document.URL); w=screen.width; h=screen.height;
v=navigator.appName;
fs = window.screen.fontSmoothingEnabled;
if (v != \'Netscape\') {c=screen.colorDepth;}
else {c=screen.pixelDepth;}
j=navigator.javaEnabled();
info=\'w=\' + w + \'&h=\' + h + \'&c=\' + c + \'&r=\' + f + \'&u=\'+ u + \'&fs=\' + fs + \'&b=\' + b + \'&x=\' + x;
document.write(\'<img src=\"/dev/count.asp?\'+info+ \'\" width=100 height=20 border=0 alt=\"Counselor\">\');
</script>

Jeg har de her 2 stats i mint _db.asp
    sConnStats = \"Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=\" & Server.MapPath(\"/stats/stats.mdb\")
    sConnUsers = \"Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=\" & Server.MapPath(\"/data/users.mdb\")
    sConnProjects = \"Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=\" & Server.MapPath(\"/data/projects.mdb\")
    sConnFeedback = \"Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=\" & Server.MapPath(\"/data/feedback.mdb\")
    sConnStats = \"Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=\" & Server.MapPath(\"/data/stats.mdb\")
    sConnSamples = \"Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=\" & Server.MapPath(\"/data/samples.mdb\")
    sConnMessages = \"Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=\" & Server.MapPath(\"/data/messages.mdb\")
    sConnMini = \"Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=\" & Server.MapPath(\"/data/mini.mdb\")
    sConnWebring = \"Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=\" & Server.MapPath(\"/data/webring.mdb\")
    sConnForum = \"Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=\" & Server.MapPath(\"/data/openforum.mdb\")

Okay, jeg tror det er for omfattende til at jeg kan løse det her...

Men ok jeg accepterer dit svar.
Nu håber jeg bare jeg får resten til at virke

Jeg tror problemet er at den ikke kan dividerer ingenting med ingenting... prøv at fylde noget i databasen.
Ellers aner jeg det ikke...