%
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%>
<%if nazionalita1<>"" then%>
<%end if
if nazionalita1<>"" and nazionalita2<>"" then%>
<%
end if
if nazionalita2<>"" then%>
<%end if%>
<%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%>
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%>
STAGIONE
SERIE
SQUADRA
PRES./GOL
<%
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%>