<% 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

help
<% 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("AG")%>    <%= ListUrteile("AZ")%>    <%= ListUrteile("schlagwort")%>   ','<%= ListUrteile("AZ")%>')" onFocus="blur()" onMouseOver="window.status=' ';return true;" onMouseOut="window.status=' ';return true;">Details  

<%= ListUrteile("urteil_kurz")%>

<% 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.



 
 
<% BSI_COPYRIGHT(Request.ServerVariables("script_Name")) %> <% BSI_MODIFIED(Request.ServerVariables("script_Name")) %>
<% CROSSLINK() %> <% searchAG.close ' searchUrteile.close Set searchAG=Nothing Set searchUrteile=Nothing %>