21. oktober 2003 - 14:40Der er
4 kommentarer og 1 løsning
Finde hvor mange poster der er time for time
Jeg har følgene kode til at vise hvor mange poster der er dag for dag. SQL = "Select Top 30 Format(DateTime, 'dd-mm-yyyy') As CDato, Count(Format(DateTime, 'dd-mm-yyyy')) As RowCount From Statistik Where DateTime > #2000-01-01# Group By Format(DateTime, 'dd-mm-yyyy') Order By Format(DateTime, 'dd-mm-yyyy') Desc"
Nu ville jeg så gerne lave den lidt om så den viser hvor mange poster(hits) der er time for time på en given dato.
SQL = "Select Format(DateTime, 'dd-mm-yyyy hh') As CDato, Count(Format(DateTime, 'dd-mm-yyyy hh')) As RowCount From Statistik Where DateTime = #2000-01-01# Group By Format(DateTime, 'dd-mm-yyyy hh') Order By Format(DateTime, 'dd-mm-yyyy hh') Desc"
Set Hits = DataConn.Execute("Select Format(DateTime, 'dd-mm-yyyy hh') As CDato, Count(Format(DateTime, 'dd-mm-yyyy hh')) As RowCount From Statistik Where DateTime = #"&CDate(Dato)&"# Group By Format(DateTime, 'dd-mm-yyyy hh') Order By Format(DateTime, 'dd-mm-yyyy hh') Desc")
Do until Hits.EOF If not Ialt = 0 Then Procent = (hits("Rowcount") * 100) / IAlt else Procent = 0 end if Procent = FormatNumber(procent,2) Response.Write "<tr bgcolor=""white""><td>" & Hits("CDato") & "</td>" Response.Write "<td align=""right"" width=""60"">" & hits("RowCount") & "</td><td align=""right"" width=""100"">" & Procent & "%<br><table cellpadding=""0"" cellspacing=""0"" width="""& FormatNumber(Procent,0) &""" height=""5"" bgcolor=""black""><td></td></table></td></tr>" Hits.MoveNext Loop %> </table>
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.