<% DIM mySQL, str_Art, str_Year, str_Namn, str_Plats, str_sok1, str_sok2, str_sok3, str_urval, Date_Start, Date_Stop, mySQL2,strUrval2 DIM str_fotoparameters, strFotoDate, strArtTemp DIM counter strArtTemp = "START" %> Småländskas 10-bästa lista

Statistik för använda metoder

<% counter = 1 Do while counter < 19 Select Case (counter) Case 1: strArtTemp = "Abborre" Case 2: strArtTemp = "Björkna" Case 3: strArtTemp = "Braxen" Case 4: strArtTemp = "Färna" Case 5: strArtTemp = "Gädda" Case 6: strArtTemp = "Gös" Case 7: strArtTemp = "Id" Case 8: strArtTemp = "Karp" Case 9: strArtTemp = "Lake" Case 10: strArtTemp = "Lax" Case 11: strArtTemp = "Mört" Case 12: strArtTemp = "Ruda" Case 13: strArtTemp = "Röding" Case 14: strArtTemp = "Sarv" Case 15: strArtTemp = "Sik" Case 16: strArtTemp = "Sutare" Case 17: strArtTemp = "Ål" Case 18: strArtTemp = "Öring" End Select counter = counter +1 'loop mySQL = "SELECT t1.Art, t1.Vikt, t1.Metod, t1.Bete, t1.Plats, t1.Kommun, t1.Namn, t1.Datum, t1.Poang, t2.Foto FROM fisk AS t1 LEFT JOIN foto AS t2 ON t1.Nr=t2.Nr where t1.art='" & strArtTemp & "' order by t1.vikt desc limit 10" mySQL = "SELECT Art, Datum, Metod, Count(Art), Min(Vikt), Max(Vikt), Avg(Vikt) FROM fisk where art ='" & strArtTemp & "' AND poang > 0 GROUP BY Metod;" 'DATEPART(week, OrderDate) DIM objRS Set objRS = Server.CreateObject("ADODB.Recordset") objRS.Open mySQL, objConn Response.Write "

" Response.Write objRS("Art") Response.Write "

" 'strArtTemp = objRS("Art") %> <% mySQL2 = "SELECT Art, Datum, Metod, Count(Art), Min(Vikt), Max(Vikt), Avg(Vikt) FROM fisk where art ='" & strArtTemp & "' AND poang > 0 GROUP BY Art;" DIM objRS2 Set objRS2 = Server.CreateObject("ADODB.Recordset") objRS2.Open mySQL2, objConn DO WHILE NOT objRS2.EOF strTotaltMinVikt = objRS2("Min(Vikt)") strTotaltMaxVikt = objRS2("Max(Vikt)") strTotaltAvgVikt = objRS2("Avg(Vikt)") strTotaltAntal = objRS2("Count(Art)") %> <% objRS2.MoveNext Loop %> <% DO WHILE NOT objRS.EOF %> <% 'If strArtTemp <> objRS("Art") then 'If strArtTemp <> "START" then ' Response.Write "
Metod Andel Min-Max-Medel/mån (%)
<% Response.Write "Totalt" %>    <% strTempMinVikt = Round((objRS2("Min(Vikt)") / strTotaltMaxVikt)*50) strTempMaxVikt = Round((objRS2("Max(Vikt)") / strTotaltMaxVikt)*50) strTempAvgVikt = Round((objRS2("Avg(Vikt)") / strTotaltMaxVikt)*50) 'Response.Write strTempMinVikt & " " & strTempAvgVikt & " " & strTempMaxVikt 'counter2 = 0 for counter2 = 0 to 50 If counter2 = strTempMinVikt then Response.Write "|" ELSEIf counter2 = strTempAvgVikt then Response.Write "*" ELSEIf counter2 = strTempMaxVikt then Response.Write "|" ELSE Response.Write "." end if 'counter2 = counter2 + 1 next %>
" 'end if 'end if %> <% strTempMinVikt = Round((objRS("Min(Vikt)") / strTotaltMaxVikt)*50) strTempMaxVikt = Round((objRS("Max(Vikt)") / strTotaltMaxVikt)*50) strTempAvgVikt = Round((objRS("Avg(Vikt)") / strTotaltMaxVikt)*50) strTempAntal = Round(((objRS("Count(Art)") / strTotaltAntal)+0.02)*50) %> <% Response.Write objRS("Metod") %>  <% 'Response.Write strTempAntal for counter2 = 1 to 50 If counter2 > strTempAntal then Response.Write "" ELSE Response.Write "=" end if next %> <% 'Response.Write strTempMinVikt & " " & strTempAvgVikt & " " & strTempMaxVikt 'counter2 = 0 for counter2 = 0 to 50 If counter2 = strTempMinVikt then Response.Write "|" ELSEIf counter2 = strTempAvgVikt then Response.Write "*" ELSEIf counter2 = strTempMaxVikt then Response.Write "|" ELSE Response.Write " " end if next %> <% objRS.MoveNext Loop %> <% 'mySQL2 = "SELECT Art, Count(Art), Avg(Vikt) FROM fisk where art ='" & strArtTemp & "' AND poang > 0 GROUP BY Art;" 'DIM objRS2 'Set objRS2 = Server.CreateObject("ADODB.Recordset") 'objRS2.Open mySQL2, objConn 'DO WHILE NOT objRS2.EOF 'Response.Write "Totalt " 'Response.Write objRS2("Count(Art)") & " poänggivande " 'Response.Write objRS2("Art") & " med medelvikten " 'Response.Write objRS2("Avg(Vikt)") & " gr.
" 'objRS2.MoveNext 'Loop 'objRS2.Close objRS.Close 'Set objRS = Nothing 'objConn.Close 'Set objConn = Nothing loop 'Set objRS2 = Nothing Set objRS = Nothing objConn.Close Set objConn = Nothing 'end if %>
<% %>
<% ' Don't forget to close your connection after you display your data. 'objRS.Close 'Set objRS = Nothing 'objConn.Close 'Set objConn = Nothing %>