<%@ Language=VBScript %> <% Set DB = Server.CreateObject("ADODB.Connection") DB.Open aCstrDBConn %> <% Call TitreDisplay ("ADMIN") %>

<% ' Recupération des parametres aVstrErr = "" aVintJoueur = Request("NoJoueur") aVintJeux = Request("NoJeux") aVintPage = Request("aVintPage") aVstrGrp = Request("grp") aVstrAction = Request("action") Session("nbJoueur") = 2 %> <% ' Requete SQL If aVstrGrp = "TS" Then aVsql="SELECT JOUEUR.JOUEUR_NO, PARTIE.PARTIE_NO, " _ & "PARTIE.PARTIE_TXT, PARTIE.PARTIE_DATE, " _ & "JOUEUR.JOUEUR_NICK, JOUEUR.JOUEUR_EMAIL, " _ & "PAYSJEU.PAYSJEUX_NOM, PARTIE.PARTIE_NB, " _ & "PARTIE.PARTIE_NOM, SCENARIO.SCENARIO_NOM, " _ & "SCENARIO.SCENARIO_VAL, AVECCOMME.PART_ENCOURS, JEUX.GRP_NO, " _ & "AVECCOMME.PARTIE_SCR, AVECCOMME.PARTIE_W, " _ & "AVECCOMME.PARTIE_D, JEUX.JEUX_NOM " _ & "FROM AVECCOMME, PARTIE, PAYSJEU, JOUEUR, " _ & "SCENARIO, JEUX " _ & "WHERE AVECCOMME.PARTIE_NO = PARTIE.PARTIE_NO " _ & "AND AVECCOMME.PAYSJEUX_NO = PAYSJEU.PAYSJEUX_NO " _ & "AND AVECCOMME.JOUEUR_NO = JOUEUR.JOUEUR_NO " _ & "AND PARTIE.SCENARIO_NO = SCENARIO.SCENARIO_NO " _ & "AND PARTIE.JEUX_NO = JEUX.JEUX_NO " _ & "AND (JOUEUR.JOUEUR_NO = " & aVintJoueur & ") " _ & "AND (JEUX.JEUX_NO = "& aVintJeux & ") " _ & "AND (JEUX.GRP_NO = 'TS') " _ & "ORDER BY AVECCOMME.PART_ENCOURS DESC, " _ & "JEUX.JEUX_NOM, PARTIE.PARTIE_DATE" ElseIf aVstrGrp = "SP" Then aVsql="SELECT PARTIE.PARTIE_NO, PARTIE.PARTIE_DATEH, " _ & "PARTIE.PARTIE_TXT, PARTIE.PARTIE_DATE, " _ & "PARTIE.PARTIE_TYPE, JOUEUR.JOUEUR_NICK, " _ & "JOUEUR.JOUEUR_NO, PARTIE.PARTIE_NB, " _ & "AVECCOMME.PART_ENCOURS, " _ & "JOUEUR.JOUEUR_EMAIL, PAYSJEU.PAYSJEUX_NOM, " _ & "JEUX.JEUX_NOM, AVECCOMME.PARTIE_SCR, " _ & "AVECCOMME.PARTIE_W, AVECCOMME.PARTIE_D " _ & "FROM AVECCOMME, PARTIE, PAYSJEU, JOUEUR, JEUX " _ & "WHERE AVECCOMME.PARTIE_NO = PARTIE.PARTIE_NO " _ & "AND AVECCOMME.PAYSJEUX_NO = PAYSJEU.PAYSJEUX_NO " _ & "AND AVECCOMME.JOUEUR_NO = JOUEUR.JOUEUR_NO " _ & "AND PARTIE.JEUX_NO = JEUX.JEUX_NO " _ & "AND (JEUX.JEUX_NO = "& aVintJeux & ") " _ & "AND (JOUEUR.JOUEUR_NO = " & aVintJoueur & ") " _ & "ORDER BY AVECCOMME.PART_ENCOURS, JEUX.JEUX_NOM, PARTIE.PARTIE_DATE, " _ & "PARTIE.PARTIE_NO" Else aVsql="SELECT PARTIE.PARTIE_NO, PARTIE.PARTIE_TXT, " _ & "PARTIE.PARTIE_DATE, JOUEUR.JOUEUR_NICK, " _ & "JOUEUR.JOUEUR_NO, PARTIE.PARTIE_NB, " _ & "AVECCOMME.PART_ENCOURS, JOUEUR.JOUEUR_EMAIL, " _ & "PAYSJEU.PAYSJEUX_NOM, PARTIE.PARTIE_NOM, JEUX.JEUX_NOM, " _ & "AVECCOMME.PARTIE_SCR, AVECCOMME.PARTIE_W, AVECCOMME.PARTIE_D " _ & "FROM AVECCOMME, PARTIE, PAYSJEU, JOUEUR, JEUX " _ & "WHERE AVECCOMME.PARTIE_NO = PARTIE.PARTIE_NO " _ & "AND AVECCOMME.PAYSJEUX_NO = PAYSJEU.PAYSJEUX_NO " _ & "AND AVECCOMME.JOUEUR_NO = JOUEUR.JOUEUR_NO " _ & "AND PARTIE.JEUX_NO = JEUX.JEUX_NO " _ & "AND (JEUX.JEUX_NO = "& aVintJeux & ") " _ & "AND (JOUEUR.JOUEUR_NO = " & aVintJoueur & ") " _ & "ORDER BY AVECCOMME.PART_ENCOURS, JEUX.JEUX_NOM, " _ & "PARTIE.PARTIE_DATE, PARTIE.PARTIE_NO" End IF If aVstrAction <> "" then for each item in Request("ckPartie") asql = "DELETE * FROM AVECCOMME " _ & "WHERE (((AVECCOMME.PARTIE_NO)=" & item & "));" DB.Execute asql,,adCmdText asql = "DELETE * FROM PARTIE " _ & "WHERE (((PARTIE.PARTIE_NO)=" & item & "));" DB.Execute asql,,adCmdText next end if ' Affichage des parties Set aOrqJoueur = Server.CreateObject("ADODB.RecordSet") aOrqJoueur.Source = aVsql aOrqJoueur.ActiveConnection = aCstrDBConn aOrqJoueur.CursorType = adOpenStatic aOrqJoueur.Open ' Affichage du titre Set aRqJeux = DB.Execute("select JEUX_NOM, JEUX_IMG from jeux where jeux_no = " & aVintJeux, , adCmdText)%>

<% = Ucase(aRqJeux(0)) %>

<% set aRqJeux = Nothing If Not aOrqJoueur.EOF Then ' Affichage des numéros de page If aVintPage = "" Then aVintPage=1 aOrqJoueur.pagesize = 5 aVintNbPage = cint(aOrqJoueur.pagecount) aOrqJoueur.absolutepage = aVintPage aVintNbTuple = 0 If aVintNbPage > 1 Then %>
Page : <% aVintDizaine = 0 For i=1 to aVintNbPage If i >=10 Then aVintDizaine = "" aVstrLien2 ="" & aVintDizaine & i & "" Response.Write aVstrLien2 & " " If i mod 10 = 0 Then Response.Write "
" Next %>
<% End If End If ' Affichage des titre du tableau %>
> > > > <% If aVstrGrp = "TS" Then 'Type TS If Session("lng") Then %> <% Else %> <% End If %> <% ' Affichage de la liste des Parties If Not aOrqJoueur.EOF Then %> <%Do While (Not aOrqJoueur.EOF) AND (aVintNbTuple < aOrqJoueur.pagesize) %> <%if isNull(aOrqJoueur.Fields("PARTIE_NB")) then aVintNbPartie = 2 else aVintNbPartie = aOrqJoueur.Fields("PARTIE_NB") end if %> <% If Not aOrqJoueur.Fields("PART_ENCOURS")Then %> <% IF isNull(aOrqJoueur.Fields("PARTIE_SCR")) Then %> <%Else %> <% If aOrqJoueur.Fields("PARTIE_D") Then %> <% Elseif aOrqJoueur.Fields("PARTIE_W") Then %> <% Else %> <% End If %> <%End If %> <% Else %> <% End If %> <% ' Recherche du joueur n aVsql="SELECT JOUEUR.JOUEUR_NICK, JOUEUR.JOUEUR_EMAIL, PAYSJEU.PAYSJEUX_NOM, " _ & "AVECCOMME.PART_ENCOURS,AVECCOMME.PARTIE_SCR, AVECCOMME.PARTIE_W, AVECCOMME.PARTIE_D " _ & "FROM AVECCOMME, PARTIE, PAYSJEU, JOUEUR " _ & "WHERE AVECCOMME.PARTIE_NO = PARTIE.PARTIE_NO " _ & "AND AVECCOMME.PAYSJEUX_NO = PAYSJEU.PAYSJEUX_NO " _ & "AND AVECCOMME.JOUEUR_NO = JOUEUR.JOUEUR_NO " _ & "AND (PARTIE.JEUX_NO =" & aVintJeux & ") " _ & "AND (JOUEUR.JOUEUR_NO <> " & aVintJoueur &") " _ & "AND (PARTIE.PARTIE_NO =" & aOrqJoueur.Fields("PARTIE_NO") & ") " Set aOrqJoueur2 = DB.Execute(aVsql, ,adCmdText) %> <% do while not aOrqJoueur2.eof %> <% If Not aOrqJoueur2.Fields("PART_ENCOURS")Then %> <% IF isNull(aOrqJoueur2.Fields("PARTIE_SCR")) Then %> <%Else %> <% If aOrqJoueur2.Fields("PARTIE_D") Then %> <% Elseif aOrqJoueur2.Fields("PARTIE_W") Then %> <% Else %> <% End If %> <%End If %> <% Else %> <% End If %> <% aOrqJoueur2.movenext loop %> <% If isNull(aOrqJoueur.Fields("PARTIE_TXT")) Then %> <% Else %> <% End If %> <% aOrqJoueur.MoveNext aVintNbTuple = aVintNbTuple + 1 Set aOrqJoueur2 = Nothing Loop Else %> <%End If ElseIf aVstrGrp = "SP" Then 'Type SP If Session("lng") Then %> <% Else %> <% End If %> <% ' Affichage de la liste des Parties If Not aOrqJoueur.EOF Then %> <%Do While (Not aOrqJoueur.EOF) AND (aVintNbTuple < aOrqJoueur.pagesize) %> <% If Not aOrqJoueur.Fields("PART_ENCOURS")Then %> <% IF isNull(aOrqJoueur.Fields("PARTIE_SCR")) Then %> <%Else %> <% If aOrqJoueur.Fields("PARTIE_D") Then %> <% Elseif aOrqJoueur.Fields("PARTIE_W") Then %> <% Else %> <% End If %> <%End If %> <% Else %> <% End If %> <% ' Recherche du joueur 2 aVsql="SELECT JOUEUR.JOUEUR_NICK, JOUEUR.JOUEUR_EMAIL, PAYSJEU.PAYSJEUX_NOM, " _ & "AVECCOMME.PART_ENCOURS,AVECCOMME.PARTIE_SCR, AVECCOMME.PARTIE_W, AVECCOMME.PARTIE_D " _ & "FROM AVECCOMME, PARTIE, PAYSJEU, JOUEUR " _ & "WHERE AVECCOMME.PARTIE_NO = PARTIE.PARTIE_NO " _ & "AND AVECCOMME.PAYSJEUX_NO = PAYSJEU.PAYSJEUX_NO " _ & "AND AVECCOMME.JOUEUR_NO = JOUEUR.JOUEUR_NO " _ & "AND (PARTIE.JEUX_NO =" & aVintJeux & ") " _ & "AND (JOUEUR.JOUEUR_NO <> " & aVintJoueur &") " _ & "AND (PARTIE.PARTIE_NO =" & aOrqJoueur.Fields("PARTIE_NO") & ") " Set aOrqJoueur2 = DB.Execute(aVsql, ,adCmdText) %> <% If Not aOrqJoueur2.Fields("PART_ENCOURS")Then %> <% IF isNull(aOrqJoueur2.Fields("PARTIE_SCR")) Then %> <%Else %> <% If aOrqJoueur2.Fields("PARTIE_D") Then %> <% Elseif aOrqJoueur2.Fields("PARTIE_W") Then %> <% Else %> <% End If %> <%End If %> <% Else %> <% End If %> <% If Not aOrqJoueur2.Fields("PART_ENCOURS")Then aVtext = " - Finished"%> <% If isNull(aOrqJoueur.Fields("PARTIE_TXT")) Then %> <% Else %> <% End If %> <% aOrqJoueur.MoveNext aVintNbTuple = aVintNbTuple + 1 Set aOrqJoueur2 = Nothing Loop Else %> <%End If Else ' Type ST If Session("lng") Then %> <% Else %> <% End If %> <% ' Affichage de la liste des Parties If Not aOrqJoueur.EOF Then%> <%Do While (Not aOrqJoueur.EOF) AND (aVintNbTuple < aOrqJoueur.pagesize) %> <% If Not aOrqJoueur.Fields("PART_ENCOURS")Then %> <% IF isNull(aOrqJoueur.Fields("PARTIE_SCR")) Then %> <%Else %> <% If aOrqJoueur.Fields("PARTIE_D") Then %> <% Elseif aOrqJoueur.Fields("PARTIE_W") Then %> <% Else %> <% End If %> <%End If %> <% Else %> <% End If %> <% ' Recherche du joueur 2 aVsql="SELECT JOUEUR.JOUEUR_NICK, JOUEUR.JOUEUR_EMAIL, PAYSJEU.PAYSJEUX_NOM, " _ & "AVECCOMME.PART_ENCOURS,AVECCOMME.PARTIE_SCR, AVECCOMME.PARTIE_W, AVECCOMME.PARTIE_D " _ & "FROM AVECCOMME, PARTIE, PAYSJEU, JOUEUR " _ & "WHERE AVECCOMME.PARTIE_NO = PARTIE.PARTIE_NO " _ & "AND AVECCOMME.PAYSJEUX_NO = PAYSJEU.PAYSJEUX_NO " _ & "AND AVECCOMME.JOUEUR_NO = JOUEUR.JOUEUR_NO " _ & "AND (PARTIE.JEUX_NO =" & aVintJeux & ") " _ & "AND (JOUEUR.JOUEUR_NO <> " & aVintJoueur &") " _ & "AND (PARTIE.PARTIE_NO =" & aOrqJoueur.Fields("PARTIE_NO") & ") " Set aOrqJoueur2 = DB.Execute(aVsql, ,adCmdText) %> <% If Not aOrqJoueur2.Fields("PART_ENCOURS")Then %> <% IF isNull(aOrqJoueur2.Fields("PARTIE_SCR")) Then %> <%Else %> <% If aOrqJoueur2.Fields("PARTIE_D") Then %> <% Elseif aOrqJoueur2.Fields("PARTIE_W") Then %> <% Else %> <% End If %> <%End If %> <% Else %> <% End If %> <% If Not aOrqJoueur2.Fields("PART_ENCOURS")Then aVtext = " - Finished"%> <% If isNull(aOrqJoueur.Fields("PARTIE_TXT")) Then %> <% Else %> <% End If %> <% aOrqJoueur.MoveNext aVintNbTuple = aVintNbTuple + 1 Set aOrqJoueur2 = Nothing Loop Else %> <%End If End If %>
Game Score Date Mod
Jeux Score Date Mod
> <% = aOrqJoueur.Fields("PARTIE_NO") %> "><% = aOrqJoueur.Fields("JOUEUR_NICK") %> - <% = aOrqJoueur.Fields("PAYSJEUX_NOM") %>? ?DWL<% = aOrqJoueur.Fields("PARTIE_SCR")%>- -<% = aOrqJoueur.Fields("PARTIE_DATE") %> <% = aOrqJoueur.Fields("SCENARIO_NOM") %> <% = aOrqJoueur.Fields("SCENARIO_VAL") %>
"><% = aOrqJoueur2.Fields("JOUEUR_NICK") %> - <% = aOrqJoueur2.Fields("PAYSJEUX_NOM") %>? ?DWL<% = aOrqJoueur2.Fields("PARTIE_SCR")%>- -
Comment :-Comment :<% = aOrqJoueur.Fields("PARTIE_TXT") %>
Scenario :<% = aOrqJoueur.Fields("SCENARIO_NOM") %> <% If Not aOrqJoueur.Fields("PART_ENCOURS")Then Response.Write " - Finished"%>
- - - - - - -
Game Score Type Historic Date Date
Jeux Score Type Date Historique Date
> <% = aOrqJoueur.Fields("PARTIE_NO") %> "><% = aOrqJoueur.Fields("JOUEUR_NICK") %> - <% = aOrqJoueur.Fields("PAYSJEUX_NOM") %>? ?DWL<% = aOrqJoueur.Fields("PARTIE_SCR")%>- -<% = aOrqJoueur.Fields("PARTIE_TYPE") %> <% = aOrqJoueur.Fields("PARTIE_DATEH") %> <% = aOrqJoueur.Fields("PARTIE_DATE") %>
"><% = aOrqJoueur2.Fields("JOUEUR_NICK") %> - <% = aOrqJoueur2.Fields("PAYSJEUX_NOM") %>? ?DWL<% = aOrqJoueur2.Fields("PARTIE_SCR")%>- -
Comment :<% = aVtext %>Comment : <% = aOrqJoueur.Fields("PARTIE_TXT") & aVtext%>
- - - - - -
Game Score Scenario Date
Jeux Score Scenario Date
> <% = aOrqJoueur.Fields("PARTIE_NO") %> "><% = aOrqJoueur.Fields("JOUEUR_NICK") %> - <% = aOrqJoueur.Fields("PAYSJEUX_NOM") %>? ?DWL<% = aOrqJoueur.Fields("PARTIE_SCR")%>- -<% = aOrqJoueur.Fields("PARTIE_NOM") %> <% = aOrqJoueur.Fields("PARTIE_DATE") %>
"><% = aOrqJoueur2.Fields("JOUEUR_NICK") %> - <% = aOrqJoueur2.Fields("PAYSJEUX_NOM") %>? ?DWL<% = aOrqJoueur2.Fields("PARTIE_SCR")%>- -
Comment :<% = aVtext %>Comment : <% = aOrqJoueur.Fields("PARTIE_TXT") & aVtext%>
- - - - - - -
<% Set aOrqJoueur = Nothing DB.Close %>