<% call stampa_menu("risultati") %> <% a = Request.querystring("a") set conn = Server.CreateObject("ADODB.Connection") conn.open connection_string set rs = Server.CreateObject("ADODB.Recordset") SELECT CASE a case "elenco_giocatori" cat = Request.querystring("cat") titolo = "Schede Tecniche dei Giocatori" 'carico il template selezionato in base ad categoria SELECT CASE cat 'SERIE A2 case "a2" sql = "SELECT * FROM anagrafica WHERE ID_categoria = 1 AND (ID_Tipologia <> 5 AND ID_Tipologia <> 6) ORDER BY nome" rs.open sql,conn,1 tipo = "A2" width = "294" i = 1 ELENCOCOLONNA = stampa_elenco() 'SERIE C case "c" sql = "SELECT * FROM anagrafica WHERE ID_categoria = 2 AND (ID_Tipologia <> 5 AND ID_Tipologia <> 6) ORDER BY nome" rs.open sql,conn,1 tipo= "C" & "" width= "294" & "" i = 1 ELENCOCOLONNA = stampa_elenco() 'ALLIEVI case "allievi" sql = "SELECT * FROM anagrafica WHERE ID_categoria = 3 AND (ID_Tipologia <> 5 AND ID_Tipologia <> 6) ORDER BY nome" rs.open sql,conn,1 tipo = "Allievi" & "" width = "274" & "" i = 1 ELENCOCOLONNA = stampa_elenco() 'RAGAZZI case "ragazzi" sql = "SELECT * FROM anagrafica WHERE ID_categoria = 5 AND (ID_Tipologia <> 5 AND ID_Tipologia <> 6)ORDER BY nome" rs.open sql,conn,1 tipo = "Ragazzi" & "" width = "274" & "" i = 1 ELENCOCOLONNA = stampa_elenco() 'CADETTI case "cadetti" sql = "SELECT * FROM anagrafica WHERE ID_categoria = 4 AND (ID_Tipologia <> 5 AND ID_Tipologia <> 6) ORDER BY nome" rs.open sql,conn,1 tipo = "Cadetti" & "" width = "274" & "" i = 1 ELENCOCOLONNA = stampa_elenco() 'PRIMAVERA case "primavera" sql = "SELECT * FROM anagrafica WHERE ID_categoria = 6 AND (ID_Tipologia <> 5 AND ID_Tipologia <> 6) ORDER BY nome" rs.open sql,conn,1 tipo = "Primavera" & "" width = "264" & "" i = 1 ELENCOCOLONNA = stampa_elenco() end select call stampa_menu("risultati") 'call counter() case "elenco_tecnici" 'tpl.loadTemplate server.mappath(".") & "\tpl\elenco.html" cat = Request.querystring("cat") titolo = "Elenco Tecnici della Squadra" & "" 'carico il template selezionato in base ad categoria SELECT CASE cat 'SERIE A2 case "a2" sql = "SELECT * FROM anagrafica WHERE ID_categoria = 1 AND (ID_Tipologia = 5 OR ID_Tipologia = 6) ORDER BY nome" rs.open sql,conn,1 tipo = "A2" & "" width = "294" & "" i = 1 ELENCOCOLONNA = stampa_elenco() 'SERIE C case "c" sql = "SELECT * FROM anagrafica WHERE ID_categoria = 2 AND (ID_Tipologia = 5 OR ID_Tipologia = 6) ORDER BY nome" rs.open sql,conn,1 tipo = "C" & "" width = "294" & "" i = 1 ELENCOCOLONNA = stampa_elenco() 'ALLIEVI case "allievi" sql = "SELECT * FROM anagrafica WHERE ID_categoria = 3 AND (ID_Tipologia = 5 OR ID_Tipologia = 6) ORDER BY nome" rs.open sql,conn,1 tipo = "Allievi" & "" width = "274" & "" i = 1 call stampa_elenco() 'RAGAZZI case "ragazzi" sql = "SELECT * FROM anagrafica WHERE ID_categoria = 5 AND (ID_Tipologia = 5 OR ID_Tipologia = 6)ORDER BY nome" rs.open sql,conn,1 tipo = "Ragazzi" & "" width = "274" & "" i = 1 ELENCOCOLONNA = stampa_elenco() 'CADETTI case "cadetti" sql = "SELECT * FROM anagrafica WHERE ID_categoria = 4 AND (ID_Tipologia = 5 OR ID_Tipologia = 6) ORDER BY nome" rs.open sql,conn,1 tipo = "Cadetti" & "" 'tpl.substvar "width", "274" & "" i = 1 ELENCOCOLONNA = stampa_elenco() 'PRIMAVERA case "primavera" sql = "SELECT * FROM anagrafica WHERE ID_categoria = 6 AND (ID_Tipologia = 5 OR ID_Tipologia = 6) ORDER BY nome" rs.open sql,conn,1 tipo = "Primavera" & "" width = "264" & "" i = 1 ELENCOCOLONNA = stampa_elenco() end select call stampa_menu("risultati") 'call counter() end select %> *** BOLLATE BASEBALL ***
  <%=titolo%>
 Serie <%=tipo%> Cambia Serie
 Clicca sul nominativo per visualizzare la scheda tecnica
<%=ELENCOCOLONNA%>
Attenzione!

Le Schede Tecniche riportate in questa
sezione sono aggiornate al Campionato
di Baseball dell’anno corrente.

Non sono da escludere perņ eventuali
cambiamenti comunicati senza preavviso
a Bollate Baseball Club da parte dei
partecipanti al Campionato.