overflow??
Jeg får en fejl der hedder: Microsoft VBScript runtime (0x800A0006)Overflow
/dev/cm/index.asp, line 89
Her er koden:
<!--#include virtual=\"/dev/_db.asp\"-->
<%
bDontCount = True
sPageTitle = \"ASP DeV WorX - Content Manager\"
bAdminOnly = True
lSubjectID = 0
sTitleBar = \"/dev :: <a href=\"\"/dev/index.asp\"\">home</a> :: content manager\"
%><!--#include virtual=\"/dev/_header.asp\"-->
<br>
<p class=\"smallheader\">
ASP DeV WorX/dev :: Content Manager
</p>
» <a href=\"te/index.asp\">Table Editor</a><br>
» <a href=\"minisurvey/admin.asp\">Survey Admin</a><br>
» <a href=\"/dev/live/statcountex/reports.asp\">StatCounteX Reports</a>
<br><br>
<%
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 = dTime / lRec\'---line 89---
sAvgStayPerSession = FormatTime(dtTime)
rs.close
dtTime = dtTime / lPageViewsPerSession
sAvgStayPerPage = FormatTime(dtTime)
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
sPageViewsToday = formatnumber(lPageViewsToday, 0)
sPageViewsYesterday = formatnumber(lPageViewsYesterday, 0)
sPageViewsTotal = formatnumber(lPageViewsTotal, 0)
sVisitorsToday = formatnumber(lVisitorsToday, 0)
sVisitorsYesterday = formatnumber(lVisitorsYesterday, 0)
sVisitorsTotal = formatnumber(lVisitorsTotal, 0)
conn.close
\'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%>
</p>
<table border=0 cellspacing=1 bgcolor=\"#ffe4b5\" width=400>
<tr>
<td></td>
<td align=right class=\"smallerheader\">PageViews</td>
<td align=right class=\"smallerheader\">Visitors</td>
</tr>
<tr bgcolor=\"#fdf5e6\">
<td>Today</td>
<td align=right><%=sPageViewsToday%></td>
<td align=right><%=sVisitorsToday%></td>
</tr>
<tr bgcolor=\"#fdf5e6\">
<td>Yesterday</td>
<td align=right><%=sPageViewsYesterday%></td>
<td align=right><%=sVisitorsYesterday%></td>
</tr>
<tr>
<td class=\"smallerheader\">Total</td>
<td class=\"smallerheader\" align=right><%=sPageViewsTotal%></td>
<td class=\"smallerheader\" align=right><%=sVisitorsTotal%></td>
</tr>
</table>
<p class=\"smallertext\">
Average Stay per Session : <%=sAvgStayPerSession%><br>
Average Page Views per Session : <%=lPageViewsPerSession%><br>
Average Stay per Page : <%=sAvgStayPerPage%>
<br><br>
Server Time : <%=formatdatetime(date, 0) & \" - \" & formatdatetime(time, 0)%>
</p>
<table border=0 cellspacing=1 bgcolor=\"#ffe4b5\" width=400>
<tr>
<td class=\"smallerheader\"> </td>
<td class=\"smallerheader\" align=right>Bugs</td>
<td class=\"smallerheader\" align=right>Questions</td>
<td class=\"smallerheader\" align=right>Answers</td>
<td class=\"smallerheader\" align=right>Recommends</td>
<td class=\"smallerheader\" align=right>Sites</td>
</tr>
<%
OpenDB sConnFeedBack
\'Bugs
sSQL = \"SELECT COUNT(BugID) AS Total FROM Bugs WHERE DateSerial(Year(SubmitDate), Month(SubmitDate), Day(SubmitDate)) = #\" & sToday & \"#\" : rs.Open sSQL
lBugsToday = rs(\"Total\") : rs.close
sSQL = \"SELECT COUNT(BugID) AS Total FROM Bugs WHERE DateSerial(Year(SubmitDate), Month(SubmitDate), Day(SubmitDate)) = #\" & sYesterday & \"#\" : rs.Open sSQL
lBugsYesterday = rs(\"Total\") : rs.close
sSQL = \"SELECT COUNT(BugID) AS Total FROM Bugs\" : rs.Open sSQL
lBugsTotal = rs(\"Total\") : rs.close
\'Questions
sSQL = \"SELECT COUNT(QuestionID) AS Total FROM Questions WHERE DateSerial(Year(AskedDate), Month(AskedDate), Day(AskedDate)) = #\" & sToday & \"#\" : rs.Open sSQL
lQuestionsToday = rs(\"Total\") : rs.close
sSQL = \"SELECT COUNT(QuestionID) AS Total FROM Questions WHERE DateSerial(Year(AskedDate), Month(AskedDate), Day(AskedDate)) = #\" & sYesterday & \"#\" : rs.Open sSQL
lQuestionsYesterday = rs(\"Total\") : rs.close
sSQL = \"SELECT COUNT(QuestionID) AS Total FROM Questions\" : rs.Open sSQL
lQuestionsTotal = rs(\"Total\") : rs.close
\'Answers
sSQL = \"SELECT COUNT(AnswerID) AS Total FROM Answers WHERE DateSerial(Year(AnsweredDate), Month(AnsweredDate), Day(AnsweredDate)) = #\" & sToday & \"#\" : rs.Open sSQL
lAnswersToday = rs(\"Total\") : rs.close
sSQL = \"SELECT COUNT(AnswerID) AS Total FROM Answers WHERE DateSerial(Year(AnsweredDate), Month(AnsweredDate), Day(AnsweredDate)) = #\" & sYesterday & \"#\" : rs.Open sSQL
lAnswersYesterday = rs(\"Total\") : rs.close
sSQL = \"SELECT COUNT(AnswerID) AS Total FROM Answers\" : rs.Open sSQL
lAnswersTotal = rs(\"Total\") : rs.close
\'Recommends
sSQL = \"SELECT COUNT(RecID) AS Total FROM Recommends WHERE DateSerial(Year(RecDate), Month(RecDate), Day(RecDate)) = #\" & sToday & \"#\" : rs.Open sSQL
lRecsToday = rs(\"Total\") : rs.close
sSQL = \"SELECT COUNT(RecID) AS Total FROM Recommends WHERE DateSerial(Year(RecDate), Month(RecDate), Day(RecDate)) = #\" & sYesterday & \"#\" : rs.Open sSQL
lRecsYesterday = rs(\"Total\") : rs.close
sSQL = \"SELECT COUNT(RecID) AS Total FROM Recommends\" : rs.Open sSQL
lRecsTotal = rs(\"Total\") : rs.close
\'Sites
sSQL = \"SELECT COUNT(SiteID) AS Total FROM Sites WHERE DateSerial(Year(SubmitDate), Month(SubmitDate), Day(SubmitDate)) = #\" & sToday & \"#\" : rs.Open sSQL
lSitesToday = rs(\"Total\") : rs.close
sSQL = \"SELECT COUNT(SiteID) AS Total FROM Sites WHERE DateSerial(Year(SubmitDate), Month(SubmitDate), Day(SubmitDate)) = #\" & sYesterday & \"#\" : rs.Open sSQL
lSitesYesterday = rs(\"Total\") : rs.close
sSQL = \"SELECT COUNT(SiteID) AS Total FROM Sites\" : rs.Open sSQL
lSitesTotal = rs(\"Total\") : rs.close
%>
<tr bgcolor=\"#fdf5e6\">
<td>Today</td>
<td align=right><%=lBugsToday%></td>
<td align=right><%=lQuestionsToday%></td>
<td align=right><%=lAnswersToday%></td>
<td align=right><%=lRecsToday%></td>
<td align=right><%=lSitesToday%></td>
</tr>
<tr bgcolor=\"#fdf5e6\">
<td>Yesterday</td>
<td align=right><%=lBugsYesterday%></td>
<td align=right><%=lQuestionsYesterday%></td>
<td align=right><%=lAnswersYesterday%></td>
<td align=right><%=lRecsYesterday%></td>
<td align=right><%=lSitesYesterday%></td>
</tr>
<tr bgcolor=\"#ffe4b5\">
<td class=\"smallerheader\">Total</td>
<td class=\"smallerheader\" align=right><%=lBugsTotal%></td>
<td class=\"smallerheader\" align=right><%=lQuestionsTotal%></td>
<td class=\"smallerheader\" align=right><%=lAnswersTotal%></td>
<td class=\"smallerheader\" align=right><%=lRecsTotal%></td>
<td class=\"smallerheader\" align=right><%=lSitesTotal%></td>
</tr>
</table>
<br><br>
<table border=0 cellspacing=1 bgcolor=\"#ffe4b5\" width=400>
<tr>
<td class=\"smallerheader\">Projects</td>
<td class=\"smallerheader\" align=right>Downloads</td>
<td class=\"smallerheader\" align=right>PageViews</td>
</tr>
<%
conn.close
OpenDB sConnProjects
sSQL = \"SELECT Name, Downloads, PageViews FROM Projects ORDER BY PageViews DESC\"
rs.Open sSQL
do while not rs.eof
lDownloads = rs(\"Downloads\")
lPageViews = rs(\"PageViews\")
lTotalDownloads = lTotalDownloads + lDownloads
lTotalPageViews = lTotalPageViews + lPageViews
%>
<tr bgcolor=\"#fdf5e6\">
<td><%=rs(\"Name\")%></td>
<td align=right><%=lDownloads%></td>
<td align=right><%=lPageViews%></td>
</tr>
<%
rs.movenext
loop
rs.close
%>
<tr bgcolor=\"#fdf5e6\">
<td class=\"smallerheader\">Total</td>
<td class=\"smallerheader\" align=right><%=lTotalDownloads%></td>
<td class=\"smallerheader\" align=right><%=lTotalPageViews%></td>
</tr>
</table>
<br><br>
<table border=0 cellspacing=1 bgcolor=\"#ffe4b5\" width=400>
<tr>
<td class=\"smallerheader\">Document</td>
<td class=\"smallerheader\" align=right>PageViews</td>
</tr>
<%
sSQL = \"select projects.name, documents.name, documents.pageviews from documents left join projects on (documents.projectid = projects.projectid) order by documents.pageviews desc, projects.name\"
rs.Open sSQL
do while not rs.eof
%>
<tr bgcolor=\"#fdf5e6\">
<td><%=rs(\"Projects.Name\") & \"::\" & rs(\"Documents.Name\")%></td>
<td align=right><%=rs(\"PageViews\")%></td>
</tr>
<%
rs.movenext
loop
rs.close
%>
</table>
<br><br>
<br><br>
<table border=0 cellspacing=1 bgcolor=\"#ffe4b5\" width=400>
<tr>
<td class=\"smallerheader\">Referer</td>
<td class=\"smallerheader\" align=right>Total</td>
</tr>
<%
conn.close
OpenDB sConnStats
\'TO DO: Change the name of your domain
sThisServer = \"indee.dk\"
\'Get referers other than the site itself
sSQL = \"SELECT TOP 20 RefName, Total FROM Refs WHERE Instr(RefName, \'\" & sThisServer & \"\') = 0 ORDER BY Total DESC\"
rs.Open sSQL
do while not rs.eof
%>
<tr bgcolor=\"#fdf5e6\">
<td><%=rs(\"RefName\")%></td>
<td align=right><%=rs(\"Total\")%></td>
</tr>
<%
rs.movenext
loop
CloseDB
%>
</table>
<br>
<!--#include virtual=\"/dev/_footer.asp\"-->
