Schädel eines Merinoschafes

Museum für Haustierkunde „Julius Kühn“

<%IF (Request.Form <> "") THEN Dim Filter Dim PageSize IF (Request.Form ("Page") = "nächste Seite") THEN Session ("Page")= Session ("Page") + 1 ELSE IF (Request.Form ("Page") = "vorherige Seite") THEN Session ("Page")= Session ("Page") - 1 ELSE Session ("Page")= 1 END IF END IF Set Ob_Conn = CreateObject ("ADODB.Connection") Set Ob_RS = CreateObject ("ADODB.RecordSet") Ob_Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=f:\inetpub\wwwroot\lfak\museum\magazin\HTM.mdb" Ob_RS.Open "SELECT gattung.gName AS Gattung, art.aName AS Art, unterart.uaName AS Unterart, tform.fName AS Form, gegenstand.ggName AS Rasse, gegenstand.ggReinzucht AS Reinzucht, gegenstand.ggKreuzung AS Kreuzung, gegenstand.ggXAlter AS [Alter], gegenstand.ggGeschl_m AS männlich, gegenstand.ggGeschl_w AS weiblich, gegenstand.ggGeschl_unb AS unbekannt, gegenstand.ggVollst AS Vollständigkeit, gegenstand.ggBemerkungen AS Bemerkung FROM unterart INNER JOIN (tform INNER JOIN (gattung INNER JOIN (art INNER JOIN gegenstand ON art.aNr = gegenstand.aNr) ON gattung.gNr = gegenstand.gNr) ON tform.fNr = gegenstand.fNr) ON unterart.uaNr = gegenstand.uaNr ORDER BY gegenstand.ggName", Ob_Conn, adOpenStatic, adCmdTable Setzen_AND= False Filter= "" FOR EACH Parameter IN Request.Form IF Request.Form (Parameter) <> "" AND Parameter <> "Page" THEN IF Setzen_AND THEN Filter= Filter & " AND " & Parameter & "='" Filter= Filter & Request.Form (Parameter) & "'" ELSE Filter= Filter & Parameter & "='" Filter= Filter & Request.Form (Parameter) & "'" Setzen_AND = True END IF END IF NEXT Filter= LCase (Filter) Ob_RS.Filter = Filter IF NOT Ob_RS.Eof THEN %> <% Ob_RS.PageSize = 9 Ob_RS.AbsolutePage = Session ("Page") %>

Ergebnis der Magazinrecherche

Seite <%= Session ("Page") %> von <%= Ob_RS.PageCount %>

<% Num_Felder= Ob_RS.Fields.Count FOR Feld=0 TO Num_Felder - 1 %> <% NEXT Datensatz=0 DO WHILE Datensatz < 9 AND NOT Ob_RS.Eof %> <% FOR Feld=0 TO Num_Felder -1 %> <% NEXT Datensatz= Datensatz + 1 Ob_RS.MoveNext LOOP %>
<%= Ob_RS (Feld).Name %>
 <%= Ob_RS(Feld) %>

<% FOR EACH Parameter IN Request.Form IF Request.Form (Parameter)<>"" AND Parameter <> "Page" THEN %> VALUE=<%=Request.Form (Parameter)%>> <% END IF NEXT IF Session ("Page") > 1 THEN %> <% END IF IF Session ("Page") < Ob_RS.PageCount THEN %> <% END IF %>
<% ELSE Response.Write "

Es ist kein entsprechender Eintrag vorhanden.


" END IF %> Neue Suche

<% Ob_RS.Close Ob_Conn.Close ELSE %>

Die Recherche

Der Magazinbestand des Museums für Haustierkunde „Julius Kühn“ als weltweit größte Haustierskelettsammlung steht jedem Interessierten zur Verfügung. An dieser Stelle können Sie sich über das vorhandene Skelettmaterial (Tierarten und diverse Rassen) informieren.

Gattung:
Art:
Form:
Rasse:


Parallel zu dieser Sammlung besteht eine weitere Skelettsammlung, eine archäozoologische Vergleichssammlung, die rund 1000 Skelette von 300 Arten, insbesondere der einheimischen Vogelwelt, umfasst.

<% END IF %>
 Institut für Agrar- und Ernährungswissenschaften | Professur für Tierzucht
©2008 Museum für Haustierkunde