<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% Set Connect = Server.CreateObject("ADODB.Connection") Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=\\172.21.204.201\webvol2\2x\nyocwqiishcy5tr\cri-sweden.com\hb.mdb" Set RecSet = Server.CreateObject("ADODB.Recordset") Set RecSet2 = Server.CreateObject("ADODB.Recordset") Set RecSet3 = Server.CreateObject("ADODB.Recordset") Set RecSet4 = Server.CreateObject("ADODB.Recordset") Set RecSet5 = Server.CreateObject("ADODB.Recordset") Set Recordset1 = Server.CreateObject("ADODB.Recordset") %> Utskrivningsbar lista

<% Visa = "SELECT * FROM tjurar ORDER BY Ordnnr ,tpi desc " Recordset1.Open Visa, Connect, adOpenStatic, adLockOptimistic land = "" Do Until Recordset1.EOF land1 = Recordset1("land") %> <% Recordset1.MoveNext Loop Recordset1.Close '==================================================================================================%> <% Visa = "SELECT * FROM tjurar ORDER BY land desc,tpi desc " Recordset1.Open Visa, Connect, adOpenStatic, adLockOptimistic land = "" Do Until Recordset1.EOF land1 = Recordset1("land") IF Recordset1("reslighetfram") = "." THEN IF Recordset1("land") = "England" THEN IF land <> land1 THEN %> <% END IF %> <% land = land1 END IF END IF Recordset1.MoveNext Loop Recordset1.Close %> <% '==================================================================================================== %>

Namn Far Morfar Stbnr Kodnr Pris Bedömning Mj�lk Protein% Fett% Säkerhet% Celltal Mjölkbarhet TYP JUVER BEN Säkerhet% Storlek Styrka Kroppsdjup Mjölkpräglad Korsluttning Korsbredd Benvinkel Ben Bakifrån Kotvinkel Framjuver B-juverhöjd B-juverbredd Juverligamen Juverdjup Spenplac.fram Spenplac. bak Spenlängd   Kalvning F(MF) Dödf.F,MF Tjurens fertil. Dotter fertil. Överl.tal TPI/PTI Livstids NM Pris

<%=(Recordset1.Fields.Item("land").Value)%>  " target="_blank"><%=(Recordset1.Fields.Item("namn").Value)%>  <%=(Recordset1.Fields.Item("far").Value)%>  <%=(Recordset1.Fields.Item("morfar").Value)%>  <%=(Recordset1.Fields.Item("stbnr").Value)%>  <%=(Recordset1.Fields.Item("kodnr").Value)%>  <%=(Recordset1.Fields.Item("pris").Value)%>  <%=(Recordset1.Fields.Item("bedomning").Value)%>  <%=(Recordset1.Fields.Item("mjolk").Value)%>  <%=(Recordset1.Fields.Item("proteinprocent").Value)%>  <%=(Recordset1.Fields.Item("fettprocent").Value)%>  <%=(Recordset1.Fields.Item("sakerhet").Value)%>  <%=(Recordset1.Fields.Item("Celltal").Value)%>  <%=(Recordset1.Fields.Item("Mjolkbarhet").Value)%>  <%=(Recordset1.Fields.Item("typ").Value)%>  <%=(Recordset1.Fields.Item("juver").Value)%>  <%=(Recordset1.Fields.Item("ben").Value)%> <%=(Recordset1.Fields.Item("sakerhet2").Value)%>   <%=(Recordset1.Fields.Item("storlek").Value)%>  <%=(Recordset1.Fields.Item("styrka").Value)%>  <%=(Recordset1.Fields.Item("kroppsdjup").Value)%>  <%=(Recordset1.Fields.Item("mjolkpraglad").Value)%>  <%=(Recordset1.Fields.Item("korsluttning").Value)%>  <%=(Recordset1.Fields.Item("korsbredd").Value)%>  <%=(Recordset1.Fields.Item("benvinkel").Value)%>  <%=(Recordset1.Fields.Item("benbakifran").Value)%>  <%=(Recordset1.Fields.Item("kotvinkel").Value)%>  <%=(Recordset1.Fields.Item("framjuver").Value)%>  <%=(Recordset1.Fields.Item("bjuverhojd").Value)%>  <%=(Recordset1.Fields.Item("bjuverbredd").Value)%>  <%=(Recordset1.Fields.Item("juverligamen").Value)%>  <%=(Recordset1.Fields.Item("juverdjup").Value)%>  <%=(Recordset1.Fields.Item("spenplacering").Value)%>  <%=(Recordset1.Fields.Item("spenplaceringbk").Value)%> <%=(Recordset1.Fields.Item("spenlangd").Value)%>  <%=(Recordset1.Fields.Item("KalvnFMF").Value)%>  <%=(Recordset1.Fields.Item("DodfFMF").Value)%>  <%=(Recordset1.Fields.Item("Tjurensfertil").Value)%> <%=(Recordset1.Fields.Item("Dotterfertil").Value)%> <%=(Recordset1.Fields.Item("Overltal").Value)%> <%=(Recordset1.Fields.Item("tpi").Value)%>  <%=(Recordset1.Fields.Item("Bedomning2").Value)%> <%=(Recordset1.Fields.Item("pris").Value)%>

<% Connect.Close %>