<%Option explicit Dim varKlass, intCounter, intcount, con, strSQL, rs, Final, varMdb, aldre, submit, i, strGrupp If Request.Form <> "" Then If Request.Form("aldre")="Titta" Then varMdb = "kc2013" varKlass = Request.Form("Klass1") Else varMdb = "kc2013" varKlass = Request.Form("Klass2") End If Select Case varKlass Case "F00" intCounter = 6 Case "P00","F01" intCounter = 5 Case "P99","P01","F99","F02" intCounter = 4 Case "P02","F98" intCounter = 3 Case "P98","F96/97" intCounter = 2 Case "P96/97" intCounter = 1 End Select intCount = 1 %>


">

<% Set con = Server.CreateObject("ADODB.Connection") con.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("../../data/kc2013/"&varMdb&".mdb") con.open i = 65 Do until intCount > intCounter strGrupp = Chr(i) Response.Write "
" &vbCrLf strSQL = "SELECT Lag, Spelade, Vinst, Oav, Forl, Gjorda, Inslapp, Poang, Gjorda - Inslapp as Skillnad FROM SERIE WHERE Grupp = '"&strgrupp&"' AND Klass = '" & varKlass & "' ORDER BY mansort, Poang DESC, (Gjorda - Inslapp) DESC, Gjorda DESC" 'Response.write strSQL Set rs = con.Execute(strSQL) Response.Write " " & varKlass & " Grupp "&strgrupp&"" &vbCrLf Response.Write "" & vbCrLf Response.Write "" & vbCrLf Response.Write "
" & vbCrLf Response.Write "" & vbCrLf Response.Write "" & vbCrLf Response.Write "" & vbCrLf Response.Write "" & vbCrLf Response.Write "" & vbCrLf Response.Write "" & vbCrLf Response.Write "" & vbCrLf Response.Write "" & vbCrLf Response.Write "" & vbCrLf Response.Write "" & vbCrLf Response.Write "" & vbCrLf Do Until rs.EOF Response.Write "" & vbCrLf Response.Write "" & vbCrLf Response.Write "" & vbCrLf Response.Write "" & vbCrLf Response.Write "" & vbCrLf Response.Write "" & vbCrLf Response.Write "" & vbCrLf Response.Write "" & vbCrLf Response.Write "" & vbCrLf Response.Write "" & vbCrLf Response.Write "" & vbCrLf rs.MoveNext Loop Response.Write "
" & " Lag
" & "S
" & "V
" & "O
" & "F
" & "G
" & "I
" & "+/-
" & "P
" & " " & rs("Lag") & "
" & "" & rs("Spelade") & "
" & "" & rs("Vinst") & "
" & "" & rs("Oav") & "
" & "" & rs("Forl") & "
" & "" & rs("Gjorda") & "
" & "" & rs("Inslapp") & "
" & "" & rs("Skillnad") & "
" & "" & rs("Poang") & "
" & vbCrLf Response.Write "
" &vbCrLf Response.Write "
" &vbCrLf Set rs = Nothing ' Tabell för kommande matcher strSQL = "SELECT * FROM Matcher WHERE Grupp = '"&strgrupp&"' AND Klass = '" & varKlass & "' ORDER BY Datum,Klocka;" 'Response.Write strSQL Set rs = con.Execute(strSQL) Response.Write "" & vbCrLf Response.Write "" & vbCrLf Response.Write "" & vbCrLf Response.Write "" & vbCrLf Response.Write "" & vbCrLf Response.Write "" & vbCrLf Response.Write "" & vbCrLf Response.Write "" & vbCrLf Response.Write "" & vbCrLf Response.Write "" & vbCrLf Response.Write "" & vbCrLf Do Until rs.EOF Response.Write "" & vbCrLf Response.Write "" & vbCrLf Response.Write "" & vbCrLf Response.Write "" & vbCrLf Response.Write "" & vbCrLf Response.Write "" & vbCrLf Response.Write "" & vbCrLf Response.Write "" & vbCrLf Response.Write "" & vbCrLf Response.Write "" & vbCrLf rs.MoveNext Loop Response.Write "
" & " " & "Dag" & "" & " " & "" & " " & "Tid" & "" & "" & "Hall" & "" & "" & "Matchnr" & "" & "" & "Hemmalag" & "" & "" & "Bortalag" & "" & "" & "Resultat" & "
" & " " & rs("Dag") & " " & rs("Datum") & "" & "" & "" & "" & rs("Klocka") & "" & " " & rs("Hall") & "" & " " & rs("Matchnr") & "" & "" & rs("Hemmalag") & "" & "" & rs("Bortalag") & "" & "" & rs("Resultathemma") & "-" & rs("Resultatborta") &"
" & vbCrLf Response.Write "
" &vbCrLf Set rs = Nothing intCount = intCount --1 i = i --1 Response.Write "


" &vbCrLf Loop ' Tabell för A-sluspelet ' Response.Write "
" &vbCrLf strSQL = "SELECT * FROM Matcher WHERE Grupp = 'SS' AND Klass = '" & varKlass & "' AND Final like 'A%' ORDER BY Matchnr;" Set rs = con.execute(strSQL) Response.Write " " & varKlass & " A-Slutspel" &vbCrLf Response.Write "" & vbCrLf Response.Write "" & vbCrLf Response.Write "" & vbCrLf Response.Write "" & vbCrLf Response.Write "" & vbCrLf Response.Write "" & vbCrLf Response.Write "" & vbCrLf Response.Write "" & vbCrLf Response.Write "" & vbCrLf Response.Write "" & vbCrLf Response.Write "" & vbCrLf Response.Write "" & vbCrLf Do Until rs.EOF final = rs("Final") Response.Write "" & vbCrLf Response.Write "" & vbCrLf Response.Write "" & vbCrLf Response.Write "" & vbCrLf Response.Write "" & vbCrLf Response.Write "" & vbCrLf Response.Write "" & vbCrLf Response.Write "" & vbCrLf Response.Write "" & vbCrLf Response.Write "" & vbCrLf Response.Write "" & vbCrLf rs.MoveNext Loop Response.Write "
" & " " & "Dag" & "" & " " & "" & " " & "Tid" & "" & "" & "Hall" & "" & "" & "Matchnr" & "" & "" & "Final" & "" & "" & "Hemma" & "" & "" & "Borta" & "" & "" & "Resultat" & "
" & " " & rs("Dag") & " " & rs("Datum") & "" & " " & "" & "" & rs("Klocka") & "" & " " & rs("Hall") & "" & "  " & rs("Matchnr") & "" & "" & right(final,len(final)-1) & "" & "" & rs("Hemmalag") & "" & "" & rs("Bortalag") & "" & "" & rs("Resultathemma") & "-" & rs("Resultatborta") &"
" & vbCrLf Response.Write "
" &vbCrLf Response.Write "
" &vbCrLf Set rs = Nothing ' Tabell för B-sluspelet strSQL = "SELECT * FROM Matcher WHERE Grupp = 'SS' AND Klass = '" & varKlass & "' AND Final like 'B%' ORDER BY Matchnr;" Set rs = con.execute(strSQL) Response.Write " " & varKlass & " B-Slutspel" &vbCrLf Response.Write "" & vbCrLf Response.Write "" & vbCrLf Response.Write "" & vbCrLf Response.Write "" & vbCrLf Response.Write "" & vbCrLf Response.Write "" & vbCrLf Response.Write "" & vbCrLf Response.Write "" & vbCrLf Response.Write "" & vbCrLf Response.Write "" & vbCrLf Response.Write "" & vbCrLf Response.Write "" & vbCrLf Do Until rs.EOF final = rs("Final") Response.Write "" & vbCrLf Response.Write "" & vbCrLf Response.Write "" & vbCrLf Response.Write "" & vbCrLf Response.Write "" & vbCrLf Response.Write "" & vbCrLf Response.Write "" & vbCrLf Response.Write "" & vbCrLf Response.Write "" & vbCrLf Response.Write "" & vbCrLf Response.Write "" & vbCrLf rs.MoveNext Loop Response.Write "
" & " " & "Dag" & "" & " " & "" & " " & "Tid" & "" & "" & "Hall" & "" & "" & "Matchnr" & "" & "" & "Final" & "" & "" & "Hemma" & "" & "" & "Borta" & "" & "" & "Resultat" & "
" & " " & rs("Dag") & " " & rs("Datum") & "" & " " & "" & "" & rs("Klocka") & "" & " " & rs("Hall") & "" & "  " & rs("Matchnr") & "" & "" & right(final,len(final)-1) & "" & "" & rs("Hemmalag") & "" & "" & rs("Bortalag") & "" & "" & rs("Resultathemma") & "-" & rs("Resultatborta") &"
" & vbCrLf Response.Write "
" &vbCrLf Response.Write "
" &vbCrLf %> <% Else %>


">

<% End If %>