Hjæææælp

Du har lRec inde i denne do while:
Hvis rs.EOF er sat til true divedere du lRec i line 84, på det tidspunk har lRec ikke nogen værdi, det kunne give fejlen.

  do while not rs.eof
        if isNumeric(rs(\"AvgStay\")) then
            dTime = dTime + rs(\"AvgStay\")
            lRec = lRec + 1
        end if
        rs.movenext
    loop
linie84    dtTime = dTime / lRec

Jeg er ny, kan du forklare nærmere ?

Hvis du bare skriver en variable uden at give den en værdi får den automatisk værdien \"\". Du hendter nogle data fra en tabel og putter de data ind i dtTime og lRec. Hvis er ikke kommer nogle data i får du dette \"\"/\"\" og det giver en overflow fejl.

Så gør dette inden du dividere:

if ((dtTime<>\"\") and (lRec<>\"\")) then
  dtTime = dtTime/lRec
end if

gider du sætte det ind i koden for mig ?

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
    rs.close
   
    if ((dtTime<>\"\") and (lRec<>\"\")) then
      dtTime = dTime / lRec
      sAvgStayPerSession = FormatTime(dtTime)
    else
      sAvgStayPerSession = 0 \'Måske vil du bruge noget andet
    end if

    if ((dtTime<>\"\") and (lPageViewsPerSession<>\"\")) then
      dtTime = dtTime / lPageViewsPerSession
      sAvgStayPerPage = FormatTime(dtTime)
    else
      sAvgStayPerPage = 0 \'måske du vil benytte en anden værdi her
    end if

den tæller ikke

<!--#include virtual=\"/dev/_db.asp\"-->
<%
    bDontCount = False
    sPageTitle = \"Indee - Statistik\"
    bAdminOnly = False
    lSubjectID = 0
    sTitleBar = \"/dev :: <a href=\"\"/dev/index.asp\"\">home</a> :: stats\"
%>

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

<br>
      <p class=\"smallheader\"> Indee/hjem :: 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
    rs.close

    if ((dtTime<>\"\") and (lRec<>\"\")) then
      dtTime = dTime / lRec
      sAvgStayPerSession = FormatTime(dtTime)
    else
      sAvgStayPerSession = 0 \'Måske vil du bruge noget andet
    end if

    if ((dtTime<>\"\") and (lPageViewsPerSession<>\"\")) then
      dtTime = dtTime / lPageViewsPerSession
      sAvgStayPerPage = FormatTime(dtTime)
    else
      sAvgStayPerPage = 0 \'måske du vil benytte en anden værdi her
    end if   
   
    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/05/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>
You may also have a look at <a href=\"statsd.asp\">detailed statistics</a> which list files accessed, browsers, color depths, and operating systems.
<br><br>
<a href=\"/dev/articles/statisticus.asp\">Learn why</a> these statistics are important for the site
<strong>admins</strong> as well as the <strong>dev</strong>elopers.
This article focuses on basic statistical analysis methods and the techniques to implement them into the web pages.

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

den tæller ikke noget til statistikken eller på siden. Vil du have hele scriptet ?

ok på den måde :)

er der skrevet noget i databasen?

det er en hel portal jeg har downloadet, jeg har bare lidt problemer med at få det til at virke (tællerne altså)

dvs det burde virke.

Hvad er det for nogle tællere du tænker på?

dem jeg kan se er lCount, lRec.

Hvid er ikke er data i databasen vil de ikke blvie talt op.

databasen er tom, men der skulle jo komme noget i når jeg browser siderne ?

Det kode du har her er \"bare\" noget statestik kode som viser hvor mange, hvor lang tid der har besøgt en side.

Der skal så også være noget kode som logger IP startTid EndTid ovs. ovs. i databasen.

det er der også, det er faktisk ret avanceret

Hvis du er interresseret kan jeg sende dig det hele, det tager kun 5 min at sætte det op (undtaget statistikken :-))

Ja jeg kan prøve at kikke på det, er der nogle config-filer man skal rette i?

aoe@earthling.net

der er opsætningsvejledning med

ok det er en stor pakke.

Hele folderen web skal vist være roden på din web-server. Global.asa skal ligge i roden på webserveren.

det gør den også

det hele virker undtaget den det link der hedder site reports. Efter jeg fik din rettelse gav den ikke fejl, den tæller bare ikke.

Jeg får også når jeg prøver at \"edit\" my news under \"min indee\"

jeg får også \"fejl\" selvfølgelig

Det er lige stort nok til jeg kan se hvad fejlen er sådan lige. Jeg kan se hvad du med det er ret avanceret :)

du har slået cookies til?

ja

kan du få resten af sitet til at fungere?  er det ikke bare et fedt site?
Du har jo min mail hvis du finder ud af noget,,, du skal nok få nogle af mine point når vi er færdige.

Jeg har haft lidt problemmer med at den ikke vil hendte include filer og den siget HTML er  starte en gang. 
Jeg vil prøve at smide det ind igen iaften og så starte web-serveren rigtig op igen.

Hva så er du der ????

Ja men jeg har ikke fået kikke så meget på det. Jeg har prøvet at sætte det op men jeg fået forskellige fejl, alt efter hvad jeg gør.

Fedt du stadig er der :-)
Det er ret svært ikke?

hvis du vender tilbage er der stadig point for en løsning :-)