Smid gerne lige et svar, så du kan få point.
Til info endte det med at se sådan ud:
http://mail.green-graphic.dk/ShowStatistics.aspMin udskrevne html, er vist ikke helt efter standarderne, så Firefox viser siden bedst.
Koden:<html>
<head>
<LINK REL=StyleSheet HREF="styles.css" TYPE="text/css">
</head>
<body bgcolor="WHITE">
<table border=0 align=center>
<tr><td colspan="3"><div align=center><h1>Statistik</h1></div></td></tr>
<tr><td colspan="3" valign=bottom><div align=left valign=bottom>
<%
Dim AntalMaaneder, Omgange, Maaned
Dim AntalHaefterDag(31), MaxAntalHaefter, MinAntalHafter, MaanedSidsteDag, DageUdenWeekender
Dim AntalForskelligeHaefter, SamletAntalHaefter, SamletAntalHaefter4S, SamletAntalHaefter8S, Amount
AntalMaaneder = 5
Omgange = 0
Maaned = Month(Now())
Aar = Year(Now())
TidsforbrugPrHaefte = 0.161
Do while Omgange < AntalMaaneder
'Nulstil variabler
AntalForskelligeHaefter = 0
SamletAntalHaefter4S = 0
SamletAntalHaefter8S = 0
SamletAntalHaefter = 0
Amount = 0
MaanedSidsteDag = 0
DageUdenWeekender = 0
MaxAntalHaefter = 0
MinAntalHaefter = 0
'connection
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("../db/EDC_DB.mdb")
Set RS = CreateObject("ADODB.RecordSet")
strsql = "SELECT * FROM detaljer WHERE RecievedMonth='" & Maaned & "' AND RecievedYear='" & Aar & "' ORDER by ID DESC"
RS.Open strsql, Conn, 1, 3
Do While NOT RS.EOF
Amount = rs("Amount")
if not isnumeric(amount) or isempty(amount) or isnull(amount) then Amount = 0
'optæl antal forskellige hæfter
AntalForskelligeHaefter = AntalForskelligeHaefter + 1
'optæl antal samlede hæfter
If rs("Pages") = 4 then
SamletAntalHaefter4S = SamletAntalHaefter4S + Amount
SamletAntalHaefter = SamletAntalHaefter + Amount
Else
SamletAntalHaefter8S = SamletAntalHaefter8S + Amount
SamletAntalHaefter = SamletAntalHaefter + Amount
End if
If Cint(rs("RecievedDay")) > MaanedSidsteDag then MaanedSidsteDag = Cint(rs("RecievedDay"))
AntalHaefterDag((Cint(rs("RecievedDay"))-1)) = (AntalHaefterDag((rs("RecievedDay")-1)) + Cint(Amount))
RS.MoveNext
Loop
RS.Close
Set RS = Nothing
Conn.Close
Set Conn = Nothing
'Udregn dage uden weekender i en måned
For loekke = 1 to MaanedSidsteDag
Dag = DatePart("w", DateSerial(Aar, Maaned, loekke))
If Left(WeekdayName(dag),1) <> "l" AND Left(WeekdayName(dag),1) <> "s" then DageUdenWeekender = DageUdenWeekender + 1
Next
'Udregn Max og Min antal hæfter på en dag
MinAntalHaefter = AntalHaefterDag(0)
For loekke = 1 to MaanedSidsteDag
Dag = DatePart("w", DateSerial(Aar, Maaned, loekke))
If AntalHaefterDag(Loekke-1) > MaxAntalHaefter then
MaxAntalHaefter = AntalHaefterDag(Loekke-1)
IF Loekke = 1 then
If Left(WeekdayName(dag),1) = "m" then MaxAntalHaefter = MaxAntalHaefter
Elseif Loekke = 2 then
If Left(WeekdayName(dag),1) = "m" then MaxAntalHaefter = MaxAntalHaefter + AntalHaefterDag(Loekke-2)
else
If Left(WeekdayName(dag),1) = "m" then MaxAntalHaefter = MaxAntalHaefter + AntalHaefterDag(Loekke-2) + AntalHaefterDag(Loekke-3)
end if
End if
If AntalHaefterDag(Loekke-1) < MinAntalHaefter then MinAntalHaefter = AntalHaefterDag(Loekke-1)
Next
'Vis tekst-statistik
Response.write "<tr><td valign=bottom>"
Response.write "<table border=0 width=250>"
Response.Write "<tr><td colspan=2><b>" & MaanedNavn(Maaned) & " - " & Aar & "</b></td></tr>"
Response.Write "<tr><td>Antal forskellige:</td><td align=right>" & AntalForskelligeHaefter & "</td></tr>"
Response.Write "<tr><td>Samlet antal 4-sidet:</td><td align=right>" & SamletAntalHaefter4S & "</td></tr>"
Response.Write "<tr><td>Samlet antal 8-sidet:</td><td align=right>" & SamletAntalHaefter8S & "</td></tr>"
Response.Write "<tr><td valign=Top>Samlet antal:</td><td align=right>" & SamletAntalHaefter & "</td></tr>"
Response.Write "<tr><td valign=Top>Tidsforbrug pr. dag:</td><td align=right>" & FormatNumber((((SamletAntalHaefter*TidsforbrugPrHaefte)/DageUdenWeekender)/60),2) & " timer</td></tr>"
'Response.Write "<tr><td valign=Top>Min tidsforbrug pr. dag:</td><td align=right>" & FormatNumber((MinAntalHaefter*TidsforbrugPrHaefte)/60,2) & " timer</td></tr>"
Response.Write "<tr><td valign=Top>Max tidsforbrug pr. dag:</td><td align=right>" & FormatNumber((MaxAntalHaefter*TidsforbrugPrHaefte)/60,2) & " timer</td></tr>"
'Response.write "<tr><td valign=Top>Max antal haefter:</td><td align=right>" & MaxAntalHaefter & "</td></tr>"
Response.write "<tr><td colspan=2></td></tr></table>"
Response.write "</td><td width=40></td>"
Response.write "<td valign=bottom><table border=0><tr>"
Response.Write "</tr><tr>"
'Vis graf
For loekke = 1 to MaanedSidsteDag
Response.write "<td valign=bottom align=center width=5px>" & AntalHaefterDag(Loekke-1) &"<br><img src=img/streg.gif width=5 height=" & (AntalHaefterDag(Loekke-1)/10) & "></td>"
Next
Response.Write "</tr><tr>"
'Vis tal-dag
For loekke = 1 to MaanedSidsteDag
Response.write "<td valign=bottom align=center width=5px>" & loekke & ".</td>"
Next
Response.Write "</tr><tr>"
'Vis dagsnavn
For loekke = 1 to MaanedSidsteDag
Dag = DatePart("w", DateSerial(Aar, Maaned, loekke))
Response.write "<td valign=bottom align=center width=5px>" & Left(WeekdayName(Dag),1) & "</td>"
Next
response.write "</tr></table>"
response.write "</td></tr>"
response.write "<tr height=20><td height=20 colspan=3><div align=center><hr></div></td></tr>"
Erase AntalHaefterDag
Omgange = Omgange + 1
Maaned = Maaned - 1
If Maaned < 1 then
Maaned = 12
Aar = Aar - 1
end if
Loop
Function Maanednavn(Maaned)
Select Case Maaned
Case 1
Maanednavn = "Januar"
Case 2
Maanednavn = "Februar"
Case 3
Maanednavn = "Marts"
Case 4
Maanednavn = "April"
Case 5
Maanednavn = "Maj"
Case 6
Maanednavn = "Juni"
Case 7
Maanednavn = "Juli"
Case 8
Maanednavn = "August"
Case 9
Maanednavn = "September"
Case 10
Maanednavn = "Oktober"
Case 11
Maanednavn = "November"
Case 12
Maanednavn = "December"
Case Else
Maanednavn = "Ukendt Maaned (Fejl?)"
End Select
End Function
%></div></td></tr>
<tr height=80><td colspan="7" valign=top><div align=center></div></td></tr>
</table>
</body>
</html>
