<%if action=0 then%>
Nessun Giocatore Trovato
<%else%>
<%
'CARRIEREA
SQL="SELECT anno.anno, campionato.id_categoria_2, categorie_campionato_2.nome as nomeCategoria, "&_
"campionato.campionato, campionato.id as idC, campionato.id_campionato, campionato.id_fase, ac.id, cs.id as idCS, ordinamento FROM cs "&_
"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 cs.idSquadra="&idS&" "&_
"ORDER BY id_categoria_2 ASC, anno desc, id_campionato DESC, ordinamento ASC"
'response.write(SQL)
set rsCarr = Conn.Execute(SQL)
RestartTable = "
"&_
"
"&_
""&_
"| STAGIONE | "&_
"
| "&_
" SERIE | "&_
"
"
%>
<%if not rsCarr.EOF then
id_categoria = rsCarr("id_categoria_2")
nome_categoria = rsCarr("nomeCategoria")
if nome_categoria<>"" then%>
<%=nome_categoria%>
<%end if%>
| STAGIONE |
|
SERIE |
<%
idCamp=0
idCamp_sup=0
viewRigo="S"
''INIZIO CICLO
do while not rsCarr.EOF
''CATEGORIA CAMPIONATO'
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(""&nome_categoria&"
")
response.write(RestartTable)
end if
idAC = rsCarr("id")
idCamp=rsCarr("id_campionato")
imgT=""
strPh = "public/camp/"&rsCarr("idC")&"/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 Right(lcase(strFile.name),4)="jpeg" or Right(lcase(strFile.name),3)="jpg" or Right(lcase(strFile.name),3)="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
if idCamp_sup=0 then
if idCamp>0 then
idCamp_sup=idCamp
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=""
idACSup=0
else
nomeCampionatoSup=rsCamp("campionato")
annoCampionatoSup=rsCamp("anno")
idACSup=rsCamp("idAC")
end if
set rsCamp = NOthing
background=AlternaColore("#F8F8F8","#FFFFFF")
ViewSup="S"
ViewRigo="N"
RigoCampSup=""&_
""&_
"| "&annoCampionatoSup&" | "&_
"![]("&imgT&") | "&_
" "&nomeCampionatoSup&" | "&_
"
"
else
RigoCampSup=""
ViewSup="N"
ViewRigo="S"
end if
else
if idCamp=0 then
viewRigo="S"
RigoCampSup=""
ViewSup="N"
else
if idCamp_sup=idCamp then
RigoCampSup=""
viewRigo="N"
ViewSup="N"
else
idCamp_sup=idCamp
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=""
idAC=0
else
nomeCampionatoSup=rsCamp("campionato")
annoCampionatoSup=rsCamp("anno")
idACSup=rsCamp("idAC")
end if
set rsCamp = NOthing
background=AlternaColore("#F8F8F8","#FFFFFF")
ViewSup="S"
ViewRigo="N"
RigoCampSup=""&_
""&_
"| "&annoCampionatoSup&" | "&_
" | "&_
" "&nomeCampionatoSup&" | "&_
"
"
end if
end if
end if
nomeCampionato=rsCarr("campionato")
annoCampionato=rsCarr("anno")
idAC = rsCarr("id")
textcamp = lcase(replace(nomeCampionato," ","-"))
textanno= lcase(replace(annoCampionato," ","-"))
if viewSup="S" then
response.write(RigoCampSup)
end if
if viewRigo="S" then%>
">
| <%=annoCampionato%> |
 |
<%=nomeCampionato%> |
<%
end if
rsCarr.movenext
Loop%>
">
| |
<%end if
set rsCarr = Nothing%>
<%end if%>