<% 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) 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,""","""") set rstmp = Nothing titleAction=cognome&" "&nome if soprannome<>"" then titleAction=titleAction&" ""&soprannome&""" end if 'CARRIEREA SQL="SELECT DISTINCT(sg.id) as idUnico, sg.trasferimento, anno.anno, squadra.nome, "&_ "campionato.campionato, campionato.id_campionato, campionato.id_fase, ac.id, cs.id as idCS 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') "&_ "WHERE sg.idGiocatore="&id&" "&_ "ORDER BY 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" - <%=titleAction%>

<%=titleAction%>

<%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 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 link<>"" then%>

SCHEDA DEL GIOCATORE
Per visualizzare la scheda nell'almanacco dei giocatori clicca qui

<%end if%>

<%if testo<>"" then%>
<%=testo%>
<%end if%>
<%if not rsCarr.EOF then%> <% idCamp=0 viewRigo="S" do while not rsCarr.EOF 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 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 if viewRigo="S" then%> "> <%end if%> <%rsCarr.movenext Loop%>
STAGIONE SERIE SQUADRA PRES./GOL
<%=annoCampionato%>  <%=nomeCampionato%>  <%=squadraCamp%> <%if rsCarr("trasferimento")="S" then%>  (TRASF.) <%end if%> <%=Pre&" / "&Gol%>
<%end if set rsCarr = Nothing%>