<% 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 %> <% 'ligenu = now(%Y %m %d %H %i %S) If len(month(date)) = 1 Then strMonth = "0" & month(date) Else strMonth = month(date) End if If len(day(date)) = 1 Then strDay = "0" & day(date) Else strDay = day(date) End if If len(hour(time)) = 1 Then strHour = "0" & hour(time) Else strHour = hour(time) End if If len(minute(time)) = 1 Then strMinute = "0" & minute(time) Else strMinute = minute(time) End if If len(second(time)) = 1 Then strSecond = "0" & second(time) Else strSecond = second(time) End if ligenu = year(date) & strMonth & strDay & strHour & strMinute & strSecond idag = year(date) & strMonth & strDay' & "00" & "00" & "00" %> <% Set myConn = Server.CreateObject("ADODB.Connection") myConn.Open strDSN intMnd = Request("mnd") If IsNull(intMnd) OR (intMnd = "") Then intDays = day(date) intMnd = strMonth Else ' dage i hver måned 31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31 If intMnd = ("01" OR "03" OR "05" OR "07" or "08" OR "10" OR "12") Then intDays = 31 Elseif intMnd = ("04" OR "06" OR "09" OR "11") Then intDays = 30 Elseif intMnd = 02 Then intDays = 28 End if intDays = 31 ' ovenstående virker ikke helt.. idag = year(date) & intMnd & intDays' & "00" & "00" & "00" End if intYear = Request("year") If IsNull(intYear) OR (intYear = "") Then intYear = year(date) Else idag = intYear & intMnd & intDays' & "00" & "00" & "00" End if ' ' Vi sætter hvormange dage der skal tælles tilbage intDaysback = 1 ' Antal dage der skal tælles med intDaysback = (intDaysback * 1000000) intCount = 0 intStop = 0 Do While (intCount < 40) AND intStop = 0 intDaysbackNow = (idag - (intCount))' * 1000000)) strSQL = "SELECT Count(*) AS ItemCount FROM Entries WHERE (DATE_FORMAT(date,'%Y%m%d') = '" & intDaysbackNow & "')" Set rs = myConn.Execute(strSQL) If Not (rs.BOF Or rs.EOF) Then Do While Not rs.EOF intPosts = rs("ItemCount") intDate = idag ' Vi tegner en streggraf intGrafCount = 0 strColour = "#DDDDFF" If Len(intPosts) = 1 Then strStregGraf = "   " Elseif Len(intPosts) = 2 Then strStregGraf = "  " Elseif Len(intPosts) = 3 Then strStregGraf = " " end if Do While intGrafCount < intPosts strStregGraf = strStregGraf & "-" intGrafCount = intGrafCount + 1 Loop ' strDayName = WeekDayName(WeekDay(now())) strHTML = strHTML & intDaysbackNow & " - " & intPosts & " " & strStregGraf & "
" rs.MoveNext Loop End If intCount = intCount + 1 If intDays < (intCount + 1) Then intStop = 1 End if Loop myConn.Close Set myConn = Nothing ' Links til andre måneder og år strLinkMnd = "Januar, " strLinkMnd = strLinkMnd & "Februar, " strLinkMnd = strLinkMnd & "Marts, " strLinkMnd = strLinkMnd & "April, " strLinkMnd = strLinkMnd & "Maj, " strLinkMnd = strLinkMnd & "Juni, " strLinkMnd = strLinkMnd & "Juli, " strLinkMnd = strLinkMnd & "August, " strLinkMnd = strLinkMnd & "September, " strLinkMnd = strLinkMnd & "Oktober, " strLinkMnd = strLinkMnd & "November, " strLinkMnd = strLinkMnd & "December" strLinkYear = "2001, " strLinkYear = strLinkYear & "2002, " strLinkYear = strLinkYear & "2003, " strLinkYear = strLinkYear & "2004, " strLinkYear = strLinkYear & "2005, " strLinkYear = strLinkYear & "2006" %> <%=strHTML%>
<%=strLinkMnd%>
<%=strLinkYear%> - Nu