%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 %>
" & " Lag | " & vbCrLf Response.Write "" & "S | " & vbCrLf
Response.Write "" & "V | " & vbCrLf
Response.Write "" & "O | " & vbCrLf
Response.Write "" & "F | " & vbCrLf
Response.Write "" & "G | " & vbCrLf
Response.Write "" & "I | " & vbCrLf
Response.Write "" & "+/- | " & vbCrLf
Response.Write "" & "P | " & vbCrLf
Response.Write "
" & " " & rs("Lag") & " | " & vbCrLf Response.Write "" & "" & rs("Spelade") & " | " & vbCrLf
Response.Write "" & "" & rs("Vinst") & " | " & vbCrLf
Response.Write "" & "" & rs("Oav") & " | " & vbCrLf
Response.Write "" & "" & rs("Forl") & " | " & vbCrLf
Response.Write "" & "" & rs("Gjorda") & " | " & vbCrLf
Response.Write "" & "" & rs("Inslapp") & " | " & vbCrLf
Response.Write "" & "" & rs("Skillnad") & " | " & vbCrLf
Response.Write "" & "" & rs("Poang") & " | " & vbCrLf
Response.Write "
" & " " & "Dag" & " | " & vbCrLf Response.Write "" & " " & " | " & vbCrLf Response.Write "" & " " & "Tid" & " | " & vbCrLf Response.Write "" & "" & "Hall" & " | " & vbCrLf Response.Write "" & "" & "Matchnr" & " | " & vbCrLf Response.Write "" & "" & "Hemmalag" & " | " & vbCrLf Response.Write "" & "" & "Bortalag" & " | " & vbCrLf Response.Write "" & "" & "Resultat" & " | " & vbCrLf Response.Write "
" & " " & rs("Dag") & " " & rs("Datum") & " | " & vbCrLf Response.Write "" & "" & " | " & vbCrLf Response.Write "" & "" & rs("Klocka") & " | " & vbCrLf Response.Write "" & " " & rs("Hall") & " | " & vbCrLf Response.Write "" & " " & rs("Matchnr") & " | " & vbCrLf Response.Write "" & "" & rs("Hemmalag") & " | " & vbCrLf Response.Write "" & "" & rs("Bortalag") & " | " & vbCrLf Response.Write "" & "" & rs("Resultathemma") & "-" & rs("Resultatborta") &" | " & vbCrLf Response.Write "
" & " " & "Dag" & " | " & vbCrLf Response.Write "" & " " & " | " & vbCrLf Response.Write "" & " " & "Tid" & " | " & vbCrLf Response.Write "" & "" & "Hall" & " | " & vbCrLf Response.Write "" & "" & "Matchnr" & " | " & vbCrLf Response.Write "" & "" & "Final" & " | " & vbCrLf Response.Write "" & "" & "Hemma" & " | " & vbCrLf Response.Write "" & "" & "Borta" & " | " & vbCrLf Response.Write "" & "" & "Resultat" & " | " & vbCrLf Response.Write "
" & " " & rs("Dag") & " " & rs("Datum") & " | " & vbCrLf Response.Write "" & " " & " | " & vbCrLf Response.Write "" & "" & rs("Klocka") & " | " & vbCrLf Response.Write "" & " " & rs("Hall") & " | " & vbCrLf Response.Write "" & " " & rs("Matchnr") & " | " & vbCrLf Response.Write "" & "" & right(final,len(final)-1) & " | " & vbCrLf Response.Write "" & "" & rs("Hemmalag") & " | " & vbCrLf Response.Write "" & "" & rs("Bortalag") & " | " & vbCrLf Response.Write "" & "" & rs("Resultathemma") & "-" & rs("Resultatborta") &" | " & vbCrLf Response.Write "
" & " " & "Dag" & " | " & vbCrLf Response.Write "" & " " & " | " & vbCrLf Response.Write "" & " " & "Tid" & " | " & vbCrLf Response.Write "" & "" & "Hall" & " | " & vbCrLf Response.Write "" & "" & "Matchnr" & " | " & vbCrLf Response.Write "" & "" & "Final" & " | " & vbCrLf Response.Write "" & "" & "Hemma" & " | " & vbCrLf Response.Write "" & "" & "Borta" & " | " & vbCrLf Response.Write "" & "" & "Resultat" & " | " & vbCrLf Response.Write "
" & " " & rs("Dag") & " " & rs("Datum") & " | " & vbCrLf Response.Write "" & " " & " | " & vbCrLf Response.Write "" & "" & rs("Klocka") & " | " & vbCrLf Response.Write "" & " " & rs("Hall") & " | " & vbCrLf Response.Write "" & " " & rs("Matchnr") & " | " & vbCrLf Response.Write "" & "" & right(final,len(final)-1) & " | " & vbCrLf Response.Write "" & "" & rs("Hemmalag") & " | " & vbCrLf Response.Write "" & "" & rs("Bortalag") & " | " & vbCrLf Response.Write "" & "" & rs("Resultathemma") & "-" & rs("Resultatborta") &" | " & vbCrLf Response.Write "