<%
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 / 25)
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 & ""
Elseif Len(intItemCount) = 4 Then
Graf = intItemCount & " " & strGrafFont & "" & strStregGraf & ""
Elseif Len(intItemCount) = 5 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 (DATE_FORMAT(date,'%w') = '1')"
Set rs = myConn.Execute(strSQL)
strMellemrum = Graf(rs("ItemCount"))
strHTML = strHTML & "Mandag | " & strMellemrum & "
"
strSQL = "SELECT Count(*) AS ItemCount FROM Entries WHERE (DATE_FORMAT(date,'%w') = '2')"
Set rs = myConn.Execute(strSQL)
strMellemrum = Graf(rs("ItemCount"))
strHTML = strHTML & "Tirsdag | " & strMellemrum & "
"
strSQL = "SELECT Count(*) AS ItemCount FROM Entries WHERE (DATE_FORMAT(date,'%w') = '3')"
Set rs = myConn.Execute(strSQL)
strMellemrum = Graf(rs("ItemCount"))
strHTML = strHTML & "Onsdag | " & strMellemrum & "
"
strSQL = "SELECT Count(*) AS ItemCount FROM Entries WHERE (DATE_FORMAT(date,'%w') = '4')"
Set rs = myConn.Execute(strSQL)
strMellemrum = Graf(rs("ItemCount"))
strHTML = strHTML & "Torsdag | " & strMellemrum & "
"
strSQL = "SELECT Count(*) AS ItemCount FROM Entries WHERE (DATE_FORMAT(date,'%w') = '5')"
Set rs = myConn.Execute(strSQL)
strMellemrum = Graf(rs("ItemCount"))
strHTML = strHTML & "Fredag | " & strMellemrum & "
"
strSQL = "SELECT Count(*) AS ItemCount FROM Entries WHERE (DATE_FORMAT(date,'%w') = '6')"
Set rs = myConn.Execute(strSQL)
strMellemrum = Graf(rs("ItemCount"))
strHTML = strHTML & "Lørdag | " & strMellemrum & "
"
strSQL = "SELECT Count(*) AS ItemCount FROM Entries WHERE (DATE_FORMAT(date,'%w') = '0')"
Set rs = myConn.Execute(strSQL)
strMellemrum = Graf(rs("ItemCount"))
strHTML = strHTML & "Søndag | " & strMellemrum & "
"
myConn.Close
Set myConn = Nothing
%>
<%=strHTML%>