% Response.Buffer = True %>
<% SQLselect = " " %>
<% If Not (Request.Form("suchAG") = "Alle" ) then
SQLselect = " where AG = '" & Request.Form("suchAG") & "' "
end if
if Not (Request.Form("suchAZ") = "Aktenzeichen" ) then
if (Request.Form("suchAG") = "Alle" ) then
SQLselect = SQLselect & " where AZ like '%" & Request.Form("suchAZ") & "%' "
else
SQLselect = SQLselect & " and AZ like '%" & Request.Form("suchAZ") & "%' "
end if
end if
if Not (Request.Form("suchSW1") = "LEER" ) then
if (Request.Form("suchAG") = "Alle" AND Request.Form("suchAZ") = "Aktenzeichen" ) then
SQLselect = SQLselect & " where schlagwort = '" & Request.Form("suchSW1") & "' "
else
SQLselect = SQLselect & " and schlagwort = '" & Request.Form("suchSW1") & "' "
end if
end if
if Not (Request.Form("suchSW2") = "LEER" ) then
if (Request.Form("suchAG") = "Alle" ) and (Request.Form("suchSW1") = "LEER" ) then
SQLselect = SQLselect & " where schlagwort = '" & Request.Form("suchSW2") & "' "
end if
if (Request.Form("suchAG") = "Alle" ) and (Request.Form("suchSW1") <> "LEER" ) then
SQLselect = SQLselect & " or schlagwort = '" & Request.Form("suchSW2") & "' "
end if
if (Request.Form("suchAG") <> "Alle" ) and (Request.Form("suchSW1") = "LEER" ) then
SQLselect = SQLselect & " and schlagwort = '" & Request.Form("suchSW2") & "' "
end if
if (Request.Form("suchAG") <> "Alle" ) and (Request.Form("suchSW1") <> "LEER" ) then
SQLselect = SQLselect & " and schlagwort in ('" & Request.Form("suchSW1") & "','" & Request.Form("suchSW2") & "') "
end if
else
end if
If Trim(SQLselect) = "" then
SQLselect = " where AG = ' ' "
SQLstring = "LEER"
End IF
Set searchAG = Server.CreateObject("ADODB.Connection")
searchAG.Open "bsirwbdb"
urteileAG = "SELECT * FROM urteile " & SQLselect & " order by AG "
Set ListAG = searchAG.Execute(urteileAG) %>
Urteile
<% ZeigKopf "Urteile" %>
<% UrteilSelect %>
<% if isempty(Request.Form("sucher") ) then %>
<% else %>Suchbegriffe:
<% If SQLstring = "LEER" then %>Bitte grenzen Sie Ihre Auswahl ein.<% End If %>
<% If Not Request.Form("suchAG") = "Alle" Then %> AG: <%=Request.Form("suchAG")%> <%End If%>
<% If Not Request.Form("suchAZ") = "Aktenzeichen" Then %> AZ: <%=Request.Form("suchAZ")%> <%End If%>
<% If Not Request.Form("suchSW1") = "LEER" Or Not Request.Form("suchSW1") = "LEER" Then %>
Themenbereich:
»
<% If Not Request.Form("suchSW1") = "LEER" Then %> <%=Request.Form("suchSW1")%> <%End If%>
<% If Not Request.Form("suchSW2") = "LEER" Then %> <%=Request.Form("suchSW2")%> <%End If%>
«
<% End If %>
<% End If %>
<% if isempty (Request.Form("sucher") ) then %>
Diese Seite soll Sie in Zukunft bei Ihrer täglichen Arbeit und Recherche unterstützen.
Deshelb erweitern wir diese Seite täglich um neue Urteile aus der aktuellen Rechtsprechung.
Sollten Sie Informationen vermissen oder Anmerkungen zu dieser Seite haben,
so finden Sie untenstehend eine Kontaktmöglichkeit.
Hinweise und Zusendungen weiterer Musterurteile oder Aktenzeichen stellen
wir an dieser Stelle gerne der Gruppe der Sachverständigen zur Verfügung.
Ihre Redaktion der sachverstaendige24.com
<% Else
urteile = "SELECT * FROM urteile " & SQLselect & " order by AG "
Set ListUrteile = searchAG.Execute(urteile)
Do While Not ListUrteile.EOF %>
<% ListUrteile.MoveNext
Loop %>
<% If SQLstring = "LEER" then %>
Da unsere Datenbank sehr umfangreich ist, grenzen Sie bitte Ihre Auswahl ein.
<% End If %>
<% end if %>
Dies ist keine Rechtsberatung.
Unser Rubrik § Urteile « dient lediglich der Information und spiegelt den derzeitigen Stand der deutschen Rechtssprechung wider.
Wir weisen ausdrücklich darauf hin das wir keine beratenden Auskünfte oder Beratung geben dürfen.
Für juristische Fragen in Einzelfall kontaktieren Sie bitte einen zugelassenen Rechtsanwalt Ihrer Wahl.
Ein Gewähr für die Richtigkeit oder Vollständigkeit der Angaben wird nicht übernommen.