<% SQL = "SELECT * FROM Anagrafica_giocatori WHERE ID=" & request("ID") & "" set Giocatore = Server.CreateObject("ADODB.Recordset") Giocatore.open SQL, Conn, 3, 3 SQL = "SELECT * FROM Curriculum_giocatori WHERE CodGiocatore=" & request("ID") & " ORDER BY Stagione DESC" set Curriculum = Server.CreateObject("ADODB.Recordset") Curriculum.open SQL, Conn, 3, 3 %> <%=UCase(Giocatore("Cognome")) & " " & UCase(Giocatore("Nome"))%>
<%=UCase(Giocatore("Cognome")) & " " & UCase(Giocatore("Nome"))%>

<% Dim FileObject Set FileObject=CreateObject("Scripting.FileSystemObject") esiste=FileObject.FileExists("C:/Inetpub/Customers/albinoleffe/images/stories/giocatori/"&trim(Replace(Giocatore("Cognome"), "'", ""))&"_"&Left(Giocatore("Nome"),1)&".jpg") if (esiste=false) then %> <% else %>.jpg" width="145" height="218"><% end if Set FileObject=Nothing %>
  Ruolo: <%=Giocatore("Ruolo")%>
  Nazionalità: <%=Giocatore("Nazione")%>
  Nato il: <%=Giocatore("Data_nascita")%>
  A: <%=Giocatore("Luogo_nascita")%><% If Giocatore("Provincia") <> "" Then%> (<%=Giocatore("Provincia")%>)<%End If%>
  Altezza: <%If Giocatore("Altezza")&"[]" <> "[]" Then%><%If Giocatore("Altezza")>0 Then%><%=Giocatore("Altezza")%> cm <%else%>n.d.<%End If%><%else%>n.d.<%End If%>
  Peso forma: <%If Giocatore("Peso")&"[]" <> "[]" Then%><%If Giocatore("Peso")>0 Then%><%=Giocatore("Peso")%> Kg <%else%>n.d.<%End If%><%else%>n.d.<%End If%>
CARRIERA
<%Do Until Curriculum.EOF%> <%Curriculum.movenext Loop%>
Stagione Squadra Serie Presenze Gol
<%=Curriculum("Stagione")%> <%=Curriculum("Squadra")%> <%=Curriculum("Serie")%> <%=Curriculum("Presenze")%> <%If Giocatore("Ruolo") = "Portiere" And Curriculum("Reti") > 0 Then%>-<%=Curriculum("Reti")%><%else%><%=Curriculum("Reti")%><%End If%>
 
Stampa - Chiudi finestra
 
Credits www.dpsonline.it
Dati statistici a cura di www.virtualcalcio.com