<% strDSN = "DRIVER={MySQL}; Server=mydb6.surf-town.net; Database=spoforum; Uid=spoaddict; Password=spassersoren;" Function DBFix(tempString) tempString = Replace(Trim(tempString), "'", "''") tempString = Replace(tempString, "|", "") DBFix = tempString End Function %> <% Set myConn = Server.CreateObject("ADODB.Connection") myConn.Open strDSN intTime = "00" ' med billede ' Function Graf(intItemCount) ' If Len(intItemCount) = 1 Then ' Graf = intItemCount & "   " ' Elseif Len(intItemCount) = 2 Then ' Graf = intItemCount & "  " ' Elseif Len(intItemCount) = 3 Then ' Graf = intItemCount & " " ' end if ' End Function ' med farvet graf Function Graf(intItemCount) strColour = "#DDDDFF" strGrafFont = "" intGrafCount = 0 Do While intGrafCount < (intItemCount / 5) strStregGraf = strStregGraf & "." intGrafCount = intGrafCount + 1 Loop If Len(intItemCount) = 1 Then Graf = intItemCount &"   " & strGrafFont & "" & strStregGraf & "" Elseif Len(intItemCount) = 2 Then Graf = intItemCount & "  " & strGrafFont & "" & strStregGraf & "" Elseif Len(intItemCount) = 3 Then Graf = intItemCount & " " & strGrafFont & "" & strStregGraf & "" end if End Function 'strSQL = "SELECT TIME_FORMAT(date,'%H%i') AS FormTime, TIME_FORMAT(date,'%H') AS FormHour FROM Entries WHERE (forumid = 14)" strSQL = "SELECT Count(*) AS ItemCount FROM Entries WHERE ((TIME_FORMAT(date,'%H') = '00') AND (TIME_FORMAT(date,'%H%i%s') <> 000000))" Set rs = myConn.Execute(strSQL) strMellemrum = Graf(rs("ItemCount")) strHTML = strHTML & "kl. 00 | " & strMellemrum & "
" strSQL = "SELECT Count(*) AS ItemCount FROM Entries WHERE (TIME_FORMAT(date,'%H') = '01')" Set rs = myConn.Execute(strSQL) strMellemrum = Graf(rs("ItemCount")) strHTML = strHTML & "kl. 01 | " & strMellemrum & "
" strSQL = "SELECT Count(*) AS ItemCount FROM Entries WHERE (TIME_FORMAT(date,'%H') = '02')" Set rs = myConn.Execute(strSQL) strMellemrum = Graf(rs("ItemCount")) strHTML = strHTML & "kl. 02 | " & strMellemrum & "
" strSQL = "SELECT Count(*) AS ItemCount FROM Entries WHERE (TIME_FORMAT(date,'%H') = '03')" Set rs = myConn.Execute(strSQL) strMellemrum = Graf(rs("ItemCount")) strHTML = strHTML & "kl. 03 | " & strMellemrum & "
" strSQL = "SELECT Count(*) AS ItemCount FROM Entries WHERE (TIME_FORMAT(date,'%H') = '04')" Set rs = myConn.Execute(strSQL) strMellemrum = Graf(rs("ItemCount")) strHTML = strHTML & "kl. 04 | " & strMellemrum & "
" strSQL = "SELECT Count(*) AS ItemCount FROM Entries WHERE (TIME_FORMAT(date,'%H') = '05')" Set rs = myConn.Execute(strSQL) strMellemrum = Graf(rs("ItemCount")) strHTML = strHTML & "kl. 05 | " & strMellemrum & "
" strSQL = "SELECT Count(*) AS ItemCount FROM Entries WHERE (TIME_FORMAT(date,'%H') = '06')" Set rs = myConn.Execute(strSQL) strMellemrum = Graf(rs("ItemCount")) strHTML = strHTML & "kl. 06 | " & strMellemrum & "
" strSQL = "SELECT Count(*) AS ItemCount FROM Entries WHERE (TIME_FORMAT(date,'%H') = '07')" Set rs = myConn.Execute(strSQL) strMellemrum = Graf(rs("ItemCount")) strHTML = strHTML & "kl. 07 | " & strMellemrum & "
" strSQL = "SELECT Count(*) AS ItemCount FROM Entries WHERE (TIME_FORMAT(date,'%H') = '08')" Set rs = myConn.Execute(strSQL) strMellemrum = Graf(rs("ItemCount")) strHTML = strHTML & "kl. 08 | " & strMellemrum & "
" strSQL = "SELECT Count(*) AS ItemCount FROM Entries WHERE (TIME_FORMAT(date,'%H') = '09')" Set rs = myConn.Execute(strSQL) strMellemrum = Graf(rs("ItemCount")) strHTML = strHTML & "kl. 09 | " & strMellemrum & "
" strSQL = "SELECT Count(*) AS ItemCount FROM Entries WHERE (TIME_FORMAT(date,'%H') = '10')" Set rs = myConn.Execute(strSQL) strMellemrum = Graf(rs("ItemCount")) strHTML = strHTML & "kl. 10 | " & strMellemrum & "
" strSQL = "SELECT Count(*) AS ItemCount FROM Entries WHERE (TIME_FORMAT(date,'%H') = '11')" Set rs = myConn.Execute(strSQL) strMellemrum = Graf(rs("ItemCount")) strHTML = strHTML & "kl. 11 | " & strMellemrum & "
" strSQL = "SELECT Count(*) AS ItemCount FROM Entries WHERE (TIME_FORMAT(date,'%H') = '12')" Set rs = myConn.Execute(strSQL) strMellemrum = Graf(rs("ItemCount")) strHTML = strHTML & "kl. 12 | " & strMellemrum & "
" strSQL = "SELECT Count(*) AS ItemCount FROM Entries WHERE (TIME_FORMAT(date,'%H') = '13')" Set rs = myConn.Execute(strSQL) strMellemrum = Graf(rs("ItemCount")) strHTML = strHTML & "kl. 13 | " & strMellemrum & "
" strSQL = "SELECT Count(*) AS ItemCount FROM Entries WHERE (TIME_FORMAT(date,'%H') = '14')" Set rs = myConn.Execute(strSQL) strMellemrum = Graf(rs("ItemCount")) strHTML = strHTML & "kl. 14 | " & strMellemrum & "
" strSQL = "SELECT Count(*) AS ItemCount FROM Entries WHERE (TIME_FORMAT(date,'%H') = '15')" Set rs = myConn.Execute(strSQL) strMellemrum = Graf(rs("ItemCount")) strHTML = strHTML & "kl. 15 | " & strMellemrum & "
" strSQL = "SELECT Count(*) AS ItemCount FROM Entries WHERE (TIME_FORMAT(date,'%H') = '16')" Set rs = myConn.Execute(strSQL) strMellemrum = Graf(rs("ItemCount")) strHTML = strHTML & "kl. 16 | " & strMellemrum & "
" strSQL = "SELECT Count(*) AS ItemCount FROM Entries WHERE (TIME_FORMAT(date,'%H') = '17')" Set rs = myConn.Execute(strSQL) strMellemrum = Graf(rs("ItemCount")) strHTML = strHTML & "kl. 17 | " & strMellemrum & "
" strSQL = "SELECT Count(*) AS ItemCount FROM Entries WHERE (TIME_FORMAT(date,'%H') = '18')" Set rs = myConn.Execute(strSQL) strMellemrum = Graf(rs("ItemCount")) strHTML = strHTML & "kl. 18 | " & strMellemrum & "
" strSQL = "SELECT Count(*) AS ItemCount FROM Entries WHERE (TIME_FORMAT(date,'%H') = '19')" Set rs = myConn.Execute(strSQL) strMellemrum = Graf(rs("ItemCount")) strHTML = strHTML & "kl. 19 | " & strMellemrum & "
" strSQL = "SELECT Count(*) AS ItemCount FROM Entries WHERE (TIME_FORMAT(date,'%H') = '20')" Set rs = myConn.Execute(strSQL) strMellemrum = Graf(rs("ItemCount")) strHTML = strHTML & "kl. 20 | " & strMellemrum & "
" strSQL = "SELECT Count(*) AS ItemCount FROM Entries WHERE (TIME_FORMAT(date,'%H') = '21')" Set rs = myConn.Execute(strSQL) strMellemrum = Graf(rs("ItemCount")) strHTML = strHTML & "kl. 21 | " & strMellemrum & "
" strSQL = "SELECT Count(*) AS ItemCount FROM Entries WHERE (TIME_FORMAT(date,'%H') = '22')" Set rs = myConn.Execute(strSQL) strMellemrum = Graf(rs("ItemCount")) strHTML = strHTML & "kl. 22 | " & strMellemrum & "
" strSQL = "SELECT Count(*) AS ItemCount FROM Entries WHERE (TIME_FORMAT(date,'%H') = '23')" Set rs = myConn.Execute(strSQL) strMellemrum = Graf(rs("ItemCount")) strHTML = strHTML & "kl. 23 | " & strMellemrum & "
" myConn.Close Set myConn = Nothing %> <%=strHTML%>