<% id = ZeroV(request("id")) 'GIOCATORE SQL="SElECT id as id, nome, cognome, soprannome, peso, altezza, piede, nazionalita1, nazionalita2,"&_ "link, anno, dataNascita, ruolo, testo FROM giocatori WHERE eliminato='N' AND id="&id set rstmp = Conn.Execute(SQL) if rstmp.EOF then action = "" else action = "1" nome = rstmp("nome") cognome = rstmp("cognome") soprannome = rstmp("soprannome") piede = rstmp("piede") altezza = rstmp("altezza") peso = rstmp("peso") nazionalita1 = rstmp("nazionalita1") nazionalita2 = rstmp("nazionalita2") link = rstmp("link") dataNascita = rstmp("dataNascita") anno = rstmp("anno") ruolo = rstmp("ruolo") testo = rstmp("testo") testo = replace(testo,""","""") end if set rstmp = Nothing titleAction=cognome&" "&nome if soprannome<>"" then titleAction=titleAction&" ""&soprannome&""" end if nomeHeader = titleAction 'CARRIEREA SQL="SELECT DISTINCT(sg.id) as idUnico, sg.trasferimento, anno.anno, squadra.nome, campionato.id_categoria_2, categorie_campionato_2.nome as nomeCategoria, "&_ "campionato.campionato, campionato.id_campionato, campionato.id_fase, ac.id, cs.id as idCS, squadra.id as idSquadra FROM sg "&_ "INNER JOIN cs ON (sg.idCS=cs.id) "&_ "INNER JOIN squadra ON (cs.idSquadra=squadra.id) "&_ "INNER JOIN ac ON (ac.id=cs.idAC) "&_ "INNER JOIN campionato ON (ac.idCampionato=campionato.id AND campionato.eliminato='N') "&_ "INNER JOIN anno ON (ac.idAnno=anno.id AND anno.eliminato='N') "&_ "LEFT JOIN categorie_campionato_2 ON (campionato.id_categoria_2=categorie_campionato_2.id AND anno.eliminato='N') "&_ "WHERE sg.idGiocatore="&id&" "&_ "ORDER BY id_categoria_2 ASC, anno desc, id_campionato DESC" set rsCarr = Conn.Execute(SQL) imgP="" strPh = "public/player/"&id&"/mid/" strBg = "public/player/"&id&"/big/" Set objFSO = Server.CreateObject("Scripting.FileSystemObject") If objFSO.FolderExists(Server.MapPath(strPh)) Then Set objFolder = objFso.GetFolder(Server.MapPath(strPh)) Set objFiles = objFolder.Files For each strFile in objFiles if Right(lcase(strFile.name),3)="jpg" or Right(lcase(strFile.name),4)="png" then imgP=strPh&strFile.name imgB=strBg&strFile.name end if next end if set objFSO = Nothing set objFolder = Nothing set objFSO = Nothing if imgP="" then imgP = "public/player/nologo.png" end if %> Palla al Centro "Il Calcio a 5 in Toscana" <%=nomeHeader%>
"> <% totPre=totPre+Pre totGol=totGol+Gol TottotPre = TottotPre+Pre TottotGol = TottotGol+Gol end if rsCarr.movenext Loop%> ">
<%if action=0 then%>


Nessun Giocatore Trovato
<%else%>

<%=squadra%>

<%if soprannome<>"" then %>

<%=soprannome%>
<%=cognome&" "&nome%>

<%else%>

<%=cognome&" "&nome%>

<%end if%>
<%if imgP<>"" then%>

<%end if%>
<%if nazionalita1<>"" or nazionalita2<>"" then%> <%end if%>
<%if nazionalita1<>"" then%> <%=nazionalita1%> <%end if if nazionalita1<>"" and nazionalita2<>"" then%>   <% end if if nazionalita2<>"" then%> <%=nazionalita2%>  <%end if%>
<%if nazionalita1<>"" then%><%=nazionalita1%><%end if%> <%if nazionalita2<>"" then%> / <%=nazionalita2%><%end if%>

<%if dataNascita<>"" then%> DATA DI NASCITA: <%=dataNascita%> <%else if anno<>"" then%> ANNO DI NASCITA: <%=anno%> <%else%> DATA DI NASCITA: -- <%end if end if%>
PESO:  <%if peso<>"" then%><%=peso%> kg<%else%>--<%end if%> ALTEZZA:  <%if altezza<>"" then%><%=altezza%> cm<%else%>N.P.<%end if%>
RUOLO:  <%if ruolo<>"" then%><%=ruolo%><%else%>N.P.<%end if%> PIEDE:  <%if PIEDE<>"" then%><%=piede%><%else%>N.P.<%end if%>

<%if testo<>"" then%>
<%=testo%>
<%end if%>
<% RestartTable = "
"&_ ""&_ ""&_ ""&_ ""&_ ""&_ ""&_ ""&_ ""&_ "" %> <%if not rsCarr.EOF then id_categoria = rsCarr("id_categoria_2") nome_categoria = rsCarr("nomeCategoria") if nome_categoria<>"" then%>

<%=nome_categoria%>

<%end if%>
STAGIONE
 SQUADRA SERIEPRES.GOL
<% idCamp=0 viewRigo="S" totPre=0 totGol=0 TottotPre =0 TottotGol = 0 do while not rsCarr.EOF if id_categoria <> rsCarr("id_categoria_2") then id_categoria = rsCarr("id_categoria_2") nome_categoria = rsCarr("nomeCategoria") response.write("") response.write("") response.write("") response.write("") response.write("
STAGIONE
 SQUADRA  SERIE PRES. GOL
 "&TotPre&""&TotGol&"
") response.write("

"&nome_categoria&"

") response.write(RestartTable) TotPre=0 TotGol=0 end if idSquadra = rsCarr("idSquadra") idAC = rsCarr("id") if rsCarr("id_campionato")>0 AND idCamp<>rsCarr("id_campionato") then idCamp=rsCarr("id_campionato") viewRigo="S" squadraCamp=rsCarr("nome") SQL="SELECT campionato.campionato, anno.anno, ac.id as idAC FROM campionato "&_ "INNER JOIN ac ON (ac.idCampionato=campionato.id AND campionato.eliminato='N') "&_ "INNER JOIN anno ON (ac.idAnno=anno.id AND anno.eliminato='N') "&_ "WHERE campionato.id="&idCamp set rsCamp = Conn.Execute(SQL) if rsCamp.EOF then nomeCampionato="" annoCampionato="" else nomeCampionato=rsCamp("campionato") annoCampionato=rsCamp("anno") end if set rsCamp = NOthing condizioneMarcatore="" SQL="SELECT ac.id as idAC FROM campionato "&_ "INNER JOIN ac on (campionato.id=ac.idcampionato) "&_ "WHERE campionato.eliminato='N' AND campionato.id_campionato="&idCamp set rsCM = Conn.Execute(SQL) do while not rsCM.EOF if condizioneMarcatore="" then condizioneMarcatore=" cs.idAC="&rsCM("idAC")&" " else condizioneMarcatore=condizioneMarcatore&" OR cs.idAC="&rsCM("idAC")&" " end if rsCM.movenext Loop set rsCM = Nothing SQL="SELECT COUNT(presenze.id) as PresTot FROM presenze "&_ "INNER JOIN sg ON (sg.id=presenze.idSG AND sg.idGiocatore="&id&" ) "&_ "INNER JOIN giocatori ON (giocatori.id=sg.idGiocatore AND giocatori.eliminato='N') "&_ "INNER JOIN cs ON (cs.id=sg.idCS AND ("&condizioneMarcatore&")) "&_ "WHERE presenze.eliminato='N' " set rsPre = Conn.Execute(SQL) if not rsPre.EOF then Pre = ZeroV(rsPre("PresTot")) else Pre = 0 end if set rsPre = Nothing SQL="SELECT COUNT(marcatori.id) as golTot FROM marcatori "&_ "INNER JOIN sg ON (sg.id=marcatori.idSG AND sg.idGiocatore="&id&" ) "&_ "INNER JOIN giocatori ON (giocatori.id=sg.idGiocatore AND giocatori.eliminato='N') "&_ "INNER JOIN cs ON (cs.id=sg.idCS AND ("&condizioneMarcatore&")) "&_ "WHERE marcatori.eliminato='N' " set rsGol = Conn.Execute(SQL) if not rsGol.EOF then gol = ZeroV(rsGol("golTot")) else gol = 0 end if set rsGol = Nothing else if rsCarr("id_campionato")>0 AND idCamp=rsCarr("id_campionato") then viewRigo="N" end if if rsCarr("id_campionato")=0 then viewRigo="S" SQL="SELECT COUNT(presenze.id) as Tot FROM presenze WHERE eliminato='N' AND idSG="&rsCarr("idUnico") set rsPre = Conn.Execute(SQL) Pre = ZeroV(rsPre("Tot")) set rsPre = Nothing SQL="SELECT COUNT(marcatori.id) as Tot FROM marcatori WHERE eliminato='N' AND idSG="&rsCarr("idUnico") set rsGol = Conn.Execute(SQL) gol = ZeroV(rsGol("Tot")) set rsGol = Nothing nomeCampionato=rsCarr("campionato") annoCampionato=rsCarr("anno") squadraCamp=rsCarr("nome") end if end if idAC = rsCarr("id") idSquadra = rsCarr("idSquadra") textcamp = lcase(replace(nomeCampionato," ","-")) textanno= lcase(replace(annoCampionato," ","-")) if viewRigo="S" then imgT="" strPh = "public/team/"&idSquadra&"/small/" Set objFSO = Server.CreateObject("Scripting.FileSystemObject") If objFSO.FolderExists(Server.MapPath(strPh)) Then Set objFolder = objFso.GetFolder(Server.MapPath(strPh)) Set objFiles = objFolder.Files For each strFile in objFiles if imgT="" and (lcase(strFile.name)="logo.jpg" or lcase(strFile.name)="logo.png") then imgT=strPh&strFile.name ImgLogo=strFile.name end if Next end if Set objFolder = Nothing Set objFiles = Nothing Set objFSO = Nothing if imgT="" then imgT="public/team/nologo_small.png" end if %>
<%=annoCampionato%>  <%=squadraCamp%> <%if rsCarr("trasferimento")="S" then%>  (TRASF.) <%end if%>  <%=nomeCampionato%> <%=Pre%> <%=Gol%>
  <%=TotPre%> <%=TotGol%>
<%end if set rsCarr = Nothing%>
            TOTALE <%=TotTotPre%> <%=TotTotGol%>
<% SQL="SELECT contenuti.url, contenuti.titolo, contenuti.id, contenuti.dataC, contenuti.sintesi "&_ "FROM contenuti "&_ "INNER JOIN tag_cc ON (contenuti.id=tag_cc.id_contenuti AND tag_cc.id_giocatore="&id&") "&_ "WHERE visibile='S' AND contenuti.eliminato='N' "&_ "ORDER BY contenuti.dataC DESC, contenuti.id DESC " set rs = Conn.Execute(SQL) %> <%if not rs.EOF then %>

NEWS

<%do while not rs.EOF%>

<%=rs("dataC")%> - <%=rs("sintesi")%>
<%rs.movenext Loop set rs = Nothing %>
<%end if%>
<%end if%>