<%@ Language=VBScript %> <% Application("conAC")= "Provider=Microsoft.Jet.OLEDB.4.0;" & _ "Data Source=" & "c:\server\root\www\domain\waltersdorf\db\veranstaltungen.mdb" & ";" & _ "Persist Security Info=False" Set con = Server.CreateObject("ADODB.Connection") con.Open Application("conAC") Set rs = Server.CreateObject("ADODB.Recordset") Set rva = Server.CreateObject("ADODB.Recordset") Set rbt = Server.CreateObject("ADODB.Recordset") rbt.Open "SELECT * FROM betreiber",con 'speichern des Stylesheets session("vorlage")=rbt("vorlage") %>>

<%=rbt("betreiber")%>

<% 'laden veranstaltungsarten rva.Open "SELECT * FROM veranstaltungsarten ORDER BY veranstaltungsart",con %> <% Response.Write " " Response.Write "" while not rva.EOF if rva("veranstaltungsart") <> "Sonstige" then %> <% end if rva.MoveNext wend rva.Close Set rva = Nothing Response.Write "" Response.Write "
Alle align=center>"><%=Server.HTMLEncode(rva("veranstaltungsart"))%>
" Response.Write "
 " 'laden veranstaltungen SELECT CASE Request.QueryString("ALLE") 'auch alte einträge CASE "1" rs.open "SELECT Veranstaltungen.*, veranstaltungsarten.hintergrundfarbe, veranstaltungsarten.textfarbe, Benutzer.Berechtigungsklasse, Benutzer.benutzer as bbenutzer FROM (veranstaltungen LEFT JOIN Benutzer ON Veranstaltungen.Benutzer = Benutzer.Benutzer) LEFT JOIN veranstaltungsarten ON veranstaltungen.veranstaltungsart = veranstaltungsarten.veranstaltungsart ORDER by veranstaltungen.datum",con case else if Request.QueryString("art") = "Alle" or Request.QueryString("art") = "" then 'alle veranstaltungsarten 'rs.open "SELECT Veranstaltungen.*, Benutzer.Berechtigungsklasse, Benutzer.benutzer as bbenutzer FROM Benutzer INNER JOIN Veranstaltungen ON Benutzer.Benutzer = Veranstaltungen.Benutzer WHERE (Veranstaltungen.Datum) > Now() - 1 order by veranstaltungen.datum",con rs.open "SELECT Veranstaltungen.*, veranstaltungsarten.hintergrundfarbe, veranstaltungsarten.textfarbe, Benutzer.Berechtigungsklasse, Benutzer.benutzer as bbenutzer FROM (veranstaltungen LEFT JOIN Benutzer ON Veranstaltungen.Benutzer = Benutzer.Benutzer) LEFT JOIN veranstaltungsarten ON veranstaltungen.veranstaltungsart = veranstaltungsarten.veranstaltungsart WHERE (Veranstaltungen.Datbis) > Now() - 1 order by veranstaltungen.datum",con else rs.open "SELECT Veranstaltungen.*, veranstaltungsarten.hintergrundfarbe, veranstaltungsarten.textfarbe, Benutzer.Berechtigungsklasse, Benutzer.benutzer as bbenutzer FROM (veranstaltungen LEFT JOIN Benutzer ON Veranstaltungen.Benutzer = Benutzer.Benutzer) LEFT JOIN veranstaltungsarten ON veranstaltungen.veranstaltungsart = veranstaltungsarten.veranstaltungsart WHERE (Veranstaltungen.Datbis) > Now() - 1 and (veranstaltungen.veranstaltungsart) =" & "'" & request.querystring("art") & "'" & " order by veranstaltungen.datum",con end if end select %> align=center width="80%" cellspacing=0> <% monalt = 0 tagalt = 0 while not rs.EOF ' Monatsüberschrift monneu = month(rs("Datum")) if monneu <> monalt then %> <% monalt = month(rs("Datum")) end if ' Strich bei neuem Tag tagneu = rs("Datum") if tagneu <> tagalt then %> <% tagalt = rs("Datum") end if %> > <% if rbt("datanz") = 1 then %> > <% if session("berechtigungsklasse") = 1 and rs("benutzer") = session("Benutzer") _ or session("berechtigungsklasse") = 2 then %> <% if session("berechtigungsklasse") = 1 and rs("benutzer") = session("Benutzer") then %> <% end if 'Response.Write session("berechtigungsklasse") if session("berechtigungsklasse") = 2 then %> <% end if %> > <% if session("berechtigungsklasse") = 2 then %> <% end if %> <% rs.MoveNext wend Response.write "
Datum Beschreibung Ort / Veranstalter
 
 
<%=monthname(month(rs("Datum"))) & " " & year(rs("Datum"))%>
> <%=weekdayname(weekday(rs("Datum")),1)& ". " & rs("Datum")%> <% if rs("datbis") <> rs("datum") then Response.Write "
- " & weekdayname(weekday(rs("Datbis")),1)& ". " & rs("Datbis") end if else %> 		> <%=weekdayname(weekday(rs("Datum")),1)& ". " & day(rs("Datum")) & "."%> <% if rs("datbis") <> rs("datum") then Response.Write "
- " & weekdayname(weekday(rs("Datbis")),1)& ". " & day(rs("Datbis")) & "." end if end if %> 		>> <%if ""=("" & rs("link")) then %> <%=Server.HTMLEncode(rs("Titel"))%> <%else%> " target="_blank"><%=Server.HTMLEncode(rs("Titel"))%> <%end if %> > <% else %> > <% end if %> <%=Server.HTMLEncode(rs("Ort"))%> >   ">löschen   &FC=OK">ändern >   ">löschen   &FC=OK">ändern
><%=rs("zeit")%>  > <%=Replace(Server.HTMLEncode(rs("Text")),vbCRLF,"
")%>    <%if ""=("" & rs("Zusatztext")) then else%> ">Info <%end if%> 		> <%=Replace(Server.HTMLEncode(rs("Veranstalter")),vbCRLF,"
")%> 		> <%=Replace(Server.HTMLEncode(rs("Benutzer")),vbCRLF,"
")%>
" rbt.Close set rbt=nothing rs.Close Set rs = Nothing con.Close Set con = Nothing %>