<%
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
%>
<%
' Vi ser hvor vi skal indsætte reklamer
intID = Request("id")
If IsNull(intID) OR (intID = "") Then
intID = "1"
End if
brugernu = Session("ID")
If brugernu > 0 Then
yeah = 1
Else
yeah = 0
End if
' Vi tjekker om brugeren har valgt kun at se en enkelt kategori
intKat = Request("kat")
If IsNull(intKat) OR (intKat = "") Then
Set myConn = Server.CreateObject("ADODB.Connection")
myConn.Open strDSN
strSQL = "SELECT * FROM kalender ORDER BY datostart ASC"
Set rs = myConn.Execute(strSQL)
Else
Set myConn = Server.CreateObject("ADODB.Connection")
myConn.Open strDSN
strSQL = "SELECT * FROM kalender WHERE (kategori = " & intKat & ") ORDER BY datostart ASC"
Set rs = myConn.Execute(strSQL)
End If
' Vi fortsætter med resten af scriptet
If Not (rs.BOF Or rs.EOF) Then
Do While Not rs.EOF
strSQL = "SELECT *, DATE_FORMAT(datostart,'%c/%e/%Y') AS FormDate, DATE_FORMAT(datostart,'%a') AS FormDay, DATE_FORMAT(datostart,'%Y') AS FormYear, DATE_FORMAT(datostart,'%b') AS FormMonth, DATE_FORMAT(datostart,'%e') AS FormDayNR, TIME_FORMAT(datostart,'%H:%i') AS FormTime FROM kalender WHERE (id =" & rs("id") & ")"
Set formatDate = myConn.Execute(strSQL)
dtmFormatDate = formatDate("FormDate")
dtmFormatTime = formatDate("FormTime")
dtmFormatDay = formatDate("FormDay")
dtmFormatMonth = formatDate("FormMonth")
dtmFormatYear = formatDate("FormYear")
dtmFormatDayNR = formatDate("FormDayNR")
' vi oversætter dagenes navne til dansk
If dtmFormatDay = "Mon" Then
dtmFormatDay = "Man"
Elseif dtmFormatDay = "Tue" Then
dtmFormatDay = "Tir"
Elseif dtmFormatDay = "Wed" Then
dtmFormatDay = "Ons"
Elseif dtmFormatDay = "Thu" Then
dtmFormatDay = "Tor"
Elseif dtmFormatDay = "Fri" Then
dtmFormatDay = "Fre"
Elseif dtmFormatDay = "Sat" Then
dtmFormatDay = "Lør"
Elseif dtmFormatDay = "Sun" Then
dtmFormatDay = "Søn"
End if
' Vi oversætter månedernes navne til dansk
If dtmFormatMonth = "May" Then
dtmFormatMonth = "Maj"
Elseif dtmFormatMonth = "Oct" Then
dtmFormatMonth = "Okt"
End if
' Hvis det ikke er i år skriver vi årets efter månedens navn
compareyear = DateDiff("yyyy", Date, dtmFormatDate)
If compareyear <> 0 Then
dtmFormatMonth = "" & dtmFormatMonth & " " & dtmFormatYear & ""
Else
End if
' Vi tjekker om datoen er for gammel
compare = DateDiff("D", Date, dtmFormatDate)
If compare < 0 Then
hmm = "gammel - "
hmm2 = ""
Elseif compare = 0 Then
hmm = ""
hmm2 = ""
Else
hmm = ""
hmm2 = ""
End if
' Vi skrive hvor mange dage der er til
If compare = 0 Then
compare = ""
Elseif compare = -1 Then
compare = compare*(-1)
compare = "(i går)"
Elseif compare = 1 Then
compare = "(i morgen)"
Elseif compare > 1 Then
compare = "(" & compare & " dage til)"
Else
compare = compare*(-1)
compare = "(" & compare & " dage siden)"
End if
' Vi sætter kategorier på
kategori = rs("kategori")
If kategori = 0 Then
kat = "Privat"
Elseif kategori = 1 Then
kat = "SPO"
Elseif kategori = 2 Then
kat = "Fest"
Elseif kategori = 3 Then
kat = "Musik"
Elseif kategori = 4 Then
kat = "Film"
Elseif kategori = 5 Then
kat = "Fodbold"
Elseif kategori = 6 Then
kat = "Motorsport"
Elseif kategori = 7 Then
kat = "Sport"
Elseif kategori = 8 Then
kat = "Andet"
Elseif kategori = 98 Then
kat = "Helligdaga"
Elseif kategori = 99 Then
kat = "16c"
End if
' Vi henter brugerens navn fra dben
var1 = rs("bruger")
strSQL2 = "SELECT username FROM spobruger WHERE brugerID = " & var1 & ""
set rs2 = myConn.Execute(strSQL2)
strbrugernavn = "(" & rs2("username") & ")"
strSQL = "SELECT Count(*) AS ItemCount FROM kalender Where (id = " & rs("id") & ")"
Set recordCount = myConn.Execute(strSQL)
'Function Shorten(sString, sLength)
' If Len (sString) > sLength Then
' Shorten = Left(sString,sLength) & "...."
' Else
' Shorten = sString
' End If
'End Function
'indholds=Shorten(rs("indhold"),150)
indholds=rs("indhold")
'If yeah = 1 Then
' strHTML = strHTML & "
" & hmm & "[edit] - " & dtmFormatDay & " d. " & dtmFormatDayNR & " " & dtmFormatMonth & " kl " & dtmFormatTime & " " & compare & " | " & kat & " - " & strbrugernavn & "
" & rs("overskrift") & "
" & indholds & "" & hmm2 & "
"
'Else strHTML = strHTML & "
" & dtmFormatDay & " d. " & dtmFormatDayNR & " " & dtmFormatMonth & " kl " & dtmFormatTime & " " & compare & " | " & kat & " - " & strbrugernavn & "
" & rs("overskrift") & "
" & indholds & "
"
'END IF
' Vi indsætter reklamer udfor den post brugeren har valgt at se
' If intID = rs("id") Then
' strHTML = strHTML & "1"
' strHTML = strHTML & ""
' strHTML = strHTML & ""
' strHTML = strHTML & "2"
' End if
' Vi viser kun brugerens egne personlige entries
IF kategori = 0 Then
IF Session("ID") = rs("bruger") Then
If yeah = 1 Then
strHTML = strHTML & "
" & hmm & "[edit] - " & dtmFormatDay & " d. " & dtmFormatDayNR & " " & dtmFormatMonth & " kl " & dtmFormatTime & " " & compare & " | " & kat & " - " & strbrugernavn & "
" & rs("overskrift") & "
" & indholds & "" & hmm2 & "
"
Else strHTML = strHTML & "
" & dtmFormatDay & " d. " & dtmFormatDayNR & " " & dtmFormatMonth & " kl " & dtmFormatTime & " " & compare & " | " & kat & " - " & strbrugernavn & "
" & rs("overskrift") & "
" & indholds & "
"
END IF
Else
strKal = strKal & ""
END IF
Else
If yeah = 1 Then
strHTML = strHTML & "
" & hmm & "[edit] - " & dtmFormatDay & " d. " & dtmFormatDayNR & " " & dtmFormatMonth & " kl " & dtmFormatTime & " " & compare & " | " & kat & " - " & strbrugernavn & "
" & rs("overskrift") & "
" & indholds & "" & hmm2 & "
"
Else strHTML = strHTML & "
" & dtmFormatDay & " d. " & dtmFormatDayNR & " " & dtmFormatMonth & " kl " & dtmFormatTime & " " & compare & " | " & kat & " - " & strbrugernavn & "
" & rs("overskrift") & "
" & indholds & "
"
END IF
END IF
rs.MoveNext
Loop
End If
myConn.Close
Set myConn = Nothing
If brugernu > 0 Then
strNY = "Vælg hvilke kalender kategorier du vil have vist på forsiden her.
Indtast en ny aftale
"
else Response.write ""
End IF
%>
SPO's kalendersystem
<%=strNY%>