<%@ Language=VBScript %> <% Application("conRooms")= "Provider=Microsoft.Jet.OLEDB.4.0;" & _ "Data Source=" & "c:\server\root\www\domain\waltersdorf\db\rooms.mdb" & ";" & _ "Persist Security Info=False" Set con = Server.CreateObject("ADODB.Connection") con.Open Application("conRooms") 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") %>"> <% 'Abfrage ob Anzeige für Zimmer oder Essen if Request.QueryString("zut")="R" then session("ZUT")="R" betreiber1="Übernächtigungsangebote von " end if if Request.QueryString("zut")="E" then session("ZUT")="E" betreiber1="Kulinarische Schmankerl von " end if %>

<%=betreiber1%> <%=rbt("betreiber")%>

<% if session("loginokrooms") = true then%> <% end if 'laden veranstaltungsarten rva.Open "SELECT * FROM veranstaltungsarten ORDER BY veranstaltungsart",con %>
Login
<% zahl = 1 'Alle zählt auch mit while not rva.EOF if rva("veranstaltungsart") <> "Sonstige" and rva("zuteilung")=session("zut") and rva("veranstaltungsart") <> "Sonstiges" and rva("zuteilung")=session("zut") then zahl = zahl + 1 %> <% 'neue Zeile if zahl = 3 or zahl = 6 or zahl = 9 or zahl = 12 or zahl = 15 then %> <% end if end if rva.MoveNext wend rva.Close Set rva = Nothing Response.Write "" Response.Write "
  Alle   " style="text-decoration:none"><%=Server.HTMLEncode(rva("veranstaltungsart"))%>  
" Response.Write "
 " %>
<% if session("zut") = "R" then Response.Write " >>> Hier kommen Sie zu unseren Speiseangeboten" else Response.Write " >>> Hier kommen Sie zu unseren Zimmerangeboten" end if %>
 
<% 'laden veranstaltungen SELECT CASE Request.QueryString("ALLE") 'auch alte einträge CASE "1" rs.open "SELECT Veranstaltungen.*, veranstaltungsarten.hintergrundfarbe, veranstaltungsarten.textfarbe, veranstaltungsarten.zuteilung, Benutzer.berechtigungsklasse, Benutzer.bnname, Benutzer.bnadr, Benutzer.bnlink, benutzer.bnmail, 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.datbis, benutzer.benutzer",con case else if Request.QueryString("art") = "Alle" or Request.QueryString("art") = "" then 'alle veranstaltungsarten 'rs.open "SELECT Veranstaltungen.*, Benutzer.berechtigungsklrooms, 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, veranstaltungsarten.zuteilung, Benutzer.berechtigungsklasse, Benutzer.bnname, Benutzer.bnadr, Benutzer.bnlink, benutzer.bnmail, 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.datbis, benutzer.benutzer",con else rs.open "SELECT Veranstaltungen.*, veranstaltungsarten.hintergrundfarbe, veranstaltungsarten.textfarbe, veranstaltungsarten.zuteilung, Benutzer.berechtigungsklasse, Benutzer.bnname, Benutzer.bnadr, Benutzer.bnlink, benutzer.bnmail, 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.datbis, benutzer.benutzer",con end if end select while not rs.EOF if rs("zuteilung") = session("zut") then %>
" align="center" width="550" cellspacing="0" cellpadding="5"> <% if rbt("datanz") = 1 then %> <%if session("zut") = "R" then %> <%else%> <%end if%> "> <% if session("berechtigungsklrooms") = 1 and rs("benutzer") = session("Benutzer") then %> <% end if 'Response.Write session("berechtigungsklrooms") if session("berechtigungsklrooms") = 2 then %> <% end if %> <% if session("berechtigungsklrooms") = 2 then %> <% end if %>
"> <%if session("zut") = "R" then %> <%else%> <%end if%> <%if ""=("" & rs("bnlink")) then %> <%=Replace(Server.HTMLEncode(rs("bnname")),vbCRLF,"
")%> <%else%>     " target="_blank"><%=Replace(Server.HTMLEncode(rs("bnname")),vbCRLF,"
")%> <%end if%> 		"> ">
"> <%=Replace(Server.HTMLEncode(rs("bnadr")),vbCRLF,"
")%>
"> <%= "Aktion von " & rs("Datum")%> <% if rs("datbis") <> rs("datum") then Response.Write "
bis " & 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("Zusatztext")) then%> <%=Server.HTMLEncode(rs("Titel"))%> <%else%> "><%=Server.HTMLEncode(rs("Titel"))%> <%end if %>
">Nächtigungen: <%=rs("zeit")%>  "> <%=Replace(Server.HTMLEncode(rs("Text")),vbCRLF,"
")%>   
">   &FC=OK">ändern ">   ">löschen   &FC=OK">ändern "> <%=Replace(Server.HTMLEncode(rs("Benutzer")),vbCRLF,"
")%>
 
<% end if rs.MoveNext wend rbt.Close set rbt=nothing rs.Close Set rs = Nothing con.Close Set con = Nothing %>