<%@ Language=VBScript %> <% cnDati.open Set rs = Server.CreateObject("ADODB.Recordset") select case Request.QueryString("comp") case "1" sStr=" WHERE Competizione=1 ORDER BY Giocatore" sS1="_on" sS2="" sS3="" link="http://www.lupocattivo.net/pagina.asp?id=bt6sqqxqzsxqzuvsrml4" case "2" sStr=" WHERE Competizione=2 ORDER BY Giocatore" sS1="" sS2="_on" link="http://www.lupocattivo.net/pagina.asp?id=scpsqqxqzsxqzuvtxgda" sS3="" case "3" sStr=" WHERE Competizione=3 ORDER BY Giocatore" sS1="" sS2="" sS3="_on" link="http://www.lupocattivo.net/coppaitalia.asp" case else sStr=" WHERE Competizione=1 ORDER BY Giocatore" sS1="_on" sS2="" sS3="" link="http://www.lupocattivo.net/pagina.asp?id=bt6sqqxqzsxqzuvsrml4" end select rs.Open "SELECT * FROM Statistiche" + sstr,cnDati,3,3 %>

	<% if rs.RecordCount>0 then %> <% do until rs.Eof %> <% rs.movenext loop %> Giocatore Minuti Presenze Gol Amm Esp <%=rs("Giocatore")%> <%=cstr(rs("Minuti"))%> <%=cstr(rs("Presenze"))%> <%=cstr(rs("Goal"))%> <%=cstr(rs("Entrato"))%> <%=cstr(rs("Sostituito"))%> <% end if rs.Close set rs=nothing cndati.close set cndati=nothing %>