<% ' Sektion 1 - Sätt upp förbindelsen med databasen Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open strConnString StrSQL1="select * from info" Set objRS = Conn.Execute(StrSQL1) header=objRS("title") del=objRS("namn") objRS.close set objRS=nothing %> <%=header%> <% response.write "" response.write "
" StrSQL1="SELECT distinct artkod FROM obsar " Set objRS1 = Conn.Execute(StrSQL1) 'artantal = 0 if not objRS1.eof then artantal=ubound(objRS1.getrows,2)+1 response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" pos=0 ' Liten räknare för att få fram ställning snurr=0 ' Liten räknare för att få fram hur många som har samma ställning kryss=0 'Den aktuella postens antal kryss 'StrSQL2="SELECT Deltagare.rappkod, Deltagare.fornamn, Deltagare.efternamn, Deltagare.ort, Deltagare.tipset, lista.antalx, Artlista.artnamn, lista.datum FROM Artlista INNER JOIN (Deltagare INNER JOIN lista ON Deltagare.rappkod = lista.rappkod) ON Artlista.artkod = lista.artkod ORDER BY lista.antalx DESC, lista.datum ASC, efternamn ASC" 'SBBS ändring StrSQL2 = "SELECT D.rappkod, D.fornamn, D.efternamn, D.ort, D.tipset, L.antalx, A.artnamn, L.datum FROM Artlista A, Deltagare D, Lista L WHERE D.rappkod = L.rappkod AND A.artkod = L.artkod ORDER BY L.antalx DESC, L.datum ASC, D.efternamn ASC" Set objRS2 = Conn.Execute(StrSQL2) pos=0 ' Liten räknare för att få fram ställning snurr=0 ' Liten räknare för att få fram hur många som har samma ställning kryss=0 'Den aktuella postens antal kryss summaarter=0 do while not objRS2.EOF antal=antal+1 if kryss=objRS2("antalX") then pos=pos snurr=snurr+1 else pos=pos+1+snurr snurr=0 kryss=objRS2("antalX") end if response.write "" if artantal=objRS2("tipset") then response.write "" else if artantal>objRS2("tipset") then response.write "" else response.write "" end if end if response.write "" if date()=objRS2("datum") or date()-1=objRS2("datum") then response.write " <% summaarter=summaarter+objRS2("antalx") objRS2.movenext loop response.write "
#
Namn
Tipset
Antal
Senaste art
Datum
Luckor
" & pos &"." & objRS2("fornamn") &" " & objRS2("efternamn") &", " & objRS2("ort") & "" & objRS2("tipset") &"####" & objRS2("tipset") &"" & objRS2("antalx") &"" & objRS2("artnamn") &"" & objRS2("datum") & "" else response.write "" & objRS2("datum") & "" end if %> " target="luckor" onclick="w=window.open('', 'luckor', 'width=240,height=440,toolbar=0,location=0,directories=0,status=0,menubar=0,resizable=1,scrollbars=1');">Visa
" ' response.write "Antal rapporterade arter:" & artantal & " (Denna länk kan ta lite tid.)
" response.write "Antal rapporterade arter:" & artantal & "
" response.write "Genomsnittligt inrapporterade arter per deltagare: " & formatnumber(summaarter/antal,1) & "." objRS2.close: set objRS2=nothing else response.write "Inga rapporter än så länge." end if response.write "
" objRS1.close: set objRS1=nothing Conn.close: set Conn=nothing %>