<%@ Language=VBScript %> <% Set DB = Server.CreateObject("ADODB.Connection") DB.Open aCstrDBConn %> <% Call TitreDisplay ("admin") %> <% If Request.ServerVariables("REQUEST_METHOD") = "GET" Then %>

Sir, you will access from this page to the resume of a player of your choice
Please select the player you need more info about
Player :	<% If Session("aCstafTyp") Then aSql = "SELECT JOUEUR.JOUEUR_NO, JOUEUR.JOUEUR_NICK FROM JOUEUR " _ & "ORDER BY JOUEUR.JOUEUR_NICK" Else aSql = "SELECT JOUEUR.JOUEUR_NO, JOUEUR.JOUEUR_NICK " _ & "FROM JOUEUR, ACOMME, JEUX " _ & "WHERE JOUEUR.JOUEUR_NO = ACOMME.JOUEUR_NO " _ & "AND ACOMME.JEUX_NO = JEUX.JEUX_NO " _ & "AND (JEUX.GRP_NO = '" & Session("aCstafGrp") & "') " _ & "GROUP BY JOUEUR.JOUEUR_NO, JOUEUR.JOUEUR_NICK " _ & "ORDER BY JOUEUR.JOUEUR_NICK" End If Call ListeBoxS(aSql,"aLBNoJoueur",0)%>

<%Else ' Enregistrement des paramètres aVintNoJoueur = Request.Form("aLBNoJoueur") aVSQL = "SELECT JOUEUR.JOUEUR_NO, JOUEUR.JOUEUR_NICK, JOUEUR.JOUEUR_EMAIL, " _ & "JOUEUR.JOUEUR_DATEENT, JOUEUR.JOUEUR_DATEJEUX, JOUEUR.JOUEUR_PASS, " _ & "JOUEUR.JOUEUR_DATEFJEUX, JOUEUR.JOUEUR_PARTIE, " _ & "JOUEUR.JOUEUR_LNG, PAYS.PAYS_NOM " _ & "FROM JOUEUR, PAYS " _ & "WHERE JOUEUR.PAYS_NO = PAYS.PAYS_NO " _ & "AND (JOUEUR.JOUEUR_NO = " & aVintNoJoueur & ")" Set aRqJoueur = DB.Execute (aVSQL, ,adCmdText) aVSQL = "SELECT Sum(IIf([AVECCOMME]![PARTIE_W],1,0)) AS WIN, " _ & "Sum(IIf([AVECCOMME]![PARTIE_D],1,0)) AS DRAW, " _ & "Sum(IIf([AVECCOMME]![PARTIE_L],1,0)) AS LOOSE " _ & "FROM AVECCOMME " _ & "WHERE (((DateDiff('d',[PARTIE_END],Now()))<360) " _ & "AND ((AVECCOMME.PART_ENCOURS)=False)) " _ & "GROUP BY AVECCOMME.JOUEUR_NO " _ & "HAVING (((AVECCOMME.JOUEUR_NO)=" & aVintNoJoueur & "));" Set aRqScore = DB.Execute(aVSQL, ,adCmdText) IF aRqScore.eof Then aVintVic = 0 aVintDraw = 0 aVintPert = 0 Else aVintVic = aRqScore("WIN") aVintDraw = aRqScore("DRAW") aVintPert = aRqScore("LOOSE") End If Set aRqScore = Nothing aVsql = "SELECT Count(AVECCOMME.JOUEUR_NO) AS NBPARTIE " _ & "FROM AVECCOMME " _ & "WHERE (((AVECCOMME.PART_ENCOURS)=True)) " _ & "GROUP BY AVECCOMME.JOUEUR_NO " _ & "HAVING (((AVECCOMME.JOUEUR_NO)=" & aVintNoJoueur & "));" Set aRqNbJeux = DB.Execute(aVsql,,adCmdText) Dim aVintNbJeux If aRqNbJeux.EOF then aVintNbJeux = 0 else aVintNbJeux = aRqNbJeux("NBPARTIE") end if set aRqNbJeux = Nothing Set aRqJeux = DB.Execute("SELECT * FROM ACOMME WHERE JOUEUR_NO =" & aVintNoJoueur, ,adCmdText)%>

<% If isNull(aRqJoueur("JOUEUR_DATEJEUX")) Then %> <%Else%> <%End If %> <% If isNull(aRqJoueur("JOUEUR_DATEFJEUX")) Then %> <% Else %> <% End If %>

N°	<% = aRqJoueur("JOUEUR_NO")%>
NickName :	<% = UCase(aRqJoueur("JOUEUR_NICK")) %>
Password :	<% = UCase(aRqJoueur("JOUEUR_PASS")) %>
E-Mail :	"><% = aRqJoueur("JOUEUR_EMAIL") %>
Language :	<% = aRqJoueur("JOUEUR_LNG") %>
Country :	<% = aRqJoueur("PAYS_NOM") %>
Recrutment Date :	<% = FormatDateTime(aRqJoueur("JOUEUR_DATEENT"),2) %>
Last game started :	-/-/-	<% = FormatDateTime(aRqJoueur("JOUEUR_DATEJEUX"),2) %>
Last game finished :	-/-/-	<% = FormatDateTime(aRqJoueur("JOUEUR_DATEFJEUX"),2) %>
Nb of current game :	<% = aVintNbJeux %>
Victory :	<% = aVintVic %>
Draw :	<% = aVintDraw %>
Loose :	<% = aVintPert %>
Please Select the game you need more info about :

<% aVSQLTS = "SELECT JEUX.JEUX_NOM, JEUX.GRP_NO, JEUX.JEUX_NO " _ & "FROM JOUEUR, ACOMME, JEUX " _ & "WHERE JOUEUR.JOUEUR_NO = ACOMME.JOUEUR_NO " _ & "AND ACOMME.JEUX_NO = JEUX.JEUX_NO " _ & "AND (JOUEUR.JOUEUR_NO = " & aVintNoJoueur & ") " _ & "AND (JEUX.GRP_NO = 'TS') " _ & "ORDER BY JEUX.JEUX_NO" aVSQLST = "SELECT JEUX.JEUX_NOM, JEUX.GRP_NO, JEUX.JEUX_NO " _ & "FROM JOUEUR, ACOMME, JEUX " _ & "WHERE JOUEUR.JOUEUR_NO = ACOMME.JOUEUR_NO " _ & "AND ACOMME.JEUX_NO = JEUX.JEUX_NO " _ & "AND (JOUEUR.JOUEUR_NO = " & aVintNoJoueur & ") " _ & "AND (JEUX.GRP_NO = 'ST') " _ & "ORDER BY JEUX.JEUX_NO" aVSQLSP = "SELECT JEUX.JEUX_NOM, JEUX.GRP_NO, JEUX.JEUX_NO " _ & "FROM JOUEUR, ACOMME, JEUX " _ & "WHERE JOUEUR.JOUEUR_NO = ACOMME.JOUEUR_NO " _ & "AND ACOMME.JEUX_NO = JEUX.JEUX_NO " _ & "AND (JOUEUR.JOUEUR_NO = " & aVintNoJoueur & ") " _ & "AND (JEUX.GRP_NO = 'SP') " _ & "ORDER BY JEUX.JEUX_NO" Set aRqSP = DB.Execute(aVSQLSP, , adCmdText) Set aRqTS = DB.Execute(aVSQLTS, , adCmdText) Set aRqST = DB.Execute(aVSQLST, , adCmdText) DO WHILE (Not aRqSP.eof) OR (Not aRqST.eof) OR (Not aRqTS.eof)%> <% Loop set aRqSP = Nothing set aRqST = Nothing set aRqTS = Nothing DB.Close %>

Steel Panthers	SSI Stars	Talon Soft
<% If Not aRqSP.eof Then %> &grp=SP"><% = aRqSP("JEUX_NOM") %> <% aRqSP.movenext Else %>   <% End If %>	<% If Not aRqST.eof Then %> &grp=ST"><% = aRqST("JEUX_NOM") %> <% aRqST.movenext Else %>   <% End If %>	<% If Not aRqTS.eof Then %> &grp=TS"><% = aRqTS("JEUX_NOM") %> <% aRqTS.movenext Else %>   <% End If %>

<% End If %>